10 завдань із рішеннями програмуванням на Паскале

Завдання 1. Умова: Знайти середнє арифметичне загальної сукупності елементів тих рядків заданої матриці, останній елемент яких дорівнює 1.

Програма: program S2_Z1; type m=array[1.100,1.100] of integer; var A: m;

procedure vvod (m, n: integer;var x: m); var i, j: integer; begin writeln («введіть елементи масиву »); for i:=1 to m do for j:=1 to n do read (x[i, j]); end;

procedure arf (m, n: integer;var x: m); var i, j, s:integer;sr:real; begin for i:=1 to m do begin s:=0; sr:=0; if x[i, n]=1 then begin for j:=1 to n do s:=s+x[i, j]; sr:=s/n; writeln («середнє арифметичне » ,і, «рядки одно », sr:5:2); end; end; end;

begin vvod (3,3,A); arf (3,3,A); end.

Завдання 2. Умова: Одержати масив Х (n) за правилом: Хi =1, тоді як 1-му стовпці заданої матриці хоча б один елемент перевищує заданий значення З, інакше Xi=0. Знайти загальна кількість елементів, великих С.

Програма: program S2_Z2; type m=array[1.100,1.100] of integer; mas=array[1.100] of integer; var A: m;

procedure vvod (m, n: integer;var x: m); var i, j: integer; begin writeln («введіть елементи масиву »); for i:=1 to m do for j:=1 to n do read (x[i, j]); end;

procedure moped (m, n: integer;var y: m); var i, j, c, k: integer; X: mas; begin k:=0; writeln («введіть величину З= «); readln (c); for j:=1 to n do x[j]: =0; for j:=1 to n do for i:=1 to m do if y[i, j]>c then begin X[j]: =1; k:=k+1; end; writeln («елементи масиву Х: »); for j:=1 to n do write (X[j], «»); writeln; writeln («число елементів матрици перевищують число », з, «одно », k) end;

begin vvod (2,5,A);moped (2,5,A);readln; end.

Завдання 3. Умова: Дан масив A (5,5). Змінити частина матриці, котра під головною діагоналлю так: якщо елемент A[i, j] цієї маленької частини матриці більше елемента A[j, i], то поставити елементу A[i, j] нового значення, однакову підлозі сумі цих двох элементов.

Програма: program S2_Z3; type m=array[1.100,1.100] of real; var A: m;

procedure vvod (m, n: integer;var x: m); var i, j: integer; begin writeln («введіть елементи масиву »); for i:=1 to m do for j:=1 to n do read (x[i, j]); end;

procedure mat (m, n: integer;var x: m); var i, j: integer; t: real; begin writeln («змінений матриця A[i, j] матиме такий вигляд »); for i:=1 to m do for j:=1 to n do if i>j then if x[i, j] > x[j, i] then x[i, j]: =(x[i, j]+x[j, i])/2; for i:=1 to m do for j:=1 to n do write (A[i, j]: 2:1, «»); end;

begin vvod (5,5,A); mat (5,5,A); end.

Завдання 4. Умова: Визначити найдовший послідовність поспіль які йдуть нулів в заданому одномірному массиве.

Програма: program S2_Z4; type m=array[1.100] of integer; var A: m;

procedure vvod (m:integer;var x: m); var і: integer; begin writeln («введіть елементи масиву »); for i:=1 to m do read (x[i]); end;

procedure moped (m:integer;var x: m); var i, k, n:integer; begin k:=0;n:=0; for i:=1 to m do if x[i]=0 then k:=k+1 else begin if x[i-1]=0 then if k>n then n:=k; k:=0;end; if k>n then writeln («найбільша послідовність нулів становить », k) else writeln («найбільша послідовність нулів становить », n); end;

begin vvod (20,A); moped (20,A); end.

Завдання 5. Написати програму, считывающую заданий кількість одномірних масивів, визначальну мінімальний елемент у кожному також подсчитывающую кількість нулів серед елементів, розташованих за минимальным.

Програма: program S2_Z5; type m=array[1.100] of integer; mas=array[1.10] of m; var A: mas;

procedure vvod (kn:integer;x:mas); var y: m;i, t, k, min, k0: integer; begin for k:=1 to kn do begin k0:=0; min:=1000; writeln («введіть у эл-ов в », k, «-ом масиві «);read (t); writeln («тепер введіть елементи цього масиву »); for i:=1 to t do read (y[i]); for i:=1 to t do if y[i]1 do begin k:=k+1; delete (p, 1, pos («», p));end; str (k, pk);insert (pk, s, length (s)+1); writeln (buf, s);end; close (f); close (buf); erase (f); rename (buf, «c:f.txt »); end;

procedure w (var f: ft); var s: string; begin writeln («змінений фаил матиме такий вигляд: »); reset (f); while not eof (f) do begin readln (f, s); writeln (s) end; close (f); end;

begin writeln («введіть у рядків файлі «); readln (k); sozd (f1,k); kslov (f1);w (f1); end.

Блок схема: