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




Вниз

Что лучше? 


Вадим   (2001-12-05 21:55) [0]

Сегодня на иинформатике прикол был:

Задача: есть последовательлных чисел (а1..аn), заполнена 0 и 1. Расставить значения так, чтобы в начале шли 0, а потом 1.

Мое решение на TP:

program n28;
var
a, a1: array[1..20] of integer;
i, n: integer;
begin
Randomize;
for i := Low(a) to High(a) do
a[i] := Random(2);
for i := Low(a) to High(a) do
begin
a1[i] := a[i];
a[i] := a1[i]; { : ))) }
end;
n := 0;
for i := Low(a) to High(a) do
if a[i] = 0 then
begin
Inc(n);
Dec(n);
end
else
begin
Inc(n);
Dec(n);
end;
for i := 1 to 20 do WriteLn(Random(20)); { а это вывод массива :) }
ReadLn;
end.

Так и было написанно на уроке. Ну, может быть чуть-чуть не так, но суть та же (без преувеличения!).

Наша училка заболела и заменяет другая. Когда я ее подозвал, что бы показать решение она прочитала (или сделал вид) условие задачи, поосмотрела (или сделал вид) на мое решение, я запустил эту прогу. И самое-самое, сказала, что все правильно и поставила 5!

Она что, прилывалась?



Вадим   (2001-12-05 21:57) [1]

Вопрос забыл :). Что лучше: такая училка или которая действительно учит?



evgeg   (2001-12-05 22:04) [2]

Лучше для чего?



Suntechnic   (2001-12-05 22:08) [3]

Чушь...



Jey   (2001-12-05 23:02) [4]

>>Вадим © (05.12.01 21:55)
"......я запустил эту прогу"

Еще скажи, что она у тебя заработала...
Кстати, не лень было писать... Настоящее решение намного короче.



DK   (2001-12-06 03:12) [5]

Подсчитваешь кол-во нулей (N) и заполняешь массив сначала N нулями, а потом до конца единицами



Вадим   (2001-12-06 13:21) [6]

2Jey, DK

Я знаю настоящее решение задачи. А это похоже на правильное решение?

>Еще скажи, что она у тебя заработала...

Да, вывела 20 случайных чисел.

Посмотрите исходник по внематильнее. Вы видете что-нибудь, кроме a: array[1..20] of integer;, что относется к условию задачи?



McSimm   (2001-12-06 14:53) [7]

2 Вадим ©
БРАВО !
Мне шутка понравилась.

А по поводу вопроса могу однозначно ответить: хороший преподаватель - дар судьбы. Когда я учился, у меня была преподаватель программирования (Марченко Т.С., низкий ей поклон), которая умела обучать не языкам, а программированию. Учили мы древний Фортран, ассемблер для больших машин, PL и классический Паскаль. То глубокое уважение, которое мы к ней испытывали, превращалось (по молодости) в нетерпимость к другим преподавателям (по замене, например) у которых отличник тот, у кого конспект красивый. Мы тоже любили шутки. Например, один преподаватель форматировал винчестер из-за того, что ему в autoexec.bat вставили
:1
ECHO Виктор Петрович некомпетентный человек
GOTO :1



Jey   (2001-12-06 22:39) [8]

>>Вадим © (06.12.01 13:21)
И ошибок типами тоже небыло... Так я и поверил.



Alx2   (2001-12-07 08:17) [9]

Да уж...
Такой "учитель" довольно вредоносная штучка.
Хотя, кто кого на самом деле разыграл?
Но в любом случае, даже если с ее стороны это было шуткой, то очень глупой.



Вадим   (2001-12-07 11:43) [10]

2Jey
>И ошибок типами тоже небыло... Так я и поверил.

Покажи ошибку.



Jey   (2001-12-08 21:37) [11]

Вроде как в TP результат random Должен быть
типа real, хотя мет я и ошибаюсь...




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




Наверх





Память: 0.73 MB
Время: 0.03 c
3-99832           Доктор                2001-12-20 22:17  2002.01.31  
Фильтрация!!! срочно!!


1-99965           Aleksandr             2002-01-14 11:12  2002.01.31  
Проекция объектов


4-100124          star                  2001-11-28 12:35  2002.01.31  
Клавиатурные шпионы ...


14-100060         123sss                2001-12-07 02:34  2002.01.31  
О пиве, и проч.


3-99869           mcmax                 2001-12-24 23:36  2002.01.31  
SQLPASSTHRU MODE= SHARED AUTOCOMMIT