Задача 9 Урок 9

Primary tabs

Submitted by exotick777 on Sat, 08/07/2021 - 18:02

Forums:

Задача 9 Урок 9


Есть программа, где стоит проверка на ввод пользователем числа 1 или числа 5:

var s:integer;
begin
    writeln('Vvedite chislo 1 ili 5');
    readln(s);
    if (s = 1) then
       writeln('soobchenie 1'); 
    if (s = 5) then
        writeln('soobchenie 2'); 
    readln();
end;


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

 var
    s:integer;
begin
  writeln('Vvedite chislo ot 1 do 5: ');
  readln(s);
  writeln();
  if (s=1) then
   writeln ('Soobshenie 1')
  else
   writeln ('Soobshenie 2');
   readln();
end.
  • Log in to post comments
  • 1307 reads
vedro-compota's picture

vedro-compota

Sun, 08/08/2021 - 12:05

программы должны работать одинаково

_____________
матфак вгу и остальная классика =)

exotick777

Sun, 08/08/2021 - 16:08

Исправлено

var
    s:integer;
begin
  writeln('Vvedite chislo ot 1 do 5: ');
  readln(s);
  writeln();
  if (s=1) then
   writeln ('Soobshenie 1')
  else if (s=5) then
   writeln ('Soobshenie 2');
  readln();
end.