2вариант 1.значения а=1; в=0; с=1. найти (а или b) и (с или b) и построить логическую схему
112
163
Ответы на вопрос:
Процедурой: // возводит действилельное число 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.
Популярно: Информатика
-
АртиUp09.01.2020 13:22
-
HrenSGori08.01.2021 02:58
-
fidawa2006ozpk8u10.07.2021 07:14
-
AmmosD09.02.2020 16:12
-
kvolk42022.08.2022 13:29
-
ArtSvet15.01.2022 09:41
-
ддддд2029.11.2020 08:41
-
KsKitty04.03.2020 18:53
-
bvoznyk6926.12.2020 12:20
-
mischad15.04.2022 02:15