Нижегородский Форум Друзей - Помогите с паскалем)

- НГТУ (http://forum.nnov.org/gorodskaya-zhizn/ucheba/ngtu/)

- - Помогите с паскалем) (http://forum.nnov.org/gorodskaya-zhizn/ucheba/ngtu/35486-pomogite-s-paskalem.html)

условия прерывания цикла смотри. у тебя вместо: until(x>4); должно быть until(x>3);

и until(y>4);

YuP

спасибо тебе большое):yahoo:

ммм... как то поменьше тут можно переменных ввести мне кажется и цикл один убрать... хотя я сделал на С... а С - гибкий мать его язык >__<
На паскале не помню уже можно ли так сделать...

я С вообще не знаю)

Значит тебе в каком то смысле повезло

незнай-незнай)

наверно после паскаля С пойдёт, так что и не очень повезло)

Плохо это cи после паскаля изучать.
Не знаю как остальные, а у меня хорошо только первые два языка отложились (паскаль и асм) Остальные не пошли.

можно я немного обнаглею)))

и попрошу помочь с ещё одной задачей, на этот раз последней)

просто вообще не понимаю как сделать( натолкните на путь решения пожалуйста)

собсно задача):

хах.. чувак.. ты как программирвоат ьсобираешься если вот такие задачки сам не хчоешь делать?? у тебя алгоритмическое мышление не будет и ты будешь как китаец или индус писать код

ну я вообще на электрика учусь (электроснабжение)

так что думаю оно мне и не понадобится)

А ваще не моё это дело...
в первой задаче надо просто просматривать матрицу стороку за строкой и искать значение больше мах...

во второй надо точно также но фиксироват ьещё и номер i строки.. а потом тока по ней бегать и считать функцию

а смешно ещё то что я именно эти задачи кому то из палитеха за 200 делал (=... там ещё вот та третья была.. жаль исходников не сохранилось (=

А помогите мне плиз!!! у меня прога написанна, только вот не могу грамотно составить условие....
вот текст:

Код:

Program laba3;

Var m:array[1..3,1..5] of integer;

        max,u:real;

        i,j,jmax,P,t:integer;

begin

        writeln('введите матрицу 3x5');

        for i:=1 to 3 do for j:=1 to 5 do read(m[i,j]);

        for i:=1 to 3 do begin

        for j:=1 to 5 do write(' ',m[i,j]); writeln;

end;

max:=-100;

for i:=1 to 3 do for j:=1 to 5 do

        if(j+i=j+2) THEN if(m[i,j]>max) then

        begin

                max:=m[i,j];

                jmax:=j;

        end;

        writeln('j max  ',max:4:2);



begin

p:=1;

for i:=1 to 3 do for j:=4 to 4 do m[i,j];

        for i:=1 to 3 do for j:=4 to 4 do m[i,j];

        for i:=1 to 3 do for j:=4 to 4 do P:=P*(((1+cos(1-1/m[1,4]))+8.3)*((1+cos(1-1/m[2,4]))+8.3)*((1+cos(1-1/m[3,4]))+8.3)*((1+cos(1-1/m[4,4]))+8.3));

        writeln(' P= ',P);

end;

for i:=1 to 3 do begin

        t:=jmax;

        jmax:=m[3,5];

        m[3,5]:=t;

        writeln('¬*бЁў б §*¬Ґ**®©');

end;

end.

Надо найти найбольший элемент в четных столбцах, вычислить произведение и поменять местами наибольший элемент с последним элементом.
- - - -
ошиба в нахождении элемента(я 100 вариантов перепробовал!!!) и в произведении(он почему-то на * ругается)

napster_X,
В условиях недостаточности данных смог сделать только

ЭТО:

наибольший элемент вроде находит. Произведение чего на что должен он находить я не понял, в любом случае m[4,4] в твоем варианте неверно - такого элемента просто не существует в массиве в котором предел m[3,5]. В строке перемножения у меня отладчик ругался на две вещи:
1) во первых, у тебя P:int , а ты ему вот так пытался присвоить real значение
2) длина строки, уж не знаю как в твоем отладчике, но для моего отладчика строка показалась длинноватой:) поменял - если не нравится, исправь

P.S.-если что не так, ко мне никаких претензий - я вообще за паскаль сел первый раз за несколько последних лет:pardon:

Пасиб! у меня теперь почему-то после ввода матрицы ошиба каката вылетает) попробую сейчас поправить....

Цитата:

Сообщение от Shrek-Ogre (Сообщение 593348)

собсно задача):

как то так:

что-то как будто не так... но уже поздно и мне влом что-то делать:pardon:
P.S.-пора завязывать с благотворительностью на какое-то время :crazy: