Что лучше?

← →
Вадим (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]

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

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

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

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

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

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

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

Что лучше? Найти похожие ветки