Неверный результат в программе с условными операторами - Pascal
Формулировка задачи:
Вместо результата всегда пишет-0
program vareniki;
var a: char; g,b,c: single;
begin
writeln ('На какой планете вы живёте?');
readln (a);
writeln (a);
if a='Земля' then g:=10;
if a='Меркурий' then g:=3.7;
if a='Венера' then g:=8.87;
if a='Юпитер' then g:=24.79;
if a='Марс' then g:=3.76;
if a='Сатурн' then g:=7.21;
if a='Уран' then g:=8.43;
if a='Нептун' then g:=10.71;
if a='Плутон' then g:=0.81;
writeln ('Сколько кг вареников вы хотите приобрести?');
readln (b);
c:=b*g*300;
write ('Cтоимость ваших вареников-',c,'синих пуговиц с шестью дырками.')
end.Решение задачи: «Неверный результат в программе с условными операторами»
textual
Листинг программы
program vareniki;
var a: string; g,b,c: single;
begin
writeln ('На какой планете вы живёте?');
readln (a);
writeln (a);
if a='Земля' then g:=10;
if a='Меркурий' then g:=3.7;
if a='Венера' then g:=8.87;
if a='Юпитер' then g:=24.79;
if a='Марс' then g:=3.76;
if a='Сатурн' then g:=7.21;
if a='Уран' then g:=8.43;
if a='Нептун' then g:=10.71;
if a='Плутон' then g:=0.81;
writeln ('Сколько кг вареников вы хотите приобрести?');
readln (b);
c:=b*g*300;
write ('Cтоимость ваших вареников-',c,'синих пуговиц с шестью дырками.')
end.
Объяснение кода листинга программы
- В программе объявлены три переменные: a, g и b. Переменная a типа string, переменные g и b типа single.
- Выводится вопрос о том, на какой планете пользователь живет.
- Считывается ответ пользователя.
- Проверяется, совпадает ли ответ пользователя с одним из вариантов ответа. Если да, то присваивается значение переменной g.
- Вычисляется стоимость вареников, используя значения переменных a, g и b.
- Выводится сообщение с результатом вычислений.