|
ru.algorithms- RU.ALGORITHMS ---------------------------------------------------------------- From : Andrey Maximenko 2:5020/400 11 Dec 2001 10:18:44 To : Kartohin Ruslan Subject : Re: Гоpодская олимпиада по инфоpматике -------------------------------------------------------------------------------- "Kartohin Ruslan"сообщил... > "Студенты начавшее обучение с языка Бейсик, пpактически оболванены и не > способны к дальнейшему обучению." (как-то пpимеpно так) (с) Дейкстpа. Господа! Вот вам простенький пример на Clipper'е: if (a<1) c:=1 d:=2 elseif (a<10) c:=20 d:=30 Else c:=-13 d:=41 EndI Hапишите его на Паскале, и убедите меня, что его легче прочитать. И покажите мне примерчик создания/вызова функции с переменным количеством параметров разного типа (типа WriteLn). И объясните, почему Str(i: 8: 2, s); WriteLn(s); выглядит лучше, чем QOut(Str(i,8,2)) ----------------------------------------------------------------- А вот вам пример того самого задания на Clipper'е: dbCreate('a1', {{'Word','C', 255, 0}}) dbCreate('a2', {{'Word','C', 255, 0}}) use a1 new index on word to a1 uniq append from input1.txt sdf use a2 new index on word to a2 uniq append from input1.txt sdf set rela to a2->word into a1 copy fields word to output.txt for a2->word=a1->word delimited with blank Вот вам и сортировка, и отбор, и все в нескольких строчках И кто приведет мне пример популярного программного продукта, разраюотанного на Паскале (или делфи) Андрей Максименко PS. Hа Clipper'е, между прочим, были написаны первая и вторая версии 1С. --- ifmail v.2.15dev5 * Origin: Gamma NNTP server Moscow Russia (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.algorithms/7591a1dca7cf.html, оценка из 5, голосов 10
|