|
|
|
|
|
|
|
Вернуться
| 1 Баширов Ренат Маратович, 20 января 2010 г. 10:44:06 | |
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
=reset(input,'input.txt');
rewrite(output,'output.txt');
|
|
|
| 2 Мас Мих В, 16 января 2010 г. 1:35:35 | |
|
Спрашивай, если что
|
|
|
| 3 Аткаев Саид Хусейнович, 16 января 2010 г. 1:33:32 | |
|
Спасибо большое...ты помог мне и другу))))
|
|
|
| 4 Мас Мих В, 16 января 2010 г. 1:27:55 | |
Та N забыл считать
и еще вот
var n,i,max,v,s,q:integer;
Begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
readln(n);
q:=-1;
For i:=1 to n do
begin
Readln(v,s);
If (v>max)and(s=1)
then begin
max:=v;
q:=i;
end;
end;
write(q);
End.
input и output не надо объявлять
хватает только первых двух строк вначале
и их не надо будет указывать явно в read и write
|
|
|
| 5 Аткаев Саид Хусейнович, 16 января 2010 г. 1:15:48 | |
|
у меня со временем проблемы((
|
|
|
| 6 Аткаев Саид Хусейнович, 16 января 2010 г. 1:15:20 | |
Program z131;
var n,i,max,v,s,q:integer;
fin,fout:text;
Begin
Assign(fin,'input.txt');
Assign(fout,'output.txt');
reset(fin);
rewrite(fout);
q:=-1;
For i:=1 to n do
begin
Read(fin,v,s);
If (v>max)and(s=1)
then begin
max:=v;
q:=i;
end;
end;
write(fout,q);
close(fin);
close(fout);
End.
|
|
|
| 7 Мас Мих В, 16 января 2010 г. 1:12:10 | |
Я посмотел ты там задачу решал 131
Покажи как, я тебе скажу, что неправильно
|
|
|
| 8 Мас Мих В, 16 января 2010 г. 1:06:38 | |
А ну тогда учись ;)
И главное изучай математику (все виды лучше)
И в школе (если ты серьезно хочешь этим заняться) проси, чтобы на чем-то другом писать Java, c++, c#
А то после паскаля(личный опыт) не очень удобно переходить на более серьезные
Сейчас о паскале/дельфи даже не вспоминаю))
|
|
|
| 9 Аткаев Саид Хусейнович, 16 января 2010 г. 0:51:22 | |
|
я бы писал..да вот я учусь еще в школе и проги мы пишем в паскале)))
|
|
|
| 10 Мас Мих В, 16 января 2010 г. 0:47:11 | |
Посоветывал бы тебе писать на дельфи 7 в консоли
Удобнее отлаживать
А в плане скорости проги на паскале довольно быстро работают
Хотя там нет библиотек с алгоритмами и структурами
|
|
|
| 11 Аткаев Саид Хусейнович, 16 января 2010 г. 0:40:46 | |
|
я пишу на turbo pascal 7.1
|
|
|
| 12 Мас Мих В, 16 января 2010 г. 0:23:23 | |
а на чем ты пишешь? (проблемы тут в основном только у тех кто пишет на Java)
А вообще главный способ уменьшить время это правильный алгоритм.
|
|
|
Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!
| | | |
