Старый 12.09.2005, 23:38   #1   
Форумец
 
Сообщений: 1
Регистрация: 12.09.2005
Возраст: 31

alina вне форума Не в сети
Exclamation двумерные массивы!нужна помощь!!!

У МЕНЯ НЕСКОЛЬКО ЗАДАЧ! пожалуйста, помогите!!!

I)Создать массив всеми способами, вывести его на экран и в файл!(использовав все данные(операторы, процедуры), которые я написала.))
1)Для первого способа надо использовать(может понадобиться read(n,m))
Program имя;
Const nmax=10;
mmax=10;
var
a:array[1..nmax, 1..mmax] of integer;
i,j,n,m :integer;
begin
n:=3;
m:=4;
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
и надо довести эту пограмму до конца!!!Пожалуйста помогите!(n-количество строк, m-количество столбцов!)

2)Для второго способа(генератор случайных членов) надо использовать(может понадобиться read(n,m)):
Program имя;
Const nmax=10;
mmax=10;
var
a:array[1..nmax, 1..mmax] of integer;
i,j,n,m :integer;
begin
n:=3;
m:=4;
for i:=1 to n do
for j:=1 to m do
randomize
a[i,j]:=random(200)
И надо довести эту программу до конца!(n-количество строк, m-количество столбцов!)

3)Для третьего способа надо использовать(может понадобиться read(n,m)):
Program имя;
Const nmax=10;
mmax=10;
var
a:array[1..nmax, 1..mmax] of integer;
i,j,n,m :integer;
begin
n:=3;
m:=4;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=i+j;
И надо довести эту программу до конца!(n-количество строк, m-количество столбцов!)

4)Для четвертого способа надо использовать(может понадобиться read(n,m)):
Program имя;
Const nmax=10;
mmax=10;
var
a:array[1..nmax, 1..mmax] of integer;
i,j,n,m :integer;
begin
n:=3;
m:=4;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=i+j;
begin
assign(input, ’in.txt’);
reset(input);
read(n,m);
read(a[i,j]);
close(input);
Из элементов четвертого способа надо составить(продолжить иди кое-где изменить) программу!
Для всех четырех способов для вывода массива на экран использовать:
write(a[i,j], ’ ’);
writeln;

Для всех четырех способов для вывода массива в файл надо использовать:
Begin
Assign(output, ’ out.txt’);
Rewrite(output);

II)Найти максимальный и минимальный элемент массива.
III)Выяснить, есть ли в данном массиве данный элемент. Ответ сделать Yes или No.(можно ввести в файле).
Помогите пожалуйста!!!
  Ответить с цитированием
Старый 13.09.2005, 08:27   #2   
форумец
 
Аватар для DimmaN
 
Сообщений: 1,604
Регистрация: 22.01.2004
Возраст: 24

DimmaN вне форума Не в сети
alina многие занимаются таким за небольшую денюшку...найди людей - и будет тебе щастье...
  Ответить с цитированием
Старый 13.09.2005, 08:43   #3   
Дилетант широкого профиля
 
Аватар для Sheriff
 
Сообщений: 2,106
Регистрация: 14.06.2002
Возраст: 43

Sheriff вне форума Не в сети
помогу за $300
  Ответить с цитированием
Старый 13.09.2005, 08:59   #4   
бабай
 
Аватар для builder
 
Сообщений: 7,004
Регистрация: 29.07.2004
Возраст: 45

builder вне форума Не в сети
Цитата:
Сообщение от Sheriff
помогу за $300
Дороговато. Красная цена $ 100.
  Ответить с цитированием
Старый 13.09.2005, 11:41   #5   
Кэп Улитка
 
Аватар для Yandex
 
Сообщений: 8,067
Регистрация: 04.05.2005
Возраст: 43

Yandex вне форума Не в сети
>Красная цена $ 100
Ужас какой
  Ответить с цитированием
Старый 13.09.2005, 11:54   #6   
.
 
Аватар для dimarik
 
Сообщений: 3,690
Регистрация: 26.12.2004

dimarik вне форума Не в сети
за такую фигню 100$?
alina сколько ты сама готова заплатить?
  Ответить с цитированием
Старый 13.09.2005, 12:07   #7   
Приди и попробуй сама
 
Аватар для Безумная
 
Сообщений: 2,884
Регистрация: 16.07.2003

Безумная вне форума Не в сети
эх... неужели за такое еще и деньги берут??? стоко денех мимо проплыло...

alina если еще нужны - пиши... вечерком начеркаю.. всего то пара минут воспоминаний... а вообще, самой-то не стыдно с такой ерундой на форум обращаться... что ж дальше то будет....
  Ответить с цитированием
Старый 13.09.2005, 16:23   #8   
Кэп Улитка
 
Аватар для Yandex
 
Сообщений: 8,067
Регистрация: 04.05.2005
Возраст: 43

Yandex вне форума Не в сети
Ниче, пусть развивает управленческие навыки Ж))
  Ответить с цитированием
Старый 14.09.2005, 08:40   #9   
Приди и попробуй сама
 
Аватар для Безумная
 
Сообщений: 2,884
Регистрация: 16.07.2003

Безумная вне форума Не в сети
Цитата:
Сообщение от Yandex
Ниче, пусть развивает управленческие навыки Ж))
тогда уж коммерческие тут уже и торговаться начали...
  Ответить с цитированием
Старый 14.09.2005, 11:26   #10   
Альдо Апачи
 
Аватар для Xtnshtcgjkjdbyjq
 
Сообщений: 11,183
Регистрация: 21.06.2005
Возраст: 43

Xtnshtcgjkjdbyjq вне форума Не в сети
Цитата:
Сообщение от Безумная
а вообще, самой-то не стыдно с такой ерундой на форум обращаться... что ж дальше то будет....
Согласен! Дорогая alina, ты не с ФКН?
  Ответить с цитированием
Старый 15.09.2005, 22:55   #11   
Форумец
 
Аватар для M0l0t
 
Сообщений: 5,975
Регистрация: 22.04.2003
Записей в дневнике: 4

M0l0t вне форума Не в сети
ох уж эта жажда халявы.
  Ответить с цитированием
Старый 15.09.2005, 23:11   #12   
Noldor
 
Аватар для ОсТроУхий
 
Сообщений: 1,815
Регистрация: 22.12.2004

ОсТроУхий вне форума Не в сети
Пипец, за 10 строчек простейшего кода на Паскале... 100 баксов. жесть.
  Ответить с цитированием
Старый 16.09.2005, 13:22   #13   
Альдо Апачи
 
Аватар для Xtnshtcgjkjdbyjq
 
Сообщений: 11,183
Регистрация: 21.06.2005
Возраст: 43

Xtnshtcgjkjdbyjq вне форума Не в сети
Цитата:
Сообщение от ОсТроУхий
Пипец, за 10 строчек простейшего кода на Паскале... 100 баксов. жесть.
Не за программу, а за тупость заказывающего.
  Ответить с цитированием
Старый 16.09.2005, 16:53   #14   
Noldor
 
Аватар для ОсТроУхий
 
Сообщений: 1,815
Регистрация: 22.12.2004

ОсТроУхий вне форума Не в сети
Xtnshtcgjkjdbyjq
Ты сразу родился умным и разбирающимся в языках программирования? По-моему подраздел, создан не только для обмена опытом в области кодинга, но и для помощи чайникам...
опускать и глумится - дело простое.
  Ответить с цитированием
Старый 16.09.2005, 20:25   #15   
Форумец
 
Сообщений: 179
Регистрация: 24.05.2004
Возраст: 41

qwert вне форума Не в сети
Если в Delphi-ях покатит, то помочь труда не составит, но только в понедельник. А на Pascal-е минут на 5 дольше будет, мне его чуть подвспомнить надо.
  Ответить с цитированием
Старый 17.09.2005, 00:15   #16   
Noldor
 
Аватар для ОсТроУхий
 
Сообщений: 1,815
Регистрация: 22.12.2004

ОсТроУхий вне форума Не в сети
Const nmax=10;
mmax=10;
var
a:array[1..nmax, 1..mmax] of integer;
i,j,n,m :integer;
begin

n:=3;
m:=4;
Assign(output, ’ out.txt’);
Rewrite(output);
for i:=1 to n do
begin
for j:=1 to m do
begin
write('Введите элемент массива ',i,' строки и',j,' столбца');
read(a[i,j]);
write(output,a[i,j]);
end;
writeln;
end;
потом делаешь обычный цикл на вывод инфы, она у тебя уже в массиве и в файле... откуда хочешь оттуда и читаешь.


это было к первому случаю...

Const nmax=10;
mmax=10;
var
a:array[1..nmax, 1..mmax] of integer;
i,j,n,m :integer;
begin
randomize;
Assign(output, ’ out.txt’);
Rewrite(output);
n:=3;
m:=4;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(200)
Write(a[i,j]);
write(output,a[i,j]);
end;
writeln;
end;
тоже самое - простеший цикл на вывод по числу элементов в массиве...

Третье и четвертое - по аналогии... тут все просто - писать не охота, честно говоря... да и боюсь чего-нибудь из С++ вставить =))
  Ответить с цитированием
Старый 17.09.2005, 20:38   #17   
Noldor
 
Аватар для ОсТроУхий
 
Сообщений: 1,815
Регистрация: 22.12.2004

ОсТроУхий вне форума Не в сети
На ходу писал в нескольких местах простебся - не туда вставил... но это мелочи... =)) в первый раз можно writeln - не писать. =) И еще парочка...
  Ответить с цитированием
Поиск в теме: 


Опции темы

Быстрый переход:

  Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Support by DrIQ & Netwind