Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];




Вниз

До чего же наглые!!! 


VEG   (2001-12-06 23:04) [0]

В енто воскресенье впервые побывал на олимпиаде. Слушайте, да там наглости больше, чем навалом!!! Некоторые участники, по незнанию языка(или по неумению логически мыслить?), в коде проги писали:
Case Put of
1:OutPut:=10;
2:OutPut:=30;
и т.д.
А самое главное, что эти алгоритмы проходят!!!!!!!



РУС   (2001-12-06 23:11) [1]

А ты чё думал? Туда ходят те, кому компьютер недовно купили. И которые на Visual Basic Linux писать собрались :-) Реальные пацаны на таких тусах не бывают :-)



panov   (2001-12-07 08:08) [2]

Не понял, при чем здесь наглость и при чем здесь код?
Код совершенно рабочий.



fliz   (2001-12-07 10:35) [3]

тоже не понял.
действительно нормально рабочий код.



sudiv   (2001-12-07 12:26) [4]

Ну и в чем фишка?, код рабочий. Ну, немного не хватает в конце, но в начале то хватает.
Я уже третий это пишу.



fliz   (2001-12-07 12:42) [5]

видимо имелось ввиду что это слово output
по умолчанию связано с выводом данных

да,на простом паскале вначале программы
по идее надо писать
program lalalal(input, output)

но output не есть зарегистрированное слово Паскаля.
перед этим case
никто не мешает описать
var
output, put : integer;



sudiv   (2001-12-07 12:46) [6]

Насколько я помню, эти путы стали необязательными и ненужными в объявлениях lalala(...) еще с Pascal 3.0 (или 3.3?)
И было это ой как давно, я еще и в школу то не пошел. :)



VEG   (2001-12-07 15:11) [7]

Я имею ввиду, что алгоритма решения не было! Они сами на бумашке считали и таким образом записывали! Там в задании нужно ввести число 1<X<70. Так решение в 80 строк получилось, а на самом деле решение делается из 4 строчек!!!



Andrey   (2001-12-07 16:25) [8]

И правда пора открывать форум "Для телепатов" :)



VEG   (2001-12-07 16:36) [9]

Задача:
3.Числа (Время на тест 1с, 31 балл)
Написать программу, которая для заданного натурального числа N находит наименьшее из больших чисел, составленных из тех же цифр. Если такого числа не существует, выдать ответ NO. Ограничение: N<=2000000000
Формат ввода-вывода: С клавиатуры вводится число На экран выводится единственное число или слово NO.

Пример ввода Пример вывода
12345 12354
5443 NO

Мое решение:
{Vrub1evski, School #2, 8”A” class}
Program N02_3;
var
Tec, TecEx, FTD, ReFTD: Integer;
IntTmp, IntEx, IntIn:integer;
n, nEx: string [255];
st:String[1];
Answer: Boolean;
begin
Answer:=False;
Write("Eriter N: "); readLn(n);
For ReFTD:=Length(n) downto 1 do
begin
val(n[ReFTD] ,Tec,intTmp);
For FTD:=Length(n) downto 1 do
begin
val(n[FTD] ,TecEx,intTmp);
If (TecEx<Tec)and(ReFTD>FTD) then
begin
nEx:=n;
Str (TecEx,st);
nEx[ReFTD]:=st[1];
Str (Tec,st);
nEx[FTD]:=st[1];
Answer:= true;
end;
If Answer=True then break;
end;
end;
val (nEx, IntEx, IntTmp);
val(n,IntIn,IntTmp);
If IntEx>IntIn then WriteLn("Answer: ",IntEx) else WriteLn("NO");
ReadLn(ST);
end.
А у некоторых:
Program N11_3;
var
Put,OutPut:Integer;
begin
Case Put of
1:OutPut:=0;
2:OutPut:=0;
3:OutPut:=0;
4:OutPut:=0;
5:OutPut:=0;
6:OutPut:=0;
7:OutPut:=0;
8:OutPut:=0;
9:OutPut:=0;
10:OutPut:=0;
11:OutPut:=0;
12:OutPut:=21;
13:OutPut:=31;
14:OutPut:=41;
15:OutPut:=51;
{и т.д. (Очень длинный список)}
end;
If OutPut<>0 then WriteLn(OutPut) else WriteLn ("NO");
end.



fliz   (2001-12-07 16:45) [10]

{xxxxx, School #2, 8”A” class}

вопросы у кого-нить еще есть ?
8)



VEG   (2001-12-07 16:52) [11]

Это пример!!! И третья из тех задача!!!



Romkin   (2001-12-07 17:16) [12]

procedure TForm1.Button1Click(Sender: TObject);
var
s: ansistring;
gchar: ansichar;
i, j, k: integer;
begin
s := Edit1.Text; //number
//check for number
for i := 1 to length(s) do
if not (s[i] in ["0".."9"]) then
raise Exception.CreateFmt("Not a number: %s",[s]);
k := 0;
for i := length(s) downto 2 do
if s[i] > s[i-1] then
begin
gchar := s[i];
s[i] := s[i-1];
s[i-1] := gchar;
k := i;
break;
end;
if k > 0 then //shuffle (bubblees)
for i := k+1 to length(s) do
for j := k to i-1 do
if s[j] > s[j+1] then
begin
gchar := s[j];
s[j] := s[j+1];
s[j+1] := gchar;
end;
if k = 0 then
Edit2.Text := "No"
else
Edit2.Text := s;
end;
на Delphi :-))
Без ограничения длины числа
И все вроде правильно



VEG   (2001-12-07 19:59) [13]

Задачка была на TP. В моем коде тоже, фактически, можно писать любое число, только типы переменных нужно поменять!!!




Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.74 MB
Время: 0.023 c
7-100072          Liroy                 2001-10-19 21:26  2002.01.31  
Hook, клавиатурный шпион


3-99849           Роман_                2001-12-26 10:59  2002.01.31  
Отключить триггеры InterBase ?


1-100002          Илья                  2002-01-15 09:48  2002.01.31  
RichEditControl


1-99979           dimonf                2002-01-14 16:44  2002.01.31  
Вопрос, как маштабировати и просматривать график.


3-99861           Алексей Акиньхов      2001-12-26 14:34  2002.01.31  
Преобразование dbf файлов