VPF::сформировать запись Игрушка - Форум программистов

ДашкаТутынина

Дата 1.6.2013, 09:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 1.6.2013
Где: Тюмень

Репутация: нет
Всего: нет

есть вот такая задача :
Сформировать запись, имеющую следующую структуру
type игрушка=record название:string;
цена:integer;
возраст1:1..16;
возраст2:1..16;
end;
и определить:
o название самой дорогой игрушки;
o список игрушек, которые подходят детям данного возраста;
o подобрать игрушки на данную сумму денег (все варианты).
вот то, что есть (pascal):

Код


program ppc;
type igr = record
   cena:integer;
   nazv: string;
   vozr1: integer;
   vozr2: integer;
   end;
var q: array [1..5] of igr;
   i,j,z,kol,nabor,minn: integer;
   d:string;
  vozrisk, vopros, summa,summ: integer;
begin
 for z:=1 to 5 do
    begin
    for i:=1 to 4 do
    begin
    with q[i] do
      if q[i].cena<q[i+1].cena then 
      begin
         minn:=q[i].cena;
      end
      else 
      begin
         minn:=q[i+1].cena;
      end;
    end;
    end;
  for i:=1 to 5 do
    with q[i] do
    begin
    writeln ('введи название игрушки');
    readln (nazv);
    writeln ('цена игрушки');
    readln (cena);
    writeln ('промежуток возраста для игрушки');
    readln (vozr1);
    readln (vozr2);
    end;
    repeat
    begin
    writeln('ответ на какой вопрос узнать?');
    writeln('1. Самая дорогая игрушка?');
    writeln('2. список игрушек для ребенка данного возраста?');
    writeln('3. список игрушек на заданную сумму?');
    writeln('4. выход');
    readln(vopros);
    case vopros of
    1: begin
    writeln('дорогая игрушка: ');
   for z:=1 to 5 do
    begin
    for i:=1 to 4 do
    begin
    with q[i] do
      if q[i].cena>q[i+1].cena then d:=q[i].nazv
      else d:=q[i+1].nazv;
    end;
    end;
    writeln(d); end;
    2:   begin
    writeln('введите возраст ребенка(1-16): ');
    readln(vozrisk);
    for i:=1 to 5 do
    begin
    with q[i] do
    begin
      if (vozrisk>=q[i].vozr1) and (vozrisk<=q[i].vozr2)
      then 
      begin
      inc(kol);
      writeln(q[i].nazv);
      end;
      if kol=0 then writeln ('нет таких игрушек');
      end;
      end;
      end;
     3: begin
     writeln('введите имеющуюся сумму денег');
     readln(summa);
     writeln('можно купить: ');
     ... {вот как тут делать, а?}
     4: exit;
     else writeln('нет такой команды');
     end;
     end;
      until vopros=(1 or 2 or 3);
     end.

помогите с третьим условием, пожааааалуйста smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »