Написать программы на паскале для решения следующих : 1) ввести номер дня недели и вывести соответствующий ему день недели на и языках 2)даны три переменные. составить алгоритм возведения в квадрат тех из них, значения которых отрицательны.
// Возводит действилельное число x в целую степень n Procedure Pow(Const X:real; Const n:integer; Var St:real); Var i:integer; Begin St:=1; For i:= 1 to n do St:=St*x; End;
Var x,y,St:real; n:integer; Begin y:=0; Write('x = ');ReadLn(x); Write('n = ');ReadLn(n); For n:= 1 to n do Begin Pow(x,n,St); y:=y+Cos(St); End; WriteLn('y = ',y); End.
Функцией:
// Возводит действилельное число x в целую степень n Function Pow(Const X:real; Const n:integer):real; Var i:integer; Begin result:=1; For i:= 1 to n do result:=result*x; End; Var x,y:real; n:integer; Begin y:=0; Write('x = ');ReadLn(x); Write('n = ');ReadLn(n); For n:= 1 to n do y:=y+Cos(Pow(x,n)); WriteLn('y = ',y); End.
Циклом:
Var x,y,St:real; n:integer; Begin y:=0; Write('x = ');ReadLn(x); Write('n = ');ReadLn(n); St:=1; For n:= 1 to n do Begin St:=St*x; y:=y+Cos(St); End; WriteLn('y = ',y); End.
var a:integer;
begin
read(a);
case a of
1:write('Понедельник - Monday');
2:write('Вторник - Tuesday');
3:write('Среда - Wednesday');
4:write('Четверг - Thursday');
5:write('Пятница - Friday');
6:write('Суббота - Saturday');
7:write('Воскресенье - Sunday');
end;
end.
2.
var a,b,c:longint;
begin
read(a,b,c);
if a<0 then a:=a*a;
if b<0 then b:=b*b;
if c<0 then c:=c*c;
end.