У меня вот задача:
Найти сумму чисел, вводимых с пульта, и среднее арифметическое этих чисел, если они заранее неизвестны. Программа должна суммировать только четные числа.
Вот что у меня получилось:
program sum6;.
var
S: real;
str: string;
a, ch: integer;
Begin
ch:=0;
S:=0;
Writeln ('С помощью этой программы можно вычислить сумму любого количества четных чисел и их среднее арифметическое. Вас это интересует? Д/Н');
Readln(str);
if str='Д' then
Begin
Writeln ('В таком случае введите первое число');
Readln (a);
if (a mod 2 = 0) then
begin
While str='Д' do
begin
s:=s+a;
ch:=ch+1;
writeln ('Еще вводить числа будете? Д/Н');
Readln(str);
if str='Д' then begin writeln ('Введите число'); readln (a); end;
end;
write ('S=', S, 'Среднее арифметическое', S/ch);
end
else write ('Вы ввели нечетное число!');
readln;
end
else write ('Извините, эта программа не для Вас.');
readln;
end.
var
S: real;
str: string;
a, ch: integer;
Begin
ch:=0;
S:=0;
Writeln ('С помощью этой программы можно вычислить сумму любого количества четных чисел и их среднее арифметическое. Вас это интересует? Д/Н');
Readln(str);
if str='Д' then
begin
writeln('В таком случае введите первое число');
repeat
Readln(a);
if(a mod 2=0) then
begin
s:=s+a;
ch:=ch+1;
end
else
writeln('Вы ввели нечетное число!');
writeln ('Еще вводить числа будете? Д/Н');
readln(str);
until str='Н';
write ('S=', S:0:0, 'Среднее арифметическое', S/ch:0:2);
end
else
write ('Извините, эта программа не для Вас.');
readln;
end.
Вводим букву 'Д' потом число 3 потом букву 'Н' и о чудо, получаем DivByZero !
if ch<>0 then
write ('S=', S:0:0, 'Среднее арифметическое', S/ch:0:2)
else
write('Не было введено ни одного четного числа');
Спасибо вам огромное, но можно вас еще помучать и попросить как нибудь заменить until? Мы просто этого еще не проходили, а эта задача на while!
var
S: real;
str: string;
a, ch: integer;
Begin
ch:=0;
S:=0;
Writeln ('С помощью этой программы можно вычислить сумму любого количества четных чисел и их среднее арифметическое. Вас это интересует? Д/Н');
Readln(str);
if str='Д' then
begin
writeln('В таком случае введите первое число');
while str='Д' do
begin
Readln(a);
if (a mod 2=0) then
begin
s:=s+a;
ch:=ch+1;
end
else
writeln('Вы ввели нечетное число!');
writeln ('Еще вводить числа будете? Д/Н');
readln(str);
end;
if ch<>0 then
write ('S=', S:0:0, 'Среднее арифметическое', S/ch:0:2)
else
write('Не было введено ни одного четного числа');
end
else
write ('Извините, эта программа не для Вас.');
readln;
end.