Размещено 4 года назад по предмету Информатика от Atatushka

Составить программу, которая выводит на экран меню:

1) первое;

2) второе;

3) третье;

и в зависимости от выбранного пункта выдаёт одну из надписей: «Получите суп», «Получите картошку», «Получите компот», «Оставайтесь голодным». Написать два варианта программы: с использованием условного оператора if и с использованием переключателя.

Ответ на вопрос

Ответ на вопрос дан Alphaeus

Program Atatushka1;
uses crt;
var
M:Integer;
begin
writeln('***************************************');
writeln('*    Мы рады приветствовать вас       *');
writeln('*         в нашем ресторане           *');
writeln('*         A T A T U S H K A           *');
writeln('*               ! ! !                 *');
writeln('***************************************');
writeln();
writeln('***************************************');
writeln('*              М Е Н Ю :              *');
writeln('* 1. Первое                          *');
writeln('* 2. Второе                          *');
writeln('* 3. Третье                          *');
writeln('*                                     *');
writeln('***************************************');
writeln();
writeln('Введите номер желаемого блюда:');
readln(M);
writeln();
if m=1 then
      writeln('Получите суп')
    else
      if m=2 then
          writeln('Получите картошку')
        else
          if m=3 then
              writeln('Получите компот')
            else
              writeln('Оставайтесь голодным');
end.

Program Atatushka2;
uses crt;
var
M:Integer;
begin
writeln('***************************************');
writeln('*    Мы рады приветствовать вас       *');
writeln('*         в нашем ресторане           *');
writeln('*         A T A T U S H K A           *');
writeln('*               ! ! !                 *');
writeln('***************************************');
writeln();
writeln('***************************************');
writeln('*              М Е Н Ю :              *');
writeln('* 1. Первое                          *');
writeln('* 2. Второе                          *');
writeln('* 3. Третье                          *');
writeln('*                                     *');
writeln('***************************************');
writeln();
writeln('Введите номер желаемого блюда:');
readln(M);
writeln();
case m of
    1: writeln('Получите суп');
    2: writeln('Получите картошку');
    3: writeln('Получите компот');
    else writeln('Оставайтесь голодным');
end;
end.
Ответ на вопрос

Ответ на вопрос дан Sky09

uses crt;
var m:integer;
begin
writeln('1) первое');
writeln('2) второе');
writeln('3) третье');
read(m);
if m=1 then write('получите суп');
if m=2 then write('получите картошку');
if m=3 then write('получите компот')
else write('оставайтесь голодным');
end.

uses crt;
var m:integer;
begin
writeln('1) первое');
writeln('2) второе');
writeln('3) третье');
read(m);
case m of
1:write('получите суп');
2:write('получите картошку');
3:write('получите компот');
else write('оставайтесь голодным');
end;
end.