Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ В чем же ошибка?

Автор: V1P 23.10.2006 16:24

Вот условие задачи:Составить программу,осуществляющую перевод величин из радианной меры в градусную или наоборот.Программа должна запрашивать,какой перевод нужно осуществить,и выполнить указанное действие.
Вот код программы:

program numb67;
uses crt;
var
a : integer;
f,x:real;
begin
clrscr;
write('vvedi 1 dlya perevoda i3 gradusov v radiani ili 2 dlya perevoda radian v gradusi = ');
readln(a);
If (a=1) then
write('vvedi kol-vo gradusov = ');
readln(x);
f:=x*3.14/180 ;
writeln('v radianah eto budet',f:6:2);
If (a=2) then
write('vvedi kol-vo radian = ');
readln(x);
f:=x*180/3.14 ;
writeln('v gradusah eto budet',f:6:2);
readln;
end.

Но он почему-то не выводит мне результат =( может кто подскажет в чем проблема?

Автор: мисс_граффити 23.10.2006 16:46

program numb67;
uses crt;
var
a : integer;
f,x:real;
begin
clrscr;
write('vvedi 1 dlya perevoda i3 gradusov v radiani ili 2 dlya perevoda radian v gradusi = ');
readln(a);
If (a=1) then
begin { *** <--- *** }
write('vvedi kol-vo gradusov = ');
readln(x);
f:=x*3.14/180 ;
writeln('v radianah eto budet',f:6:2);
end; { *** <--- *** }
If (a=2) then
begin { *** <--- *** }
write('vvedi kol-vo radian = ');
readln(x);
f:=x*180/3.14 ;
writeln('v gradusah eto budet',f:6:2);
end; { *** <--- *** }
readln;
end.

Автор: V1P 23.10.2006 17:10

Сенкс!