Помогите с паскалем)

[Shrek-Ogre]

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

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

[YuP]

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

[Shrek-Ogre]

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

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

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

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

[Axel2150]

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

[Shrek-Ogre]

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

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

[Axel2150]

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

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

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

[napster_X]

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

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]

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.-если что не так, ко мне никаких претензий - я вообще за паскаль сел первый раз за несколько последних лет

[napster_X]

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

[SakaE]

Сообщение от Shrek-Ogre

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

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

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

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

как то так:

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.

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

[kirillstud]

Сообщение от Shrek-Ogre

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

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

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

[Shrek-Ogre]

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

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

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

[napster_X]

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

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]

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

[kirillstud]

Сообщение от Shrek-Ogre

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

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

[napster_X]

Извеняюсь!)
Вот задание полностью:

[napster_X]

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

[Axel2150]

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

[Shrek-Ogre]

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

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

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

[kirillstud]

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