Методические указания к выполнению лабораторных работ по дисциплине «Информатика»



бет20/36
Дата11.04.2020
өлшемі3,95 Mb.
#62262
түріМетодические указания
1   ...   16   17   18   19   20   21   22   23   ...   36
Байланысты:
PascalABC

Последовательность работы

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, используя



Достарыңызбен бөлісу:
1   ...   16   17   18   19   20   21   22   23   ...   36




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет