Двумерный массив

@Huku4 · Регистрация: 16.05.2010

Author24 — интернет-сервис помощи студентам

Собственно задача такова: Найти сумму всех элементов массива и установить, будет ли полученное число четным или нечетным.

Pascal

program massiv;
const=2
var x:array[1..n,1..n] of integer;
i,j,sum:integer;
procedure a(sum,i,j:integer);
begin sum:=0;
for i:=1 to n do
for j:=1 to n do sum:=sum+x[i,j];
end;
begin
for i:=1 to n do
for j:=1 to n do
readln(x[i,j]);
begin
if sum mod 2=0 then
writeln('4etnoe 4islo')
else
writeln('ne4etnoe 4islo');
readln;
end;
end.

Проблема в том, что сумму считает верно, но всегда пишет, что число получается четным.
Сильно прошу не пинать, в паскале ноль.

@Wizzy · 23.05.2010, 22:26

Pascal

program massiv;
const n=2;
type tvector=array[1..n,1..n] of integer;
var x:tvector;
i,j,otvet:integer;
function sum(x:tvector):integer;
  var i,j,sumx:integer;
begin sumx:=0;
for i:=1 to n do
for j:=1 to n do sumx:=sumx+x[i,j];
sum:=sumx;
end;
begin
for i:=1 to n do
for j:=1 to n do
readln(x[i,j]);
otvet:=sum(x);
if otvet mod 2 =0 then
writeln('4etnoe 4islo')
else
writeln('ne4etnoe 4islo');
readln;
end.

подправил

@Huku4 · 23.05.2010, 22:34 **[ТС]**

Спасибо огромное за оперативность, но мне нужно решить программу с использованием процедуры. Может подскажете как?

@Wizzy · 23.05.2010, 22:40

Сообщение от Huku4

Спасибо огромное за оперативность, но мне нужно решить программу с использованием процедуры. Может подскажете как?

Pascal

program massiv;
const n=2;
type tvector=array[1..n,1..n] of integer;
var x:tvector;
i,j:integer;
function sum(x:tvector):string;
  var i,j,sumx:integer;
begin 
 
 
sumx:=0;
for i:=1 to n do
for j:=1 to n do sumx:=sumx+x[i,j];
if sumx mod 2 =0 then
sum:='4etnoe'
else
sum:='ne4etnoe';
end;
 
begin
for i:=1 to n do
for j:=1 to n do
readln(x[i,j]);
writeln(sum(x));
readln;
end.

можна и ввод и вывод в процедуру вбить ))) проблемы нет

@Huku4 · 23.05.2010, 22:49 **[ТС]**

Вы наверное меня немного неправильно поняли(или это я туплю)) Но нельзя ли сделать чтобы было именно со "словом"

procedure

, а не function?) Извиняюсь за надоедство)

@Wizzy · 23.05.2010, 22:54

Ах да не понял))) просто тут логичнее функцию использовать...

Pascal

program massiv;
const n=2;
type tvector=array[1..n,1..n] of integer;
var x:tvector;
i,j:integer;
otvet:string;
 
procedure sum(x:tvector;var sumotv:string);
  var i,j,sumx:integer;
begin
sumx:=0;
for i:=1 to n do
for j:=1 to n do sumx:=sumx+x[i,j];
if sumx mod 2 =0 then
sumotv:='4etnoe'
else
sumotv:='ne4etnoe';
end;
 
begin
for i:=1 to n do
for j:=1 to n do
readln(x[i,j]);
sum(x,otvet);
writeln(otvet);
readln;
end.

@Huku4 · 23.05.2010, 23:13 **[ТС]**

Wizzy, Спасибо огромное вы мне очень помогли!

Я конечно сильно наглею

(стыдно, честное слово), но может быть еще кто-нибудь подскажет по такой вот задаче: В одном массиве содержатся фамилии участников олимпиады, а в другом кол-во баллов. Составьте программу, которая бы печатала фамилию(фамилии) победителя(ей) если он набрал 100 баллов.

Pascal

program  olimpiada;
const n=3;
var x:array [1..n] of string;
    y:array [1..n] of integer;
    i:integer;
    begin
for i:=1 to n do
readln(x[i]);
for i:=1 to n do
readln(y[i]);
begin
if (y[i])=100 then
writeln(x[i]);
readln;
end;
end.

то есть в массиве x содержаться фамилии, а в массиве y соотв. кол-во баллов. Как мне поставить в соответсвие элементам матрицы y(100бальным) поставить соответсвующие элементы матрицы x?
Туманно и запутано обьяснил, но по другому не могу)

@Wizzy · 23.05.2010, 23:30

Сообщение от Huku4

Wizzy, Спасибо огромное вы мне очень помогли!

Я конечно сильно наглею

(стыдно, честное слово), но может быть еще кто-нибудь подскажет по такой вот задаче: В одном массиве содержатся фамилии участников олимпиады, а в другом кол-во баллов. Составьте программу, которая бы печатала фамилию(фамилии) победителя(ей) если он набрал 100 баллов.

Pascal

program  olimpiada;
const n=3;
var x:array [1..n] of string;
    y:array [1..n] of integer;
    i:integer;
begin
for i:=1 to n do
readln(x[i]);
for i:=1 to n do
readln(y[i]);
for i:=1 to n do
begin
if (y[i])=100 then
writeln(x[i]);
readln;
end;
end.

то есть в массиве x содержаться фамилии, а в массиве y соотв. кол-во баллов. Как мне поставить в соответсвие элементам матрицы y(100бальным) поставить соответсвующие элементы матрицы x?
Туманно и запутано обьяснил, но по другому не могу)

Не понял задания ) Программа к вашему заданию написана у вас в сообщении(я немного подправил текст) А поставить в соответсвие можно с помощью массива записей, но тогда проще сразу его заполнять, а не создавать два массива...

@Huku4 · 23.05.2010, 23:35 **[ТС]**

Делов том, что программу составлял я, а это сразу приговор) Программа печатает фамилию победителя только в том случае если последний из участников(в данном случае 3ий) набрал 100 баллов, а вот если 1ый или 2ой, то она просто завершается.

@Wizzy · 23.05.2010, 23:43

Вот подправил:

Pascal

program  olimpiada;
uses crt;
const n=3;
var x:array [1..n] of string;
    y:array [1..n] of integer;
    i:integer;
begin
clrscr;
 for i:=1 to n do
   begin
      writeln('vvedite familiy ',i,'ogo y4astnika:');
      readln(x[i]);
      writeln('vvedite balu danogo y4asnika:');
      readln(y[i]);
   end;
 writeln('imena pobeditelei:');
 for i:=1 to n do
   begin
      if (y[i])=100 then
           writeln(x[i]);
   end;
   readln;
end.

Пишите ещё, задачи не сложные могу помочь... Но кстате юзай поиск по сайту думаю такие же/похожие задачи есть.

@Huku4 · 23.05.2010, 23:47 **[ТС]**

да вроде бы искал) Но просмотреть все темы просто нереально) А насчет задач спасибо огромное и за помощь и за готовность помочь, но к сожалению у меня всего лишь 2 было

@Huku4 0 / 0 / 0 Регистрация: 16.05.2010 Сообщений: 7
	23.05.2010, 23:47 [ТС]	11
	да вроде бы искал) Но просмотреть все темы просто нереально) А насчет задач спасибо огромное и за помощь и за готовность помочь, но к сожалению у меня всего лишь 2 было 0

@Huku4 0 / 0 / 0 Регистрация: 16.05.2010 Сообщений: 7
	23.05.2010, 22:34 [ТС]	3
	Спасибо огромное за оперативность, но мне нужно решить программу с использованием процедуры. Может подскажете как? 0

@Huku4 0 / 0 / 0 Регистрация: 16.05.2010 Сообщений: 7
	23.05.2010, 22:49 [ТС]	5
	Вы наверное меня немного неправильно поняли(или это я туплю)) Но нельзя ли сделать чтобы было именно со "словом" procedure , а не function?) Извиняюсь за надоедство) 0

@Huku4 0 / 0 / 0 Регистрация: 16.05.2010 Сообщений: 7
	23.05.2010, 23:35 [ТС]	9
	Делов том, что программу составлял я, а это сразу приговор) Программа печатает фамилию победителя только в том случае если последний из участников(в данном случае 3ий) набрал 100 баллов, а вот если 1ый или 2ой, то она просто завершается. 0