Нижегородский Форум Друзей

Нижегородский Форум Друзей (http://forum.nnov.org/)
-   НГТУ (http://forum.nnov.org/gorodskaya-zhizn/ucheba/ngtu/)
-   -   Помогите с паскалем) (http://forum.nnov.org/gorodskaya-zhizn/ucheba/ngtu/35486-pomogite-s-paskalem.html)

Shrek-Ogre 24.11.2008 20:23

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

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

YuP 24.11.2008 20:40

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

Shrek-Ogre 24.11.2008 21:14

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

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

просто вообще не понимаю как сделать( натолкните на путь решения пожалуйста)
собсно задача):
[Для просмотра данной ссылки нужно зарегистрироваться]

Axel2150 24.11.2008 21:25

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

Shrek-Ogre 24.11.2008 21:32

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

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

Axel2150 24.11.2008 21:35

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

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

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

napster_X 25.11.2008 21:37

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

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 вариантов перепробовал!!!) и в произведении(он почему-то на * ругается)

SakaE 25.11.2008 23:05

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

Program laba3;
Var m:array[1..3,1..5] of integer;
        max,u,P:real;
        i,j,jmax,tempJ,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;
j:=2;
                for i:=1 to 3 do
                        if(m[i,j]>=max) then
                                begin
                                        if j<5 then
                                                begin
                                                        max:=m[i,j];
                                                        jmax:=j;
                                                end;
                                                j:=j+2;
                                end;
                       
        writeln('j max  ',max:4:2);

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

        t:=jmax;
        jmax:=m[3,5];
        m[3,5]:=t;
        writeln('¬*бЁў б §*¬Ґ**®©');
        readln;
end;
end.


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

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

napster_X 25.11.2008 23:31

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

SakaE 26.11.2008 01:47

Цитата:

Сообщение от Shrek-Ogre (Сообщение 593348)
можно я немного обнаглею)))

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

просто вообще не понимаю как сделать( натолкните на путь решения пожалуйста)
собсно задача):
[Для просмотра данной ссылки нужно зарегистрироваться]

как то так:
Код:

Program blblbl;
Var        m:array[1..5,1..3] of real;
        max,u,P:real;
        i,j,imax,t:integer;
begin
        writeln('vvedite elementy massiva 5x3');
        for i:=1 to 5 do for j:=1 to 3 do read(m[i,j]);
        for i:=1 to 5 do begin
        for j:=1 to 3 do write(' ',m[i,j]:0:0); writeln;
        end;
max:=m[1,1];
                for i:=1 to 5 do for j:=1 to 3 do
                begin
                        if(m[i,j]>=max) then
                                begin
                                        max:=m[i,j];
                                        imax:=i;
                                end;
                end;
writeln('i max  ',max:4:2);

P:=0;
for j:=1 to 3 do
        P:=P+(sin(m[imax,j])+1/(abs(m[imax,j])));
writeln('S= ',P:0:6);
m[2,2]:=P;
for i:=1 to 5 do
        begin
                for j:=1 to 3 do write(' ',m[i,j]:0:0);
                writeln;
        end;
readln;
end.


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

kirillstud 26.11.2008 03:04

Цитата:

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

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

а защиту ты думаешь тебе препод сделает?:roll1:

Shrek-Ogre 26.11.2008 20:44

Цитата:

Сообщение от kirillstud (Сообщение 594919)
а защиту ты думаешь тебе препод сделает?:roll1:


какую защиту)?

napster_X 27.11.2008 00:05

Ребят почему у меня замена не получается:(??

Код:

Program laba3;
Var m:array[1..3,1..5] of integer;
        max,u,P:real;
        i,j,jmax,t:integer;
begin
        writeln('вв матрицу 3x5');
        for i:=1 to 3 do for j:=1 to 5 do read(m[i,j]);
        writeln('Ёб室*л© ¬*бЁў');
        for i:=1 to 3 do begin
        for j:=1 to 5 do write(' ',m[i,j]); writeln;
end;
max:=-100;
begin
        j:=2;
        while(j<5) do begin
                for i:=1 to 3 do if(m[i,j]>max) then
                        if j<5 then
                                begin
                                max:=m[i,j];
                                jmax:=j; end;

        j:=j+2;
        end;
        writeln('j max  ',max:4:2);
begin
p:=1;
        for i:=1 to 3 do for j:=4 to 4 do
        begin
                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);
        end;
        writeln(' P= ',P:4:2);
end;
for i:=1 to 3 do begin
        t:=jmax;
        jmax:=m[3,5];
        m[3,5]:=t;
        end;
writeln('матрица с заменой');
        for i:=1 to 3 do begin
        for j:=1 to 5 do write(' ',m[i,j]);
        writeln;
        end;
end;
end.


Axel2150 27.11.2008 00:21

условия задачи написать очень трудно полностью? в гавно коде капатся не очень здорово не зная условий полных... и так элементарщину из 11 класса школы написать не могут так ещё два предложения условия не могут написать... или хотя бы чего хотел сделать и чего получилось сделать написать...

kirillstud 27.11.2008 05:49

Цитата:

Сообщение от Shrek-Ogre (Сообщение 595658)
какую защиту)?

которую тебе препод даст, чтобы проверить сам ты делал эти задачи или нет,
защита посложнее будет .....:)

napster_X 27.11.2008 14:30

Извеняюсь:pardon:!)
Вот задание полностью:
[Для просмотра данной ссылки нужно зарегистрироваться]

napster_X 27.11.2008 16:55

Ура! Сделал! Сделал САМ!!!! спасиб всем кто помогал))))))

Axel2150 27.11.2008 23:23

Ух ты какой молодец
:rofl3::rofl3::rofl3::rofl3::rofl3::rofl3:

Shrek-Ogre 28.11.2008 17:54

Цитата:

Сообщение от kirillstud (Сообщение 596074)
которую тебе препод даст, чтобы проверить сам ты делал эти задачи или нет,
защита посложнее будет .....:)

ни одного вопроса не задала)))

kirillstud 29.11.2008 01:57

рейтинга 50 не жди)


Часовой пояс GMT +3, время: 06:21.

Powered by vBulletin® Version 3.7.3
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. Перевод:
Search Engine Friendly URLs by vBSEO 3.6.0zCarot
© 2005—2015 ООО «Интернет компания ННОВ.РУ», friends.nnov.ru
Реклама на форуме