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

Primary tabs

Submitted by Aleksandr on Wed, 07/21/2021 - 20:29

Forums:

link

Есть программа, где пользователь вводит число 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 сравнения, при этом код можно переписать так, что при вводе одного из двух значений, которые приводят к выводу сообщения, сравнение будет выполняться только один раз.

Перепишите программу оптимальным образом.

program lesson9_9;
var s:integer;
begin
    writeln('Vvedite chislo 1 ili 5');
    readln(s);
    if s = 1 then
       writeln('soobchenie 1')
    else
        writeln('soobchenie 2');
    readln();
end.
  • Log in to post comments
  • 1663 reads
vedro-compota's picture

vedro-compota

Sun, 07/25/2021 - 12:07

как будет работать данная программа (переписанный код) для напр. s=6

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

Aleksandr

Tue, 07/27/2021 - 15:47 

program lesson9_9;
var s:integer;
begin
    writeln('Vvedite chislo 1 ili 5');
    readln(s);
    if s = 1 then
       writeln('soobchenie 1')
    else if s = 5 then
        writeln('soobchenie 2');
    readln();
end.
vedro-compota's picture

vedro-compota

Tue, 07/27/2021 - 18:32

решение засчитано

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