Объединенный архив форумов UniverClub и StudLife (2006-2010). Поддерживает: Леонид Шевцов.

Помогите, пожалуйста!

3066
Привет, помогите доделать последнюю лабораторную работу в Паскале, так как без нее мне не видать следующего семестра!!! Люди, буду очень признательна, плыз*HELP*

условие задачи выгядит так:
Дана матрица розмерностью n на m,все элементы матрицы-цэлые,которые опредиляются пользователем проги!Подсчетать кол-во четных и нечетных чисел,сравнить их,в качестве ответа вывести информацию про то,что каких чисел больше?

Заранее благодарна, надеюсь форум не откажет в помощи!
86
Сейчас будет куча недовольств, но я пока такой вариант выложу :) :)

program XXX;

const m=4;
n=3;

var a:array [1..m, 1..n] of integer;
i, j, k, l: integer;

begin
writeln ('Vvedite massiv');
for i:=1 to m do
for j:=1 to n do
readln (a[i,j]);

//k - 4etnie, l - ne4etnie;

k:=0;
l:=0;
for i:=1 to m do
for j:=1 to n do
begin
if (a[i,j] mod 2 = 0) then
inc (k)
else inc (l);
end;

//sravnivaem

if k>l then
writeln ('bolwe 4etnix 4isel')
else
if k=l then
writeln ('4isel porovny')
esle writeln ('bolwe ne4etnix 4isel');


readln;
end.


Но еще подредактируй под себя :) :)
3066
Lisena, спасибо огромное, но ето конечный вариант, или он требует еще доработки?
86
Mawa, вроде - конечный :)
Если сейчас не набегут еще программеры, то конечный :) ЗЫ: тут

Но у меня все работает.

И еще там кнопочка "спасибо" есть :)
213
все правильно :) молодец, тока еще есть вариант когда попадется 0 - прога посчитает его как четное, а он не четный и не нечетный. но это так... мелочи жизни :)
86
Frodo, я ж говорила, что сейчас все будет :) :)
А как исправить? :) Займись этим :-P:-P:-P ;)
213
просто вместо

for i:=1 to m do
for j:=1 to n do
if (a[i,j] mod 2 = 0) then
inc (k)
else inc (l);


надо сделать так:


for i:=1 to m do
for j:=1 to n do
if (a[i,j]<> 0) then
if (a[i,j] mod 2 = 0) then
inc (k)
else inc (l);
86
Frodo, пасип :) :) Ток тогда еще begin с end'ом вставить надо :) :)
213
Lisena, не не надо.смотри, в for только один оператор for, в котором тока один оператор if, в которм в свою очередь тока один оператор if :) вот так вот )) так что бегин и енд не нужны.

зыЖ вначале проги строчку program совсем не обязательно писать - она на самом деле вообще никогда не используется. это я так... делюсь опытом
3
ноль считается четным - для справки
86
Frodo, хм...
213
хм... порылся в википедии... таки да... перепутал а полоительными и отрицательными числами...

добавлено через 14 секунд
http://ru.wikipedia.org/wiki/Чётные_и_нечётные_числа#_note-0
86
Frodo, +1 ко мне и Fred:) :)

добавлено через 1 минуту
Mawa, теперь, вроде, все норм:)
213

Frodo, +1 ко мне и Fred'у

Lisena

в смысле?