Allen Walker,TerryDein,  ксьтати да, погода охуенная. не ссал бы еще раз уебаться, пошел бы погулять. а то как раз дождик моросит.

эм, немного не въехала. Х) ну, я попозже свалю гулять точно, а потом историю делать - этот ужас =.= в прошлый раз я 47 страниц дз написала, так что сюда скорее всего не вернусь Хд А пока что надо видео догрузить >__<

Allen Walker, давай завтра как с МРТ приду а?
TerryDein, забей, седня просто веселуха одна была, до сих пор охуеваю

мля. я ток с массивом закончил. (и то ересь какая то)

да пошло оно на хер =_=
ебанны

блядь ><

Kanda Yuu,

так. поехали.

var
    u: string;
    ws: array[1..100] of string;
    w: string;
    len, i, j, q, min, max: integer;

begin
{ввод предложения}
    writeln('vvedite tekst ');
    read(u);
    len := length(u);

    i := 1;

{разбиена его на массив}
    while i <= len do
         if (lowercase(u[i]) >= 'a') and (lowercase(u[i]) <= 'z') and (lowercase(u[i]) >= '0') and (lowercase(u[i]) <= '9') begin
            w := lowercase(u[i]);
            i := i + 1;
            while (i <= len) and
            ((lowercase(u[i]) >= 'a') and
            (lowercase(u[i]) <= 'z')) and
            (lowercase(u[i]) >= '0') and
            (lowercase(u[i]) <= '9') do begin
                w := w + lowercase(u[i]);
                i := i + 1;
            end;
            j := 1;
            while (j <= q) and (w<>ws[j]) do
                j := j + 1;
            if j > q then begin
                q := q + 1;
                ws[q] := w;
            end;
        end
        else
            i := i + 1;

    for i := 1 to q do
        writeln(ws[i]); {вывод получившегося массива на экран}
   for i:= 1 to q do
         begin
             if length(ws[i])> length(ws[i]+1) then max:=i
             else max:= i+1;
        end;
   for i:= 1 to q do
         begin
             if length(ws[i])< length(ws[i]+1) then min:=i
             else min:= i+1;
        end;
writeln ('korotkoe slovo', ws[min]);
writeln ('dlinnoe slovo'? ws[max])
readln;
end.

примерно так оО

Отредактировано Howard Link (2012-04-16 19:22:59)

Allen Walker, TerryDein, вот и славненько, а я пошел-ка прилягу от греха подальше

Принесла учительница рисования на урок скульптуру обнаженной женщины.
- Линали, скажи, какая часть этой скульптуры тебе больше всего нравится?
- Плечи, руки…
- Молодец. А тебе, Дебитто?
- Груди!
- Так, пошел вон из класса! Ну а тебе, Лави?
- Все, ухожу, ухожу…

Howard Link,  в общем... за такой код тетка меян хотела повесить хд
в итоге чего оставила меня после занятий и сказала пока не решу не пустит =___=
пришлось думать. и как оказало в два действия алгоритм выписал .____.

Howard Link, В смысле? о.О Что вы там вытворяли?!

я как всегда не теми тягулями шел. основная моя беда.

*Дочитал*

program var8;
uses CRT;
var s:string; i,min,max,dlina:integer;
begin
Clrscr;
writeln ('введите строку');
readln (s);
min:=50;
max:=0;
dlina:=0;
l:=length(s);
  begin
for i:=1 to l do
if s[i]=' ' then
              begin
              if dlina>max then max:=dlina;
              if dlina<min then min:=dlina; dlina:=0; end;
if s[i]<>' ' then
              begin
              if dlina>max then max:=dlina;
              if dlina<min then min:=dlina; dlina:=0; end;
end;
writeln ('самое длинное', max);
writeln ('самое короткое', min);
readln;
end.

ну у меня и память о.о хдд
хотя надо было бы сохранить листок и проверить правильно или не запомнил -потер затылок-

говори какие, попробую рассказать что к чему пока сам не забыл Хд

недалеко от меня Хдд

нее, Минск, но насколько я помню, до речицы пару часов на велике оо

Kanda Yuu, ты как из в массив вбивал? по пробелам? если да то

после этого вроде должна стоять была s:=s+ ' '
или я ошибаюсь?

и этот момент. я на сколько помню нам говорили разделять такие вещи, сначала одно, потом другое.

смотря как ехать Оо

я тоже так посчтал и ошибсЯ, тетка сказала что не надо, ибо тогда минимальные оно считает всегда за ноль, так как с пробела ведет счет хх

ну насчет разделения х\з Оо в школе мы такого не проходили, а тетя нам твердит чем корчое и проще запись тем легче Оо

Kanda Yuu, Юу, раз он начинает считать с пробела, то получается, что первое слово он не считает?

да, вот именно поэтому ее и надо было убрать, тогда оно начинает читать с начала строки и выдает и краткое и длинное слово

ни*ра не понял.
TerryDein, *сунул в руки девушке чашку горячего чая*

TerryDein, дык это вечная проблема!