Задание 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 в режиме диалога, записывать алгоритм решения задач своего варианта. Познакомиться с диагностическими сообщениями компилятора об ошибках при выполнении программ.
1 | 2 | Поиск по сайту:
|