Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus)

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

Открыть новую тему     Написать ответ в эту тему

dimitriy7



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
 
uses
my_unit;
 
const
s: string = '22hfUIuhY g ttGuHY325 t45 EE56';
 
begin
writeln('Исходная строка:');
writeln(s);
writeln('');
writeln('после 1 ф-ции:');
writeln(my_unit.func1(s));
writeln('');
writeln('после 2 ф-ции:');
writeln(my_unit.func2(s));
writeln('');
writeln('после 3 ф-ции:');
writeln(my_unit.func3(s));
readln;
end.
 

Всего записей: 2946 | Зарегистр. 09-10-2008 | Отправлено: 23:30 19-10-2013 | Исправлено: dimitriy7, 23:41 19-10-2013
Открыть новую тему     Написать ответ в эту тему

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus)


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru