IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Помогите исправить IF
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской
Реальное имя: Леха

Репутация: -  0  +


в if, что энтером отделен, нужно вписать else. помогите пожалуйста, а то что-то ничего на ум не приходит.

program lab5;
uses crt;
const n=10;
m=10;
var a,b:array [1..n,1..m] of longint;
c:array [1..n] of longint;
i,j,k:integer;
max,f:longint;
begin
clrscr;
randomize;
for i:=1 to n do
begin
f:=1;
for j:=1 to m do
begin
if i=j then f:=1 else

if j>i then f:=f*abs(j-i) else

a[i,j]:=(-1)*(100-f);
write(a[i,j]:7);
end;
writeln;
end;
writeln;
max:=a[1,1];
for j:=1 to m do
begin
for i:=1 to n do
if a[i,j]>max then max:=a[i,j];
write(max:7);
max:=a[1,1];
end;
writeln;
writeln;
for i:=1 to n do
begin
for j:=1 to m do
begin
b[i,j]:=a[n+1-i,n+1-j];
write(b[i,j]:7);
end;
writeln;
end;
repeat
until keypressed;
end.


Сообщение отредактировано: Diablo -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Так у тебя уже есть там Else... Куда еще поставить-то надо, уточни...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской
Реальное имя: Леха

Репутация: -  0  +


если j<i. не пойму что будет результатом.

...for j:=1 to m do
begin
if i=j then f:=1 else
if j>i then f:=f*abs(j-i) else__________;

a[i,j]:=(-1)*(100-f);
write(a[i,j]:7);
end...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Так вот и будет результатом нижняя строка... Делал бы форматирование текста, все было бы видно:

for j:=1 to m do begin

if i=j then f:=1
else
if j>i then f:=f*abs(j-i)
else a[i,j]:=(-1)*(100-f);

write(a[i,j]:7);
end;


Четвертого варианта не дано, может быть только i = j, j > i или j < i ...

Добавлено через 1 мин.
Особенно радует - что условие задачи известное тебе должно быть автоматически известно и нам, правда?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской
Реальное имя: Леха

Репутация: -  0  +


нужно было матрицу задать по формуле a[i,j]=(100-lj-il!)*(-1)
извини, но по твоему если i>j, то тогда факториал будет равен 1?


for j:=1 to m do begin

if i=j then f:=1
else
if j>i then f:=f*abs(j-i)
else a[i,j]:=(-1)*(100-f);

write(a[i,j]:7);
end;




 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






А при чем здесь по-моему? Ты полностью ЗАДАНИЕ приведи, как тебе его дали, а не "типа, тут это надо было..."

Я, понимаешь ли, не вижу сквозь несколько тысяч километров, и через экран читать еще не научился... Я просто показал тебе, как компилятор воспринимает твою программу...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


Diablo, вообще-то, это по-твоему smile.gif))
а так - какая разница, что больше - i или j?
надо делать
if i=j then...
else...


и все


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гость






А если задание у тебя такое как ты показал, на что тебе эти if-ы тогда?

  for i:=1 to n do begin
for j:=1 to m do begin

f := 1;
for k := 1 to abs(j - i) do f:=f*k; { <--- Вот тебе вычисление факториала }
a[i,j]:=(-1)*(100-f);

write(a[i,j]:7);
end;
writeln;
end;


Сообщение отредактировано: volvo -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской
Реальное имя: Леха

Репутация: -  0  +


знаешь в чем вся штука? я целый день доказывал своему преподу, что никаких условий кроме равенства i=j здесь не нужно. что модуль, он и в африке модуль, а потому разницы нету, что больше i или же j.
но все равно, спасибо что выделил время.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Новичок
*

Группа: Пользователи
Сообщений: 19
Пол: Мужской
Реальное имя: Юра

Репутация: -  -1  +


Цитата(Diablo @ 17.05.2007 22:50) *

знаешь в чем вся штука? я целый день доказывал своему преподу, что никаких условий кроме равенства i=j здесь не нужно. что модуль, он и в африке модуль, а потому разницы нету, что больше i или же j.
но все равно, спасибо что выделил время.

ты пол дня пива пил, как ты мог доказывать что blink.gif то.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской
Реальное имя: Леха

Репутация: -  0  +


закрыть тему
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 23.12.2024 21:08
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name