Помощь - Поиск - Пользователи - Календарь
Полная версия: В чем же ошибка?
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
V1P
Вот условие задачи:Составить программу,осуществляющую перевод величин из радианной меры в градусную или наоборот.Программа должна запрашивать,какой перевод нужно осуществить,и выполнить указанное действие.
Вот код программы:
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.

Но он почему-то не выводит мне результат =( может кто подскажет в чем проблема?
мисс_граффити
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
Сенкс!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.