[solni6ko1991]

1. Дано два числа. Верно ли, что в их записи есть одинаковые цифры? Например, 514 и 233 - неверно, 1248 и 347 -верно.
2. Известны данные о стоимости каждой из 15 моделей автомобилей и об их типе (легковой или грузовой). Найти среднюю стоимость легковых автомобилей. Все результаты поместить в текстовый файл.
3. Изобразить опускающийся парашют.
Ребят, помогите.

[Страдалецъ]

1. Преобразовать числа в строки, обходить посимвольно первое число, сверяясь с цифрами второго.
2. Тоже елементарно. Сделать запись с полями Тип,Сумма. Сделать массив записей. Пройтись циклом по массиву проверяя на тип и суммируя стоимость. Одновременно подсчитывать количество совпавших.
В итоге полученные суммы поделить на количество по каждому типу.

3. Не надо повторятся.

[pesi]

на первый вопр.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

var   s1,s2,s3:string;   i,p, position : Integer; begin p:=0; s1:=edit1.Text; //что ищем s2:=edit2.Text; //в чем ищем for i := 1 to Length(s2) do begin s3:=Copy(s1, i, 1); position := ansiPos(s3, s2); if position <> 0  then inc(p); end; if p>0 then ShowMessage('Верно') else  ShowMessage('Не верно'); end;

[Страдалецъ]

Можно несколько покороче:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

Var   i,j: Integer;   Found: Boolean; begin  Found := False;  for i := 1 to Length(Edit1.Text)  do for j := 1 to Length(Edit2.Text)     do if Edit1.Text[i] = Edit2.Text[j]        then Found := True;  if Found then ShowMessage('Есть')  else ShowMessage('Нет') end;

или так:

Код:

1 2 3 4 5 6 7 8 9 10 11

Var   i: Integer;   Found: Boolean; begin  Found := False;  for i := 1 to Length(Edit1.Text)  do if Pos(Edit1.Text[i],Edit2.Text) <> 0     then Found := True;  if Found then ShowMessage('Есть')  else ShowMessage('Нет') end;

вторая задача так, только вывод в файл сделайте сами:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Var   PriceList: Array[1..15] of TTransport;   i, Count: Integer;   Average: Real; begin  for i := 1 to 15  do begin     case Random(2)     of 0: PriceList[i].ModelType := 'Легковой';        1: PriceList[i].ModelType := 'Грузовой';     end;     PriceList[i].Price := (1+Random(9))*10000;     end;  Average := 0;  Count := 0;  for i := 1 to 15  do begin     if PriceList[i].ModelType = 'Легковой'     then begin          Average := Average + PriceList[i].Price;          Inc(Count);          end;     end;  Average := Average / Count;  ShowMessage('Средняя сумма ='+FloatToStr(Average)+' Совпало='+IntToStr(Count)); end;