Оператор цикла с предусловием While. Оператор цикла с пост условием Repeat

[McMilin]

5. В закусочной имеется список из десяти блюд, который выводится на экран. Покупатель может выбрать нужное количество любых из этих блюд. По окончании выбора на экран выводится сумма, которую должен уплатить покупатель за выбранные блюда.
помогите решить

[bill]

Тут по идее не нужны While и Repeat. Только if. Вводите блюда, потом требуется чтобы пользователь ввел те блюда(можно цифрами- № блюда), которые он хочет. Потом идет проверка выбранных блюд и на экран выдается сумма(счет). Я так понимаю.

[McMilin]

у меня задание сделать через Оператор цикла с предусловием While. Оператор цикла с пост условием Repeat

[kommunist]

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

 
program a;
uses crt;
const n = 10;
type vec = array [1..n] of string = ('здесь введш свои блюда в опострафах и через запятую);
       cena = array[1..n] of integer =('здесь цены для каждого блюда');
var a:vec;
     b:cena;
     i:integer;
     vib:string; //люда которые выбрали
     summa:integer;
begin
 clrscr;
 writeln('menu);
 readln(a[i]);
 summa:=0
 vib:=0;
 writeln('сделайте заказ');
for i:= 1 to n do
begin
readln(vib);
if vib:=a[i] then 
inc(cena,b[i]);
end;
writeln('ваш счет:',cena);
readkey;
end;
end.

[kommunist]

если через while или repeat то тогда какое условие выхода из цикла?

[Alex21]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
N=5;    // всего блюд
ye=' rub.'; // условные еденицы

type bludo=Record         //запись блюдо
     Name  : string[12];  // название
     Price : real;        // цена
  end;

var
  b:array[1..N] of Bludo;
  i    :integer;        // номер выбранного блюда
  kolvo:integer;        // кол-во
  sum:real;             // сумма общая

procedure Load;
begin
{создаем прайс лист}
  b[1].Name:='Apple';     b[1].Price:=12.43;
  b[2].Name:='Orange';    b[2].Price:=14.89;
  b[3].Name:='Lime';      b[3].Price:=18.36;
  b[4].Name:='Tea';       b[4].Price:=1.87;
  b[5].Name:='Coffe';     b[5].Price:=2.56;
end;

procedure Menu;
begin
Load; // создаем прайс лист
{загружаем прайс лист}
Writeln('*** M-E-N-U ***');
  for i:=1 to N do
  begin
    Writeln(i,'. ',b[i].Name:12,' : ',b[i].Price:4:2,ye);
  end;
Writeln('******');
Writeln('nomber of position(1-',N,'), or 0 - exit');
end;

procedure zakaz;
begin
sum:=0;
  repeat
  begin
  {предлагаем ввести номер блюда,
  для выхода нужно ввести 0}
    Write('nomber : ');
    Readln(i);
    if (i<>0) then
    begin
    {если номер введен верно, то
    спрашиваем кол-во}
      Write('Kol-vo : ');
      ReadLn(kolvo);
      {увеличиваем сумму на Цена*Колво}
      sum:=sum+(b[i].Price*kolvo);
    end;
  end;
  {если введен 0, то ..}
  until (i=0)or (kolvo=0);
  Writeln('-------');
  {вывод результата}
  WritelN('sum = ',sum:4:2,ye);
end;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  Menu;   // создание и вывод меню
  zakaz;  // делаем заказы
  readln;
end.

[Alex21]

Для оператора WHILE код тот же, небольшие изменения в процедуре ZAKAZ;

procedure zakaz;
label lab;
begin
sum:=0;
lab:
  begin
  {предлагаем ввести номер блюда,
  для выхода нужно ввести 0}
    Write('nomber : ');
    Readln(i);
    while (i<>0) do
    begin
    {если номер введен верно, то
    спрашиваем кол-во}
      Write('Kol-vo : ');
      ReadLn(kolvo);
      {увеличиваем сумму на Цена*Колво}
      sum:=sum+(b[i].Price*kolvo);
      goto lab;
    end;
  end;

  Writeln('-------');
  {вывод результата}
  WritelN('sum = ',sum:4:2,ye);
end;

[McMilin]

спасибо что помогли