Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
03.12.2007, 20:45
|
|
Участник форума
Регистрация: 04.05.2007
Сообщений: 267
Провел на форуме:
409147
Репутация:
33
|
|
паскаль, вы программер?
собственно вот, есть задача, но она написана ппц, в непонятнном языке))) я имую навыки только школьного паскаля, так что понять неавозможно
PHP код:
{ From : Vadim Serov 2:5077/36.35 26.10.97
Subj : ЋЇаҐ¤Ґ«Ґ*ЁҐ ‘Ґ¤«®ў®© ’®зЄЁ ў Њ*ваЁжҐ
}
const
MAX=20;
type
line=Array[1..MAX] of Extended;
var
smin:Extended;
imin:Integer;
i,j,n,m:Integer;
x:Array[1..MAX] of line;
buf:line;
juf:Array[1..MAX] of Integer;
inp:Text;
begin
Assign(inp,'matrix.txt');
Reset(inp);
Read(inp,n,m);{Є®«ЁзҐбвў® бвp®Є Ё бв®«Ўж®ў}
if (MAX<n) or (MAX<m) then
Write('*Ґ¦Ґ«*о бзЁв*вм! ')
else begin
for i:=1 to n do
for j:=1 to m do
Read(inp,x[i][j]);
for i:=1 to n do begin
buf[i]:=x[i][1];
juf[i]:=1;
for j:=2 to m do
if buf[i]<x[i][j] then begin
buf[i]:=x[i][j];
juf[i]:=j
end
end;
smin:=buf[1];
for i:=2 to n do begin
if smin>buf[i] then begin
smin:=buf[i];
imin:=i
end
end;
Writeln;
Write('‘Ґ¤«®ў*п в®зЄ* x=',juf[imin],' y=',imin)
end;
Close(inp)
end.
вот задание буцдет видно в самом паскале, про седловую точку |
|
|
03.12.2007, 20:49
|
|
Познавший АНТИЧАТ
Регистрация: 09.06.2006
Сообщений: 1,359
Провел на форуме:
5301021
Репутация:
1879
|
|
Чё сделать то надо?  |
|
|
|
03.12.2007, 20:52
|
|
Участник форума
Регистрация: 04.05.2007
Сообщений: 267
Провел на форуме:
409147
Репутация:
33
|
|
ну перевести в понятный для понимания язык))
допустим const max=20 в школьной программе вообще нет такого =\ ну по проще описать
|
|
|
|
03.12.2007, 20:56
|
|
Reservists Of Antichat - Level 6
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311
Репутация:
1676
|
|
const это переменная, которую нельзя изменить.
Почитай хотя бы это
http://www.learn-programming.za.net/learn_pascal_programming.html
|
|
|
|
03.12.2007, 20:57
|
|
Познавший АНТИЧАТ
Регистрация: 09.06.2006
Сообщений: 1,359
Провел на форуме:
5301021
Репутация:
1879
|
|
program whattafuck;
uses crt;
 |
|
|
|
03.12.2007, 21:01
|
|
Участник форума
Регистрация: 04.05.2007
Сообщений: 267
Провел на форуме:
409147
Репутация:
33
|
|
да я просто обычно английский изучаю, вот только освободился и думаю накера мне паскаль пойду в перевеодчики =\
|
|
|
|
03.12.2007, 21:03
|
|
Познающий
Регистрация: 11.08.2005
Сообщений: 38
Провел на форуме:
247533
Репутация:
4
|
|
А че тут кроме const MAX непонятно ?
вообще если смущает const MAX то удали описание и везде где видишь MAX напиши 20.
|
|
|
|
03.12.2007, 21:04
|
|
Участник форума
Регистрация: 04.05.2007
Сообщений: 267
Провел на форуме:
409147
Репутация:
33
|
|
ну да ладно, по крайней мере у меня ругается на
inp,x[i][j]);
в чем беда? посморите у себя. плиз
|
|
|
|
03.12.2007, 21:14
|
|
Познающий
Регистрация: 01.02.2007
Сообщений: 89
Провел на форуме:
1668307
Репутация:
114
|
|
ну да ладно, по крайней мере у меня ругается на
inp,x[i][j]);
в чем беда? посморите у себя. плиз
x не двумерный массив
надо определить его как x:Array[1..MAX][1..MAX] of line;
или x:Array[1..MAX, 1..MAX] of line;
|
|
|
|
03.12.2007, 21:32
|
|
Участник форума
Регистрация: 04.05.2007
Сообщений: 267
Провел на форуме:
409147
Репутация:
33
|
|
там не только на это ругается может кто поможет сразу попробываться скомпилировать у себя и после выложит готовый результат? плиз
|
|
|
|
|
|
|
Похожие темы
|
| Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
|
Паскаль
|
Fire3d |
Болталка |
9 |
30.06.2007 03:52 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для [aywo]](/avatars/avatar32504.jpg?519696){kind=avatar}
Линейный вид
