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

  • Просмотров 5946
  • Скачиваний 555
  • Размер файла 11
    Кб

Написать программу, считывающую заданное количество одномерных массивов, определяющую минимальный элемент в каждом из них и подсчитывающую количество нулей среди элементов, расположенных за минимальным. Программа: 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,'-ая строка:', 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); reset(f1); while not eof(f1) do begin for i:=1 to k do begin readln(f1,s); A[i]:=s;end;end; for j:=1 to k do for i:=1 to k do if length(a[i])<length(a[i-1]) then begin s:=a[i];a[i]:=a[i-1];a[i-1]:=s;end; close(f1); rewrite(f1); for i:=1 to k do writeln(f1,a[i]); close(f1); w(f1); end. Задача 9. Условие: В файле из

вещественных чисел переставить элементы таким образом, чтобы сначала были записаны все положительные, затем все отрицательные, а потом все нули. Программа: program S2_Z9; type fi=file of integer; m=array[1..100] of integer; var f1:fi;n:integer; procedure vvod(n:integer;var f:fi); var i,a:integer; begin assign (f,'c:\f.int'); rewrite(f); writeln('Введите компоненты файла'); for i:=1 to n do begin read(a);write(f,a);end; close (f); end; procedure sort(n:integer;var f:fi); var buf:fi;s,i,j,k:integer; a:m; begin reset(f); assign (buf,'c:\buf.int'); rewrite(buf); while not eof(f) do begin for i:=1 to n do begin read(f,s);