imin:=0;jmin:=0;imin1:=0;jmin1:=0;
for i:=1 to n-1 do
for i:=1 to m-1 do
begin
if (imin=0)or(msum>a[i,j]+a[i+1,j]) then
begin
msum:=a[i,j]+a[i+1,j];
imin:=i;j,in:=j;imin1:=i+1;jmin1:=j
end;
if (imin=0)or(msum>a[i,j]+a[i,j+1]) then
begin
msum:=a[i,j]+a[i,j+1];
imin:=i;j,in:=j;imin1:=i;jmin1:=j+1
end;
end;
PascalABC(Помогите решить задачки)!
1.Дана матрица целых чисел размером МxN. Найти два соседних элемента(как по строкам так и по столбцам, но не по диагонали), сумма которых минимальна, вывести эти элементы и их индексы.
2.Дана строка, состоящая из слов, разделенных одним или несколькими пробелами, или знаками препинания. Найти количество слов в тексте которые начинаются и заканчиваются одной и той же буквой.
Вариант 4
1.Дан массив вещественных чисел. Преобразовать его так чтобы все элементы шли в обратном порядке их дробной части. Дополнительный массив не использовать.
2.Дана строка, состоящая из русских слов, разделенных пробелами( одним или несколькими) и знаками препинания. Вывести строку, содержащую эти же слова, разделенные одним пробелом и расположенные в обратном порядке без учета регистра.
Вариант 12
1.Дано целое число N ( N > 2) и набор из N целых чисел содержащий по крайней мере 2 нуля. Вывести сумму чисел данного набора, расположенных между последними двумя нулями( если последние нули иду подряд то сумма равна 0) .
2.Дано имя файла и целые положительные числа N и K. Создать текстовый файл с указанным именем и записать в него N строк, каждая из которых состоит из K символов *( звездочка).
2.Дана строка, состоящая из слов, разделенных одним или несколькими пробелами, или знаками препинания. Найти количество слов в тексте которые начинаются и заканчиваются одной и той же буквой.
Вариант 4
1.Дан массив вещественных чисел. Преобразовать его так чтобы все элементы шли в обратном порядке их дробной части. Дополнительный массив не использовать.
2.Дана строка, состоящая из русских слов, разделенных пробелами( одним или несколькими) и знаками препинания. Вывести строку, содержащую эти же слова, разделенные одним пробелом и расположенные в обратном порядке без учета регистра.
Вариант 12
1.Дано целое число N ( N > 2) и набор из N целых чисел содержащий по крайней мере 2 нуля. Вывести сумму чисел данного набора, расположенных между последними двумя нулями( если последние нули иду подряд то сумма равна 0) .
2.Дано имя файла и целые положительные числа N и K. Создать текстовый файл с указанным именем и записать в него N строк, каждая из которых состоит из K символов *( звездочка).
1.Дана матрица целых чисел размером МxN. Найти два соседних элемента(как по строкам так и по столбцам, но не по диагонали), сумма которых минимальна, вывести эти элементы и их индексы.
Знаю как заполнить и вывести матрицу)! но как основную поставленную задачу выполнить без понятия! помогите пожалуйста!
var
a:array [1..10,1..10] of Real;
i,j,n,m,min:integer;
begin
cls;
randomize;
writeln('Vvedite razmer matrici');
readln(n,m);
for i:=1 to n do
begin
for j:=1 to m do begin
a[i,j]:= random(100);
write(a[i,j])
end;
writeln;
end;
end.
Знаю как заполнить и вывести матрицу)! но как основную поставленную задачу выполнить без понятия! помогите пожалуйста!
var
a:array [1..10,1..10] of Real;
i,j,n,m,min:integer;
begin
cls;
randomize;
writeln('Vvedite razmer matrici');
readln(n,m);
for i:=1 to n do
begin
for j:=1 to m do begin
a[i,j]:= random(100);
write(a[i,j])
end;
writeln;
end;
end.
спасибо)! но не мог бы ты канкибудь помочь)! ато щас сидел пытался делать у меня тупо виснет матрица! и програма выполняется вечно выводя кучу значений! вот мой код
var
a:array[1..10,1..10] of Real;
i,n,m,j:integer;
imin,jmin,imin1,jmin1,msum:real;
begin
cls;
writeln('Vvedite razmer matrici');
readln(n,m);
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(100);
write(a[i,j]);
end;
imin:=0;jmin:=0;imin1:=0;jmin1:=0;
for i:=1 to n-1 do
for i:=1 to m-1 do begin
if (imin=0)or(msum>a[i,j]+a[i+1,j]) then
begin
msum:=a[i,j]+a[i+1,j];
imin:=i;jmin:=j;imin1:=i+1;jmin1:=j
end;
if (imin=0)or(msum>a[i,j]+a[i,j+1]) then
begin
msum:=a[i,j]+a[i,j+1];
imin:=i;jmin:=j;imin1:=i;jmin1:=j+1
end;
end;
writeln;
end;
end.
var
a:array[1..10,1..10] of Real;
i,n,m,j:integer;
imin,jmin,imin1,jmin1,msum:real;
begin
cls;
writeln('Vvedite razmer matrici');
readln(n,m);
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(100);
write(a[i,j]);
end;
imin:=0;jmin:=0;imin1:=0;jmin1:=0;
for i:=1 to n-1 do
for i:=1 to m-1 do begin
if (imin=0)or(msum>a[i,j]+a[i+1,j]) then
begin
msum:=a[i,j]+a[i+1,j];
imin:=i;jmin:=j;imin1:=i+1;jmin1:=j
end;
if (imin=0)or(msum>a[i,j]+a[i,j+1]) then
begin
msum:=a[i,j]+a[i,j+1];
imin:=i;jmin:=j;imin1:=i;jmin1:=j+1
end;
end;
writeln;
end;
end.
Цитата: pezz
спасибо)! но не мог бы ты канкибудь помочь)! ато щас сидел пытался делать у меня тупо виснет матрица! и програма выполняется вечно выводя кучу значений! вот мой код
Код:
var
a:array[1..10,1..10] of Real;
i,n,m,j:integer;
imin,jmin,imin1,jmin1,msum:real;
begin
cls;
writeln('Vvedite razmer matrici');
readln(n,m);
for i:=1 to n do [COLOR="Red"]{begin}[/COLOR]
for j:=1 to m do begin
a[i,j]:=random(100);
write(a[i,j]);
end;
imin:=0;jmin:=0;imin1:=0;jmin1:=0;
for i:=1 to n-1 do
for i:=1 to m-1 do begin
if (imin=0)or(msum>a[i,j]+a[i+1,j]) then
begin
msum:=a[i,j]+a[i+1,j];
imin:=i;jmin:=j;imin1:=i+1;jmin1:=j
end;
if (imin=0)or(msum>a[i,j]+a[i,j+1]) then
begin
msum:=a[i,j]+a[i,j+1];
imin:=i;jmin:=j;imin1:=i;jmin1:=j+1
end;
end;
writeln;
[COLOR="#ff0000"] {end;}[/COLOR]
end.
a:array[1..10,1..10] of Real;
i,n,m,j:integer;
imin,jmin,imin1,jmin1,msum:real;
begin
cls;
writeln('Vvedite razmer matrici');
readln(n,m);
for i:=1 to n do [COLOR="Red"]{begin}[/COLOR]
for j:=1 to m do begin
a[i,j]:=random(100);
write(a[i,j]);
end;
imin:=0;jmin:=0;imin1:=0;jmin1:=0;
for i:=1 to n-1 do
for i:=1 to m-1 do begin
if (imin=0)or(msum>a[i,j]+a[i+1,j]) then
begin
msum:=a[i,j]+a[i+1,j];
imin:=i;jmin:=j;imin1:=i+1;jmin1:=j
end;
if (imin=0)or(msum>a[i,j]+a[i,j+1]) then
begin
msum:=a[i,j]+a[i,j+1];
imin:=i;jmin:=j;imin1:=i;jmin1:=j+1
end;
end;
writeln;
[COLOR="#ff0000"] {end;}[/COLOR]
end.
и оформляйте пожалуйста код соотв. тегами