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

Контрольная работа - Компьютеры, программирование

Другие контрольные работы по предмету Компьютеры, программирование

Скачать Бесплатно!
Для того чтобы скачать эту работу.
1. Подтвердите что Вы не робот:
2. И нажмите на эту кнопку.
закрыть



Задача 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 (среднее арифметическое ,i, строки равно ,sr:5:2); end; end;

end;

 

begin

vvod(3,3,A);

arf(3,3,A);

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Задача 2.

Условие: Получить массив Х(n) по правилу: Хi =1, если в i-м столбце заданной матрицы есть хотя бы один элемент превышающий заданное значение С, иначе 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(число элементов матрици превышающих число ,c, равно ,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 i: 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]<min then min:=y[i];

writeln(минимальный элемент этого массива равен ,min);

for i:=1 to t do

if y[i]=min then for i:=i to t do

if y[i]=0 then k0:=k0+1;

writeln(количество нулей массива после минимального значения равно ,k0);

write;

write;

end;

end;

 

begin

vvod(5,A);

end.

 

 

 

 

 

 

 

 

 

 

 

Задача 6.

Условие: Написать программу подсчитывающую в каждой из заданных строк количество слов `мама`.

 

Программа:

program S2_Z6;

type str=string[100]; ms=array[1..100] of str;

var A:ms;

 

procedure vvod(m:integer;var x:ms);

var i:integer;

begin

for i:=1 to m do begin writeln(введите ,i,-ю строку);

readln(A[i]);end; end;

 

procedure moped(m:integer;var x:ms);

var i,k:integer; st:str;

begin

for i:=1 to m do begin k:=0;

st:=A[i];

while pos(мама,st)<>0 do begin k:=k+1;delete(st,pos(мама,st),4); end;

writeln(кол-во слов мама в ,i,-ой строке ,k);end;end;

 

begin

vvod(5,A);

moped(5,A);

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Задача 7.

Условие: Дан массив из 7 строк, в каждой из которых не более 50 элементов. Удалить из каждой строки все пробелы и записать количество удалённых пробелов в конец этой строки.

 

Программа:

program S2_Z7;

type s=string[50]; ms=array[1..100] of s;

var A:ms;

 

procedure vvod(m:integer;var x:ms);

var i:integer;

begin

for i:=1 to m do begin writeln(введите ,i,-ю строку);

readln(A[i]);end; end;

 

procedure prob(m:integer;var x:ms);

var i,k:integer;st,p:s;

begin

for i:=1 to m do begin

st:=x[i]; k:=0;

while pos( ,st)<>0 do begin delete(st,pos( ,st),1);k:=k+1;end;

str(k,p);

insert(p,st,length(st)+1); writeln(i,-

s