Вопрос Pascal, программа. .

[danis]

Перепишите программу, не прибегая к процедуре Break. В чем,

по-вашему, слабость этого второго варианта? Можно ли обойтись в программе без булевой переменной R и строковой S? Напишите такой вариант

программы. var A, B, C : integer;

R: Boolean;

S: string;

begin

repeat

Write(’Первый сомножитель A = ’); Readln(A);

Write(’Второй сомножитель B = ’); Readln(B);

Write(’Произведение A*B = ’); Readln(C);

if C=0 then break;

R:= A*B=C;

if R

then S:= ’Правильно!’

else S:= ’Ошибка!’;

Writeln(S);

until false;

end.

 

[Monster]

То, что внутри цикла не будет break - это не слабость, а достоинство кода.
В структурном программировании, направленном на написание надёжного кода, каждая конструкция должна иметь единственную точку входа и единственную точку выхода. И в нормальном Pascal никаких break и continue не существует: такое есть только в PascalABC.NET, который не имеет никакого отношения к Pascal и представляет собой C#, загримированный под Pascal.

Если же код выглядит "нелогично", как утверждает нейросеть в соседнем ответе, то он просто разбивается на несколько подпрограмм, каждая из которых занимается своей частью работы.

 

[xextkj]

>В чем, по-вашему, слабость этого второго варианта?
Ни в чем. Какая тут может быть "слабость"? Собссно, смотри код ниже - красивый, стройный, чистый код, никаких заморочек и "слабостей".

>Можно ли обойтись в программе без булевой переменной R и строковой S?
Можно запросто.

>Напишите такой вариант
Да пожалуйста (классический паскаль без наворотов):

function GetInt(_Prompt: string): Integer;
var
r: Integer;
begin
Write(_Prompt+': '
ReadLn(r);
GetInt := r;
end;

function ResultOK(a,b,c: Integer): string;
begin
if (a*b=c) then
ResultOK := 'Right'
else
ResultOK := 'Wrong';
if (c=0) then
ResultOK := '';
end;

var
a,b,c: Integer;
begin
repeat
a := GetInt('Enter first multiplier'
b := GetInt('Enter second multiplier'
c := GetInt('Enter multiplication'
WriteLn(ResultOK(a,b,c));
until c=0;
end.

 

[саня4848]

1. Вариант без Break: var A, B, C : integer;
R: Boolean;
S: string;
begin
repeat
Write('Первый сомножитель A = ' Readln(A);
Write('Второй сомножитель B = ' Readln(B);
Write('Произведение A*B = ' Readln(C);
if C<>0 then begin
R:= A*B=C;
if R
then S:= 'Правильно!'
else S:= 'Ошибка!';
Writeln(S);
end;
until C=0;
end.


2. Оптимизированный вариант без R и S:
var A, B, C : integer;
begin
repeat
Write('Первый сомножитель A = ' Readln(A);
Write('Второй сомножитель B = ' Readln(B);
Write('Произведение A*B = ' Readln(C);
if C<>0 then
if A*B=C
then Writeln('Правильно!&#39
else Writeln('Ошибка!'
until C=0;
end.


Слабость первого варианта (без Break) в том, что условие выхода (C=0) проверяется только в конце цикла, после выполнения всех действий внутри него. Это менее логично с точки зрения структуры программы, так как проверка на выход должна происходить сразу после ввода данных. Поэтому приходится использовать дополнительную проверку if C<>0 внутри цикла, чтобы не выводить сообщение при завершающем значении.

 

[Dark_Horset]

a = int(input())
b = int(input())
c = int(input())

if c != (a+b):
print("ошибка&#34
else:
print("верно&#34