Головна | Реєстрація | Вхід | RSSНеділя, 02.28.2021, 1:13 PM

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

Меню сайту
Пошук
Наше опитування
Ви навчаєтесь:
Всього відповідей: 804
Що нового?
Форма входу
Міні-чат

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

Програма для обчислення синуса, косинуса, квадрата або кореня числа:
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
Календар
«  Лютий 2021  »
ПнВтСрЧтПтСбНд
1234567
891011121314
15161718192021
22232425262728
Архів записів
Друзі сайту

Guide-for-students © 2021
Створити безкоштовний сайт на uCoz