Задание 3. writeln ('vvedite znachenie cos(a)');

program blokshema3;

uses crt;

Var A,s, t, c:real;

begin

clrscr;

writeln ('vvedite znachenie cos(a)');

readln (a);

s:= sqrt(1-cos(a));

t:=sin(a)/cos(a);

c:=cos(a)/sin(a);

writeln ('cos(a)= ',a:1:0,' ','sin(a)= ',s:1:0,' ','tg(a)= ',t:1:0,' ','ctg(a)= ',c:1:0,' ');

readln;

end.

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

Поиск по сайту: