Пожалуйста напишите прогу на Pascal'е!

Ответить
Medved
Сообщения: 256
Зарегистрирован: 14 фев 2008, 20:51
Контактная информация:

&quot писал(а):ага, в особенности если много разных локалтных параметров типа ii,iii,jij, hgg итд,
и название подпрограммы "говорит " само за себя "hgdf" или еще что-нибудь.
Такого вообще делать не советуется , поэтому лучше называть переменные не ii,iii,iiii,iiiii а попробовать ввести в дело другие буквы, локальные переменные и осмысленные английские слова.
Ваши руки совершили идиотскую ошибку и будут оторваны!
[OK]
Medved
Сообщения: 256
Зарегистрирован: 14 фев 2008, 20:51
Контактная информация:

&quot писал(а):Возникли проблемы - пишите 366300465 - помогу чем могу!
странно, никто ещё за время, какое я писал типа того мне в ICQ не написал. СКУКА...
Ваши руки совершили идиотскую ошибку и будут оторваны!
[OK]
C_O_D_E
Сообщения: 296
Зарегистрирован: 13 фев 2008, 20:10
Откуда: Беларусь. Орша
Контактная информация:

так а я про что!!!
За некоторое время программирования уже вырабатывается свой лексикон и определенное, осмысленное использование букв и английского языка!!!
Если назначен специальный человек для контроля за чистотой исходной информации, то найдется изобратательный идиот, который придумает способ, чтобы неправильная информация прошла этот контроль.
MOTOCoder
Сообщения: 548
Зарегистрирован: 14 янв 2008, 20:27
Откуда: Россия, Псков

Люди, зачем все так усложнять :) )
[syntax='Delphi']
program mnojestva;

var
A,B:Set of char;
i:integer;
K:integer;
ch:char;

begin
writeln('Введите размер первого множества:');
readln(K);
writeln('Введите элементы первого множества:');
For i:=1 to K do
begin
readln(ch);
A:=A+[ch];
end;

writeln('Введите размер второго множества:');
readln(K);
writeln('Введите элементы второго множества:');
For i:=1 to K do
begin
readln(ch);
B:=B+[ch];
end;

if A=B then
writeln('Множества равны')
else
writeln('Множества не равны');

readln;
end.

[/syntax]

Помоему проще некуда.
Ни что так не ограничивает фантазию программиста, как компилятор...
C_O_D_E
Сообщения: 296
Зарегистрирован: 13 фев 2008, 20:10
Откуда: Беларусь. Орша
Контактная информация:

А мне классно жить без ICQ!!!!!
Если назначен специальный человек для контроля за чистотой исходной информации, то найдется изобратательный идиот, который придумает способ, чтобы неправильная информация прошла этот контроль.
Medved
Сообщения: 256
Зарегистрирован: 14 фев 2008, 20:51
Контактная информация:

&quot писал(а):а через массивы символов?
Программа выйдет, может, и меньше. Но написать легче вышеуказанный вариант. В каждой из процедур пишешь то, что она должна делать , и логическими операциями пишешь конец.
Ваши руки совершили идиотскую ошибку и будут оторваны!
[OK]
C_O_D_E
Сообщения: 296
Зарегистрирован: 13 фев 2008, 20:10
Откуда: Беларусь. Орша
Контактная информация:

MOTOCoder писал(а):Люди, зачем все так усложнять :) )

Помоему проще некуда.

так мы от большого ума....
Если назначен специальный человек для контроля за чистотой исходной информации, то найдется изобратательный идиот, который придумает способ, чтобы неправильная информация прошла этот контроль.
C_O_D_E
Сообщения: 296
Зарегистрирован: 13 фев 2008, 20:10
Откуда: Беларусь. Орша
Контактная информация:

Medved писал(а):Программа выйдет, может, и меньше. Но написать легче вышеуказанный вариант. В каждой из процедур пишешь то, что она должна делать , и логическими операциями пишешь конец.
это уже привычки работы на Delphi. а паскаль -- это пакаль. именно такой, с нагромождениями, временами не логичный и с чудотковатым компилятором... эх, ностальгия...
Если назначен специальный человек для контроля за чистотой исходной информации, то найдется изобратательный идиот, который придумает способ, чтобы неправильная информация прошла этот контроль.
Medved
Сообщения: 256
Зарегистрирован: 14 фев 2008, 20:51
Контактная информация:

&quot писал(а):это уже привычки работы на Delphi. а паскаль -- это пакаль. именно такой, с нагромождениями, временами не логичный и с чудотковатым компилятором... эх, ностальгия...
Я пишу когда как - то pascal, to Delphi. Я и с делфой-то недавно познакомился, отбор на всеукраинскую на делфе писать заставили...
Ваши руки совершили идиотскую ошибку и будут оторваны!
[OK]
C_O_D_E
Сообщения: 296
Зарегистрирован: 13 фев 2008, 20:10
Откуда: Беларусь. Орша
Контактная информация:

я сама Delphi с начала февраля учу... а в марте уже курсовую сдавать!!! на паскале я почти 2 года уже стабильно, хотя начинала с кумира и интала!!! точно ностальгия...
Если назначен специальный человек для контроля за чистотой исходной информации, то найдется изобратательный идиот, который придумает способ, чтобы неправильная информация прошла этот контроль.
Ответить