Меню сайту

Пошук

Наше опитування
Ви навчаєтесь: 1 клас 2 клас 3 клас 4 клас 5 клас 6 клас 7 клас 8 клас 9 клас 10 клас 11 клас Студент Вчитель Інша відповідь Результати \| Архів опитувань Всього відповідей: 858

Що нового?

Форма входу

Міні-чат
Щоб додати необхідна авторизація

Синус, косинус, квадрат, корінь

Програма для обчислення синуса, косинуса, квадрата або кореня числа:
program sinys;
var s,c,sq: real;
a,q,n: integer;
begin
writeln ('vvedit chislo');
readln (a);
writeln ('vvedit nomer zavdannia');
writeln ('1 - znahodzennia koreny');
writeln ('2 - znahodzennia kvadraty');
writeln ('3 - znahodzennia sunysy');
writeln ('4 - znahodzennia cosunysy');
readln (n);
case n of
1:
begin
sq:= sqrt(a);
writeln (sq:4:2);
end;
2:
begin
q:=a*a;
writeln (q);
end;
3:
begin
s:=sin(a);
writeln (s:4:2);
end;
4:
begin
c:=cos(a);
writeln (c:4:2);
end;
end;
readln;
end.

Статистика
Онлайн всього: 1 Гостей: 1 Користувачів: 0

Календар

Архів записів

Друзі сайту

Створити безкоштовний сайт на uCoz

Довідник для учнів та студентів

Синус, косинус, квадрат, корінь