yarovikova1981

Напишите алгоритм приготовления какого либо блюда (алгоритм должен иметь линейную структуру)

Ответы

Ответ дал: iRandy

Приготовление плова 1. свинину моем, режем на небольшие кусочки. 2. рис моем, заливаем водой. 3. лук чистим, режем полукольцами. 4 морковь чистим, режем соломкой. 5. в казане разогреваем растительное масло, 6 поджариваем лук. 7 добавляем мясо 8 обжариваем на сильном огне со всех сторон. 9 добавляем морковь. 10 жарим еще 10 минут 11. солим, 12перчим, 13заливаем кипятком, чтобы покрыло сверху, 14тушим 20 минут на небольшом огне под крышкой. 15. зубчики чеснока равномерно раскладываем на мясо. 16. сливаем с риса воду и засыпаем его сверху на мясо. 17доливаем кипятка столько, чтобы покрыло рис. 18тушим на медленном огне под крышкой до готовности риса (около часа). при необходимости можно долить немного кипятка.

Спасибо

Ответ дал: Гость

type adrcel=^element; element=record info: integer; next: adrcel; end; var start,last,new_el: adrcel; i: integer;

procedure del2(var start: adrcel);

var

p: adrcel;

begin

p: =start^.next;

if p< > nil then start^.next: =p^.next

end;

begin start: =nil; last: =nil; new_el: =nil; repeat new(new_el); write('info='); readln(new_el^.info);

new_el^.next: =nil; if start=nil thenstart: =new_el; else begin

last: =start;

while last^.next< > nil do last: =last^.next; last^.next: =new_el; end; write('продолжить? (1-да/0-нет): '); readln(i); until i=0; writeln('удалим 2-й элемент');

del2(start);

new_el: =start; while new_el< > nil do begin write(new_el^.info: 4); new_el: =new_el^.next; end; readln; end.

Ответ дал: Гость

3 учеников этого класса любят все три вида спорта