Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 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, хотя мет я и ошибаюсь...



Страницы: 1 вся ветка

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

Наверх





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


3-99839
Alex Y
2001-12-26 08:11
2002.01.31
MDAC


1-99934
MystiX
2002-01-12 10:52
2002.01.31
Помогит !!!


14-100059
Nikolay
2001-12-10 21:43
2002.01.31
2Merlin


3-99914
AleksK
2001-12-31 13:11
2002.01.31
ComboBox в DBGrid





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский