Даны массивы а(4,6) и в(5,6). Найти среднее значение каждой строки в этих массивах, используя подпрограмму.
Удалить самое длинное слово из строки
programPr_1;
usescrt;
varmax,k,i,N,y,j,p:integer;
S,s1,B: string;
A:array[1..100] ofstring;
C:array[1..10] ofinteger;
Begin
Clrscr;
Writeln('Vvedite stroku: ');
Readln(S);
y:=1;
s:=' '+s+' ';
fori:=1 tolength(s) do
Begin
IfS[i]=' ' then
Begin
Forj:=i+1 tolength(s) do
IfS[j]=' ' then
Begin
a[y]:=copy(s,i+1,j-i-1);
c[y]:=i;
y:=y+1;
Break;
end;
End;
End;
max:=Length(A[1]);
Fori:=1 toy-1 do
Begin
Ifmax<Length(A[i]) then
Begin
max:=Length(A[i]);
B:=A[i];
p:=i;
End;
End;
n:=length(s);
s:=copy(s,1,c[p])+Copy(s,c[p]+2+length(b),n-c[p]-2-length(b));
Writeln('Samoe dlinnoe slovo: ',B,' Stroka: ',s);
Readln;
End.
uses crt;
var s,sl,smax: string;
i,imax,dmax: integer;
begin
clrscr;
write('vvedite stroku: ');
readln(s);
s:=s+' '; sl:=''; dmax:=0;
for i:=1 to length(s) do
if s[i]<>' ' then sl:=sl+s[i]
else
begin
if length(sl)>dmax then
begin
imax:=i-length(sl);
dmax:=length(sl);
smax:=sl;
end;
sl:='';
end;
writeln ('samoe dlinnoe slovo "',smax,'" dlinoi v ',dmax,' simvolov');
delete(s,imax,dmax);
writeln(s);
readln
end.
Посчитать количество слов в строке определенной длины
Program Pr_1;
uses crt;
var
n: string[50];
i,k: integer;
begin
clrscr;
write('vvedite stroky: ');
readln(n);
i := length(n);
if i>0 then
begin
k:=1;
while i>0 do
begin
if n[i]=' ' then
k:=k+1;
i:=i-1;
end;
end
else
k:= 0;
writeln('kolichestvo slov v stroke = ',k);
readln;
end.
Program Pr_1;
Uses crt;
Var s:string[50]; I,k:integer;
Begin
Clrscr;
Write(‘vvod stroke:’);
Readln(s);
Until length(s)<>0;
K:=0;
For i:=1 to length(s) do
If s[i]=’ ’ then k:=k+1;
Write(‘koli4estvo slov v stroke = ’,k:4);
Readln;
End.
Найти среднее в каждом столбце, занести в отдельный одномерный массив и найти меньшее из них!
ProgramPr_1;
usescrt;
typemas=array[1..10, 1..10] ofinteger;
vara:mas;
b:array[1..10] ofreal;
n,m,i,j,k,sum,z:integer;
sr,min:real;
Begin
clrscr;
write('koli4estvo strok - ');
readln(n);
write('koli4estvo stolbcov - ');
readln(m);
writeln;
randomize;
fori:=1 ton do
Begin
forj:=1 tom do
Begin
a[i,j]:=-10+random(20);
write(a[i,j]:4);
end;
writeln;
end;
writeln;
forj:=1 tom do
Begin
sum:=0;
k:=0;
sr:=0;
fori:=1 ton do
Begin
sum:=sum+a[i,j];
k:=k+1;
sr:=sum/k;
end;
b[j]:=sr;
writeln('srednee po (',j,') stolbcy = ',sr:4:2);
end;
writeln;
writeln('srednue zna4enu9 v otdelnom massive :');
forj:=1 tom do
write(b[j]:8:2);
writeln;
writeln;
min:=b[1];
forj:=1 tom do
Ifb[j]<min then
min:=b[j];
write('minimalnui element - ',min:4:2);
readln;
end.
Создать двумерный массив, вычислить в нем среднее значение каждой строки и занести результаты в отдельный массив
Begin
clrscr;
write('koli4estvo strok - ');
readln(n);
write('koli4estvo stolbcov - ');
readln(m);
writeln;
randomize;
fori:=1 ton do
Begin
forj:=1 tom do
Begin
a[i,j]:=-10+random(20);
write(a[i,j]:4);
end;
writeln;
end;
writeln;
fori:=1 ton do
Begin
sum:=0;
k:=0;
sr:=0;
forj:=1 tom do
Begin
sum:=sum+a[i,j];
k:=k+1;
sr:=sum/k;
end;
b[i]:=sr;
writeln('srednee po (',j,') stroke = ',sr:4:2);
end;
writeln;
writeln('srednue zna4enu9, v otdelnom massive :');
fori:=1 ton do
write(b[i]:8:2);
readln;
end.
В массиве 5 на 5 найти строку с наибольшей суммой вывести номер и строку
ProgramPr_1;
usescrt;
constn=5;
m=5;
vara:array[1..10,1..10] ofinteger;
i,j,max,sum,z,k:integer;
Begin
clrscr;
randomize;
writeln('ushodnui massiv');
readln;
fori:=1 ton do
Begin
forj:=1 tom do
Begin
a[i,j]:=random(15);
write(a[i,j]:4);
end;
writeln;
end;
fori:=1 ton do
Begin
sum:=0;
forj:=1 tom do
sum:=sum+a[i,j];
writeln;
write('summa elementov (',i,') stroku = ',sum:3);
Ifsum>max then
Begin
max:=sum;
k:=i;
end;
end;
writeln;
writeln;
textcolor(green);
write('summa maxumalna v (',k,') stroke = ',max:3);
writeln;
textcolor(red);
writeln('stroka s maxumalnou summou elementov');
forj:=1 tom do
Begin
textcolor(yellow);
write(a[k,j]:4);
end;
readln;
end.
Даны два массива a(n) b(m). Найти для каждого массива максимум и минимум, и их порядковый номер. После каждый максимум каждого массива поделить на количество элементов в массиве.
ProgramPr_1;
usescrt;
typemas=array[1..10] ofinteger;
vara,b:mas;
n,m,i,j,max_a,min_a,max_b,min_b:integer;
k,l,p,z:integer;
rez_1,rez_2:real;
Begin
clrscr;
write('vvedite kolu4estvo elementov 1 massiva - ');
readln(n);
write('vvedite kolu4estvo elementov 2 massiva - ');
readln(m);
randomize;
writeln;
fori:=1 ton do
Begin
a[i]:=random(15);
write(a[i]:4);
end;
writeln;
writeln;
forj:=1 tom do
Begin
b[j]:=random(15);
write(b[j]:4);
end;
writeln;
k:=1;
l:=1;
max_a:=a[1];
min_a:=a[1];
fori:=1 ton do
Begin
Ifa[i]>max_a then
Begin
max_a:=a[i];
k:=i;
end;
Ifa[i]<min_a then
Begin
min_a:=a[i];
l:=i;
end;
end;
writeln;
textcolor(yellow);
writeln('maximalnuu element v 1 massive pod nomerom (',k,') = ',max_a);
writeln('minimalnuu element v 1 massive pod nomerom (',l,') = ',min_a);
writeln;
p:=1;
z:=1;
max_b:=b[1];
min_b:=b[1];
forj:=1 tom do
Begin
Ifb[j]>max_b then
Begin
max_b:=b[j];
p:=j;
end;
Ifb[j]<min_b then
Begin
min_b:=b[j];
z:=j;
end;
end;
textcolor(red);
writeln('maximalnuu element vo 2 massive pod nomerom (',p,') = ',max_b);
writeln('minimalnuu element vo 2 massive pod nomerom (',z,') = ',min_b);
writeln;
textcolor(green);
writeln('rezyltat delenia v 1 sly4ae = ',max_a/n:4:3);
writeln('rezyltat delenia vo 2 sly4ae = ',max_b/m:4:3);
readln;
end.
Даны массивы а(4,6) и в(5,6). Найти среднее значение каждой строки в этих массивах, используя подпрограмму.
ProgramProcedur_1;
usescrt;
typemas=array[1..10, 1..10] ofinteger;
vara:mas;
n,m,i,j,sum,k,x,y:integer;
sr:real;
ProcedureVvod(c,b:integer);
Begin
randomize;
fori:=1 toc do
Begin
forj:=1 tob do
a[i,j]:=random(20);
end;
end;
ProcedureVivod(c,b:integer);
Begin
fori:=1 toc do
Begin
forj:=1 tob do
write(a[i,j]:4);
writeln;
end;
end;
ProcedureObrabotka(c,b:integer);
Begin
fori:=1 toc do
Begin
sum:=0;
k:=0;
forj:=1 tob do
Begin
sum:=sum+a[i,j];
k:=j;
end;
writeln('summa elementov v (',i,') stroke = ',sum);
writeln('koli4estvo elementov = ',k);
writeln('srednee zna4enie elementov (',i,') stroku = ',sum/k:4:2);
readln;
end;
end;
Begin
clrscr;
write('strok = ');
readln(n);
write('stolbcov = ');
readln(m);
Vvod(n,m);
Vivod(n,m);
Obrabotka(n,m);
readln;
clrscr;
write('strok=');
readln(x);
write('stolbcov=');
readln(y);
Vvod(x,y);
Vivod(x,y);
Obrabotka(x,y);
readln;
end.