- •Лабораторная работа №1.
- •Задание 1. Ветвление с двумя альтернативами
- •Лабораторная работа №3.
- •Тема: Операторы повторений
- •Блок-схема алгоритма вычислений с использованием оператора цикла с предусловием while Блок-схема алгоритма вычислений с использованием оператора цикла с предусловием while
- •Лабораторная №4.
- •Ввод Cij
- •3. Результат выполнения контрольного примера.
- •Лабораторная №7.
Лабораторная №4.
начало
ввод A[i], ввод k,n
S:=0
A[i] mod k=0?
да нет
S:=S+A[i]
Вывод S
конец
program p4; const nmax=100; var i,n,k,s:integer; a:array[1..nmax] of integer; begin write('введите k');readln(k); write('введите n');readln(n); writeln('введите массив '); for i:=1 to n do readln(a[ i ]); s:=0; for i:=1 to n do if a[ i ] mod k=0 then s:=s+a[ i ]; writeln('Сумма',s); readln end.
Лабораторная №5.
Начало
i=1,4
j=1,4
S=0;
G:=0
j=1,4
Cij<0Ввод Cij
i=1,4
j=1,4
Вывод
Cij
i=1,4
S=S+Cij
G:=G+c[i,j]
Вывод S, P
Конец
program p4; const n=4; var c:array [1..4,1..4] of real; S,G:real; i,j:integer; begin for i:=1 to n do for j:=1 to n do begin write('Введите c[',i,',',j,']='); readln(c[i,j]); end; S:=0; G:=0; writeln('Исходный массив С'); for i:=1 to n do begin for j:=1 to n do write(c[i,j]:6:2); writeln; end; for i:=1 to n do for j:=1 to n do begin if C[i,j]<0 then S:=S+c[i,j]; if i=j then G:=G+c[i,j]; end; writeln('Сумма S=',s:7:2,' сумма главной диагонали G=',G:7:2); readln; end.
Лабораторная №6.
а) блок-схема.
б)блок-схема подпрограммы.
Program p6;
type vector= array [1..20] of real;
massiv= array [1..20,1..20] of real;
var x,a:vector;
i,j,n,m:integer;
y:massiv;
procedure p(n,m:integer;x,a:vector;var y:massiv);
begin
for i:=1 to n do
for j:= 1 to m do
y[i,j]:=a[j]*cos(x[i])+ln(a[j]*x[i])/sqr(x[i])+a[j]*x[i]+exp(x[i]);
end;
BEGIN
Write ('Введите количество значений x и a= ');
Readln(n,m);
for i:=1 to n do
begin
Write ('Введите x[',i,']=');
Readln(x[i]);
end;
for j:= 1 to m do
begin
Write ('Введите a[',j,']=');
Readln(a[j]);
end;
p(n,m,x,a,y);
Writeln (' Таблица');
Writeln('┌───────┬───────┬───────┬───────┬───────┬───────┐');
Write('│X \ a│');
for i:=1 to m do
Write(a[i]:3:1,' ','│');
Writeln;
Writeln('├───────┼───────┼───────┼───────┼───────┼───────┤');
for i:=1 to n do begin
Write('│',x[i]:3:1,' │');
for j:=1 to m do
Write(y[i,j]:7:3,'│');
Writeln;
end;
Writeln('└───────┴───────┴───────┴───────┴───────┴───────┘');
readln;
END.
3. Результат выполнения контрольного примера.
Таблица
┌──────┬──────┬──────┬──────┬──────┐
│x \ a │2.0 │3.0 │7.0 │13.0 │
├──────┼──────┼──────┼──────┼──────┤
│1.0 │ 6.492│ 8.438 │ 15.446│ 25.307 │
│3.0 │ 24.305 │ 26.360│ 34.494│ 46.623 │
│4.0 │ 61.421 │ 64.793│ 78.237│ 98.348 │
│5.0 │ 159.073│ 164.372│ 185.541│ 217.268│
│7.0 │ 1112.195│ 1119.957 │1150.990│ 1197.526│
│8.0 │ 2996.710│ 3004.572 │3036.002│ 3083.139 │
└──────┴──────┴──────┴──────┴──────┘