Убедительная просьба ко всем, кто выкладывает исходники:
1. Обязательно пользуйтесь тэгом code (иначе очень трудно читать)
2. Старайтесь делать отступы

Если вы хотите чтобы вам помогли в написании программы, внятно излагайте задание!

Прежде чем задать вопрос, воспользуйтесь учебником


Возможно, что нужная вам программа уже написана, поэтому советую просмотреть список здесь и здесь
Отредактировано куратором: Lord_of_Darkness. Дата: 07.07.2006 19:36

IceBerg1994 вот вам программа

К сожалению в вашем коде нету разбираться ни сил ни желания.

Ребят помогите довести до ума задачу
Задан массив из пяти строк и шести столбцов.1)Сформировать массив из первых попавшихся положительных элементов
каждой строки и их индексов в исходной матрице,если положительных элементов в строке нет ,то результат равен нулю.
2)определить сумму отобранных элементов массива и их количество
3)определить минимальное и максимальное значение из отобранных элементов и их координаты и поменять местами стобцы исходной матрицы в которых они найдены, если номера столбцов разные.
делал задачу наподобие только там нужно просто было определить минимальное и максимальное значение массива и их координаты и поменять их местами в массиве. Остался код от неё
program lr5;
const m=5; n=6;
type tb=array[1..m,1..n] of real;
var a,an:string[80];
b:tb;
i,j:integer;
imax,jmax,imin,jmin:integer;
min,max:real;
fi:text;
Вывод значений массива вещественных данных
procedure p(b:tb;m,n:integer);
begin
for i:=1 to m do
begin
write (chr(186));
for j:=1 to n do
case j of
1,2,3,4,5:write (b[i,j]:11:4,chr(179));
3:write(b[i,j]:11,chr(179):2);
6:writeln(b[i,j]:12,chr(186));
end;
if i=m then writeln (an) else
writeln(a);
end
end;
Ввод исходных данных
procedure vvod (var b:tb);
begin
assign (fi,'d:\lr5.dat);
reset(fi);
for i:=1 to 4 do begin
readln(fi,a);
writeln(a);
end;
readln(fi,a);
readln(fi,an);
close(fi);
reset(fi);
for i:=1 to m do
for j:=1 to n do
read(fi,b[i,j]);
p(b,m,n);
close (fi);
end;
обработка-поиск минимального и максимального значений
procedure obr (var b:tb,m,n:integer; var mn,mx:real;va i1,i2,j1,j2:integer);
var i,j:integer;
r:real;
begin
mn:=b[1,1];
mx:=b[1,1];
i1:=1;
i2:=1;
j1:=1
j2:=1;
for i:=1 to m do
for j:=1 to n do
if b[i,j]<mn then begin
mn:=b[i,j];
i1:=i;
j1:=j;
end
else
if b[i,j]>mx then begin
mx:=b[i,j];
i2:=i;
j2:=j;
end;
writeln('i1=',i1,'j1=',j1,'i2=',i2,'j2=',j2);
b[i1,j1]:=mx;
b[i2,j2]:=mn;
end;
основная программа
begin
assign(output,'');
rewrite(output);
{lr5.res}
vvod(b);
obr(b,m,n,min,max,imin,imax,jmin,jmax);
writeln(#10#13,'результаты',#10#13);
p(b,m,n);
writeln
(#10#13,'min=',min:12,'imin=',imin,'jmin=',jmin,
#10#13,'max=',max:12,'imax=',imax,'jmax=',jmax);
close(output);
readkey;
end.

Народ кто знает как в конце программы задать вопрос пользователю хотели бы вы использовать еще программу.... если да то прога заного запускается а если нет то конец...... или допустим:
begin
clrscr;
writeln('Dobro pojalovat');
writeln('Vvedite koefficienty');
writeln('Koefficient a');
readln(a);
writeln('Koefficient b');
readln(b);
writeln('Koefficient c');
readln(c);


как задать вопрос пользователю.... правлино ли вы ввели коэффициенты если да то продолжается прога а если нет то заного вводить коэффициенты...????

7 лет тишины трубу школоте уже не преподают?

IceBerg1994