|
1. Для упрощения расчетов разобьем выражение на две составляющие:
 , 
2. Составляем программу расчета, используя операторы цикла while..do и for.
Текст программы:
Program Lab3;
Const b=0.5; {описание постоянных параметров}
a0=12; ak=20; h=2;
c:array[1..4]of real=(6,7,8,9); {описание массива}
Var a,k,f,y: real; j:integer; {описание переменных}
Begin
a:=a0;
k:=0; f:=1;
while a<=ak do begin k:=k+5*a*b; {расчет суммы}
a:=a+h; end;
for j:=1 to 4 do {обращение к массиву}
f:=f*sqrt(c[j]); {расчет произведения}
y:=k+4.3*f; {расчет параметра у}
writeln (‘y=’, y); {вывод параметра у на экран}
End.
3. Входим в среду PascalABC.NET, используя
Достарыңызбен бөлісу: |
