Даю 80 баллов!! Скласти таблицю функції tg(x) на інтервалі (0°,45°) із кроком 5°. Написать код программы на языке Pascal
Ответы
Ответ дал:
0
Ответ:
Объяснение:
program Hello;
var i : Integer;
var tan, rad : Real;
begin
i:=0;
while i <= 45 do
begin
rad := i / 57.2957795131;'перевод в радианы'
tan := sin(rad)/cos(rad);'в паскале нет тангенса, вычисление через sin и cos'
writeln('tg(', i, ') = ', tan:4:3);
i := i+5;'шаг'
end;
end.
greciochs:
а можно через цикл for, а не while? пожалуйста
сек
program Hello;
var i : Integer;
var tan, gradusi, radiani : Real;
begin
for i:=0 to 9 do
begin
gradusi := i * 5;{вычисление градусов}
radiani := gradusi / 57.2957795131;
tan := sin(radiani)/cos(radiani);{в паскале нет тангенса, вычисление через sin и cos}
writeln('tg(', i, ') = ', tan:4:3);
end;
end.
var i : Integer;
var tan, gradusi, radiani : Real;
begin
for i:=0 to 9 do
begin
gradusi := i * 5;{вычисление градусов}
radiani := gradusi / 57.2957795131;
tan := sin(radiani)/cos(radiani);{в паскале нет тангенса, вычисление через sin и cos}
writeln('tg(', i, ') = ', tan:4:3);
end;
end.
program Hello;
var i : Integer;
var tan, gradusi, radiani : Real;
begin
for i:=0 to 9 do
begin
gradusi := i * 5;{вычисление градусов}
radiani := gradusi / 57.2957795131;
tan := sin(radiani)/cos(radiani);{в паскале нет тангенса, вычисление через sin и cos}
writeln('tg(', gradusi:2:0, ') = ', tan:4:3);
end;
end.
var i : Integer;
var tan, gradusi, radiani : Real;
begin
for i:=0 to 9 do
begin
gradusi := i * 5;{вычисление градусов}
radiani := gradusi / 57.2957795131;
tan := sin(radiani)/cos(radiani);{в паскале нет тангенса, вычисление через sin и cos}
writeln('tg(', gradusi:2:0, ') = ', tan:4:3);
end;
end.
последнее правильно
Вас заинтересует
2 года назад
2 года назад
2 года назад
7 лет назад
9 лет назад