|
|
|
|
|
|
|
Вернуться
| 41 Ильясов Хизри, 18 ноября 2013 г. 18:57:24 | |
|
Водяной змей)) пойми же мне на олимпиаду нужно
|
|
|
| 42 Водяной Змей, 18 ноября 2013 г. 18:10:54 | |
Ильясов Хизри,
как будто Вас кто-то заставляет.
Ну не нужен Вам Паскаль - не пишите на нём, и всё.
Знаний от этих задач, как сами видите, прибавляется немного.
|
|
|
| 43 Ильясов Хизри, 18 ноября 2013 г. 17:39:46 | |
Блиииинннн жеестььь!!!!!!!!!! Я уже устал одну и ту же задачу решать 2й день
Var A,V,S,i,c,max:longint; f1,f2:text;
begin
assign(f1,'i.txt');
assign(f2,'res.txt');
reset(f1);
readln(f1,a);
c:=0; max:=0;
for i:=1 to a do begin
read(f1,V,S);
if s=1 then begin
if max<V then max:=v; c:=c+1;
end;
end; rewrite(f2);
if c>0 then writeln(f2,c) else writeln('-1');
close (f1);
close (f2);
end.
|
|
|
| 44 Водяной Змей, 18 ноября 2013 г. 1:36:40 | |
Ильясов Хизри,
1. В целом - верно.
2. Но вижу ошибку по невнимательности.
Когда мужчин нет, надо выводить -1, а не 1.
3. Вы уж определитесь, пишете Вы begin..end, когда в теле условного оператора только одна строчка, или нет. А то на 7-ой строке лишний begin есть, на предпоследней - нет...
Это очень раздражает.
4. Код лучше постить на pastebin.com а сюда кидать ссылку.
|
|
|
| 45 Ильясов Хизри, 17 ноября 2013 г. 23:27:09 | |
ЗАДАЧА №131 я его решил как смог)) без входных и выходных файлов
Скажите пжл правильно или нет )
Var A,V,S,i,c,max:longint;
begin
readln(a);
c:=0; max:=0;
for i:=1 to a do begin
read(V,S);
if s=1 then begin
if max<V then begin max:=v; c:=c+1; end;
end;
end;
if c>0 then writeln(c) else writeln('1');
end.
|
|
|
| 46 Ильясов Хизри, 17 ноября 2013 г. 23:05:58 | |
Var a,b,el,d:longint;
begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
read(a,b,el);
d:=b-a;
el:=a+d*(el-1);
writeln(el);
close (input);
close (output);
end.
Вот щас прошла)))
Только все еще задаюсь вопросом почему одни задачки проходят когда вотыкаешь
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
|
|
|
| 47 Ильясов Хизри, 17 ноября 2013 г. 22:54:38 | |
|
Водяной Змей, ну а почему задачу a+b принял компилятор сайта??
|
|
|
| 48 Водяной Змей, 17 ноября 2013 г. 17:31:39 | |
Ильясов Хизри,
"а как объявлять тогда ?"
Валерий не прав, word иногда тоже верно. Но зависит от диапазона значений, указанного в условии задачи.
"Степанов Алексей Сергеевич"
Вы ошиблись, мой ник - Водяной Змей.
А Степанов Алексей Сергеевич ни про какие переменные ничего Вам не писал.
"там тоже не объявлены переменные переменные F1,F2:text; , но acmp принял его"
Переменных F1 и F2 там по-любому быть не должно, там же input и output.
Или и они тоже не объявлены?
В общем, я не видел ни одного компилятора Паскаля, который бы допускал такие вещи, так что экспериментировать смысла не вижу.
А вот что действительно нужно - так это закрывать входной и выходной файлы в конце программы функцией close().
|
|
|
| 49 Ильясов Хизри, 17 ноября 2013 г. 14:12:45 | |
Козлов Валерий Викторович, перед end ";" не нужно ставить, а как объявлять тогда ?
Степанов Алексей Сергеевич, там же есть кусок кода который отвечает за входные и выходные файлы, вот например задача А+B
var a, b : longint;
begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
read(a, b);
write(a + b);
end.
там тоже не объявлены переменные переменные F1,F2:text; , но acmp принял его)))
|
|
|
| 50 Козлов Валерий Викторович, 17 ноября 2013 г. 7:08:15 | |
Var a,b,el,d:word; // тип переменных объявлен неправильно
writeln(el) // здесь нужно добавить ;
|
|
|
| 51 Водяной Змей, 16 ноября 2013 г. 23:45:58 | |
Степанов Алексей Сергеевич, что Вы можете написать, если Вы вот уже который день разводите истерику из-за какого-то Compilation Error? Максимум - списать откуда-нибудь готовое решение, которое к тому же может быть неверным. Или я ошибаюсь?
Ильясов Хизри, Вы вводите и выводите значения в консоль, а надо во входные и выходные файлы. К тому же у Вас, кажется, не объявлены переменные входного и выходного файлов.
|
|
|
| 52 Ильясов Хизри, 16 ноября 2013 г. 19:31:54 | |
Var a,b,el,d:word;
begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
read(a,b,el);
d:=b-a;
el:=a+d*(el-1);
writeln(el)
end.
Почему не правильно не подскажешь ?
|
|
|
Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!
| | | |
