ПАСКАЛЬ АВС: ПРОБЛЕМА С СУММАТОРОМ
Пытаюсь сделать сумматор чисел, хочу сделать, чтобы 3-е слагаемое можно было добавить на выбор: словами "Да" или "Нет" (в программе вместо слов цифры через переменную char), почему-то поле ввода пропадает на этапе выбора. Укажите где ошибка и как ее исправить, отдельно отблагодарю за приложение примера работающей программы. Заранее спасибо!
restIess:
свою программу прикрепите, так проще будет
var
a,b,c,d:real;
e:string;
begin
writeln('######СУММАТОР######');
writeln(' ');
write('Введите первое слагаемое (вводите десятичные дроби через точку): ');
read(a);
write('Введите второе слагаемое: ');
read(b);
write('Введите второе слагаемое: ');
read(e );
if e = '0' then
begin
write('Введите третье слагаемое: ');
read (d);
c := (a+b+d);
writeln('Сумма слагаемых равна ',c,'.');
end;
if e = '1' then
begin
c := (a+b);
writeln('Сумма слагаемых равна ',c,'.');
end;
end.
read(e ); Для чего это вообще?
Ответы
Ответ дал:
1
program summator;
uses
crt;
var
a, b, c, s: real;
var
cmd: string;
begin
writeln('Сумматор v.2.0 активирован');
writeln;
writeln('Введите первое слагаемое:');
readln(a);
writeln('Введите второе слагаемое:');
readln(b);
writeln('Хотите добавить третье слагаемое?');
writeln(' ("Да" либо "Нет")');
readln(cmd);
if (cmd = 'Да') or (cmd = 'да') then
begin
writeln('Введите третье слагаемое:');
readln(c);
s := a + b + c
end
else
s := a + b;
writeln('Сумматор выполнил задачу: ', s);
readln;
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад