Неверный результат в программе с условными операторами

@BlueWater · Регистрация: 03.09.2014

Студворк — интернет-сервис помощи студентам

Вместо результата всегда пишет-0

Pascal

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.

@Darth Coder · 03.09.2014, 20:32

Сообщение от BlueWater

var a: char

как в char влезет больше одного символа?Ифы не срабатывают, поэтому g=0 => c=0

Char надо заменить на String

Pascal

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.

@BlueWater · 03.09.2014, 20:35 **[ТС]**

Спасибо большое!

Добавлено через 25 секунд
Darth Coder, Спасибо большоеDarth Coder,

@BlueWater 0 / 0 / 0 Регистрация: 03.09.2014 Сообщений: 2
	03.09.2014, 20:35 [ТС]	3
	Спасибо большое! Добавлено через 25 секунд Darth Coder, Спасибо большоеDarth Coder, 0

Опции темы