Question

Разработать алгоритм, реализующий последовательность действий сказки «Колобок». Написать программу в Паскале.

Answer 1

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Program skazka; Uses crt; const n:string= 'nalevo';       a:string= 'napravo';       v:string= 'vpered'; Var p:string; begin clrscr;  writeln (' Kyda poidet geroi? nalevo,napravo ili vpered?');  readln (p);  if p=n then writeln ('Nalevo poidet - kon9 poter9et ');  if p=a then writeln ('Napravo poidet - cam propadet ');  if p=v then writeln ('Vpered poidet - nevesty naidet '); Readln end.

Answer 2

Вот пример реализации сказки "Колобок" на языке Pascal:

pascalCopy code
program Kolobok;

uses
  SysUtils;

procedure PrintAndWait(s: string);
begin
  Writeln(s);
  Sleep(2000);
end;

procedure KolobokStory();
begin
  PrintAndWait('Жили-были дед да баба.');
  PrintAndWait('И была у них колобок.');
  PrintAndWait('Вылепили дед да баба колобок.');
  PrintAndWait('Поставили колобок на окошечко, а колобок по оконцу и покатился.');
  PrintAndWait('Катится колобок по дорожке.');
  PrintAndWait('Встретил колобок зайца:');
  PrintAndWait('- Колобок, колобок, я тебя съем!');
  PrintAndWait('Но колобок от зайца убежал.');
  PrintAndWait('Катится колобок дальше.');
  PrintAndWait('Встретил колобок волка:');
  PrintAndWait('- Колобок, колобок, я тебя съем!');
  PrintAndWait('Но колобок от волка убежал.');
  PrintAndWait('Катится колобок дальше.');
  PrintAndWait('Встретил колобок медведя:');
  PrintAndWait('- Колобок, колобок, я тебя съем!');
  PrintAndWait('Но колобок от медведя убежал.');
  PrintAndWait('Катится колобок дальше.');
  PrintAndWait('Встретил колобок лису:');
  PrintAndWait('- Колобок, колобок, я тебя съем!');
  PrintAndWait('И колобок остался на лисе.');
  PrintAndWait('Сказка кончилась.');

end;

begin
  KolobokStory();
end.

Этот пример содержит алгоритм сказки "Колобок" на языке Pascal. Программа выводит текст сказки в консоль с задержкой между выводом каждой фразы.