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

Скачай 10 задач с решениями программированием на Паскале реферат по информатике и еще Сочинения в формате PDF Информатика только на Docsity! Задача 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; 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,'-ая строка:', st);end; end; begin vvod(7,A);prob(7,A); end. Задача 8. Условие: В текстовом файле отсортировать строки по возрастанию их длин. Прграмма: program S2_Z8; type ft=text; mas=array[1..100] of string; var f1:ft;k,i,j:integer;s:string;A:mas; procedure sozd(var f:ft;n:integer); var i:integer; s:string; begin assign(f,'c:\1.txt');rewrite (f); for i:=1 to n do begin writeln('введите ',i,'-ю строку');readln(s); writeln(f,s); end; close(f); 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); Задача 10. Условие: Записать в конец каждой строки текстового файла количество слов в этой строки. Программа: program S2_Z10; type ft=text; mas=array[1..100] of string; var f1:ft;k:integer; procedure sozd(var f:ft;n:integer); var i:integer; s:string; begin assign(f,'c:\f.txt');rewrite (f); for i:=1 to n do begin writeln('введите ',i,'-ю строку');readln(s); writeln(f,s); end; close(f); end; procedure kslov(var f:ft); var s,pk,p:string;k:integer; buf:ft; begin reset(f); assign(buf,'c:\buf.txt'); rewrite(buf); while not eof(f) do begin k:=0;readln(f,s); p:=s; while pos(' ',p)>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. Блок схема: