IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Массивы, 2 задачи связанные с массивами
org777
сообщение 15.05.2009 22:24
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 47
Пол: Мужской
Реальное имя: Игорь

Репутация: -  0  +


Такая проблема: есть 2 задачи, выложенные в фотках внизу. Текст вроде написал... но не хочет работать =(((
Помогите, укажите на мои ошибки пожалуйста и подскажите, как правильно все это сделать.
Заранее благоадрен.
Изображение
Program var13;
type ar=array[1..100] of integer;
var m,z,j,n1:integer;
b:ar;
a1:array[1..100] of integer;
procedure sort(n:integer; var a:ar);
var k,i,t:integer;
begin
for i:=1 to n do read (a[i]);
for k:=1 to n-1 do
for i:=1 to n-1 do
if a[i]>a[i+1] then
begin
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
end;
end;
begin
writeln('vvedite kol-vo el-ov v stroke: ');
readln(n1);
writeln('vvedite kol-vo strok: ');
readln(z);
for m:=1 to z do
begin
writeln('vvedite stroku: ');
sort(n1,b);
for j:=1 to n1 do
a1[m,j]:=b[j];
end;
writeln('massiv: ');
for m:=1 to z do
begin
for j:=1 to n1 do
write(a1[m,j],' ');
writeln;
end;
end.

Изображение
Program var25;
const n=0;
type ar=array[1..100,1..100] of integer;
var s,m,z,j,n1,m1:integer;
b,c:ar;
procedure init(var a:ar);
var i:integer;
function max(a:ar):integer;
var i,max1:integer;
function min(a:ar):integer;
var i,min1:integer;
begin
write('vvedite chislo: ');
readln(n1);
randomize;
for i:=1 to n1 do
begin
for j:=1 to m1 do
begin
a[i,j]:=random(100)-random(100);
write(a[i,j]:8);
end;
write;writeln;
end;
for i:=1 to n do
begin
for j:=1 to m do
readln(a[i,j]);
end;
begin
max1:=a[1,1];
for i:=2 to n do
if a[i,j]>max1 then max1:=a[i,j];
max:=max1;
end;
begin
min1:=a[1,1];
for i:=2 to n do
if a[i,j]<min1 then min1:=a[i,j];
min:=min1;
end;
begin
writeln('kol-vo el-ov v stolbce: ',n);
writeln('vvedite kol-vo stolbcov: ');
readln(z);
for m:=1 to z do
begin
init(b);
c[n1,m1]:=min(b);
end;
s:=max©;
writeln('max= ',s);
readln;
end.



--------------------
Когда вам говорят - "придурок" - это намек на то, что рядом с вами находится дура.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
org777   Массивы   15.05.2009 22:24
Lapp   Вот тут: for k:=1 to n-1 do for i:=1 to n-1 do if ...   15.05.2009 23:02
org777   Не выходит... =(   16.05.2009 6:42
Lapp   Не выходит... =(Обожаю я "народный фольклор...   16.05.2009 7:35
org777   Lapp, в тебе живет душа поэта :good: А по теме: т...   17.05.2009 11:05
Ozzя   Так что именно не выходит-то? Сортирует, не сорти...   17.05.2009 11:09
org777   Вообще не компилируется   17.05.2009 14:36
Lapp   Вообще не компилируетсяО! Партизан заговорил...   17.05.2009 21:21
org777   О! Партизан заговорил! :) Извиняюсь :) П...   17.05.2009 23:21
Lapp   матрицу приходилось вводить вручную, и это преподу...   18.05.2009 0:04
org777   по твоему способу он на все вводимые с клавы числа...   18.05.2009 9:30
volvo   А randomize у тебя есть, чтобы при разных запусках...   18.05.2009 9:40
org777   Короче, получилось вот так вот: Program var25; con...   18.05.2009 10:12
volvo   А ты ее где-нибудь хотя бы заполняешь (я не говорю...   18.05.2009 10:33
org777   Да уж, о "золотом правиле" я и не подума...   18.05.2009 10:41
volvo   А что за переменная M у тебя была? Как хочу, так и...   18.05.2009 10:46
org777   ааа, просто я не знал о переменной для перебора ст...   18.05.2009 10:47


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 22.06.2025 0:36
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"