Лабораторная работа №2 - Форум ПРОГРАММИСТОВ

Страница 1 из 1
1

Форум ПРОГРАММИСТОВ » КУРС ОПР - ПАСКАЛЬ » Лабораторные работы » Лабораторная работа №2 (Оболочка Turbo Pascal)

Лабораторная работа №2

Оболочка TurboPascal

Цель: научиться работать с текстовым редактором, познакомиться с таблицей кодировки символов.

Теоретическое изучение оболочки и редактора

1) Изучить оболочку Turbo Pascal.
2) Научиться работать с текстовым редактором оболочки.
3) Выучить и запомнить основные комбинации клавиш.
4) Научиться создавать, сохранять и загружать файл в оболочку.
5) Познакомиться с системой Help.

В результате изучения теории надо знать и уметь:

1) Назначение основных пунктов меню оболочки и редактора.
2) Уметь создать, сохранить, загрузить файл программы.
3) Уметь запустить программу на компиляцию.
4) Набирать и редактировать текст в окне редактора.

Задания для практического выполнения.

1) Создать в редакторе Turbo Pascal пустой файл программы (вашникнейм.pas) в котором разместить шапку (комментарии) будущего оформления ваших программ. Сохранить файл. Для создания оригинального заголовка программы использовать любые допустимые символы псевдокода. Можно сделать рисунок из символов, который вы будете вставлять в вашу программу для ее идентификации. В комментариях должны быть обязательные элементы: номер лабораторки или задачи, наименование файла или файлов программы; версия, дата разработки; копирайт автора; группа; краткое описание программы.

Пример.

*****************************************************
* laba #2 file: вашникнейм.pas == ver.1.0 *
* краткое описание программы *
* © Программистов С.С. Группа I-14-1 Дата: 10/09/14 *
*****************************************************

2) В текстовом редакторе, под заголовком и шапкой программы нарисовать псевдосимволами рисунок. Оригинальность приветствуется и оценивается. Желательно, чтобы рисунок имел отношение к программированию, КрНУ, городу, кафедре. Это может быть эмблема, надпись, схема, портрет и так далее (рисунки из интернета не брать). Ограничение: высота рисунка не должна превышать 25 строк, а ширина– ширину окна редактора Turbo Pascal. Чем больше различных символов в рисунке вы используете – тем лучше. Для вывода рисунков использовать операторы write и writeln.

3) Написать программу, которая выводит этот рисунок на экран.

4) В отчет выложить:

1) Код программы, которая выводит рисунок (с обязательным блоком из задания 1)
2) Скрин окна в котором выводится результат работы программы – рисунок.

№1 | Автор: admin | 2014-09-09, 13:04 | Репутация: [ + 22 ]

Код

begin
writeln('*****************************************');
writeln('*    laba#2 file:FORZOREZOR.pas==ver1.0 *');
writeln('*               picture                 *');
writeln('* ЋгдаЁҐЄ® ….Њ. ѓагЇЇ  €-14-1 11/09/14*');
writeln('*****************************************');
writeln('              %%%%   %%%%   %%%%       ');
writeln('               %%%   %%%%   %%%        ');
writeln('                %%   %%%%   %%         ');
writeln('           ************************    ');
writeln('           *ЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ*    ');
writeln('           *ЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ*    ');
writeln('           *ЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ*    ');
writeln('           *ЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ*    ');
writeln('           *ЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ*    ');
writeln('           *                      *    ');
writeln('           *                      *    ');
writeln('           *                      *    ');
writeln('           *ЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ*    ');
writeln('           *ЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ*    ');
writeln('           *ЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ*    ');
writeln('            *ЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ*     ');
writeln('             *ЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ*      ');
writeln('              ******************       ');
readln;
end.

№2 | Автор: Forzorezor | 2014-09-11, 19:04 | Изменено: Forzorezor - Чт, 2014-09-11, 19:05 | Репутация: [ + 4 ]

AlenaKit♥

№3 | Автор: AlenaKit | 2014-09-12, 01:06 | Репутация: [ + 12 ]

№4 | Автор: ira_butenko97 | 2014-09-12, 18:56 | Репутация: [ + 4 ]

Код

Program Predator;
begin
writeln('*****************************************************');
writeln('*     laba #2  file: Mr_Pozitiv.pas == ver.1.0      *');
writeln('*                     symbols                       *');
writeln('*   Malevanny V. A.  Group I-14-1 Date: 13/09/14    *');
writeln('*****************************************************');
writeln(' ');
writeln('         ttwwwwkk;; ');
writeln('     ""MMMMMMMMMMMMZZ ');
writeln('   ""MMMMtt      kkMM;; ');
writeln('   MMMM;;          ;;                    ;;MM;;                  MM"" ');
writeln(' ttMMZZ                    ""MM""                ;;MMtt ');
writeln(' wwMMtt                    ""MM""                ;;MMtt ');
writeln(' RRMM;;                    ;;MM;;                  MMtt ');
writeln(' MMMM                    kkJJJJkkMMkkJJJJJJ    kkJJJJkkMMwwJJJJJJ ');
writeln(' MMMM                            ""MMMMMMMMMMMMMMMMMM;;  MMMMMMMMMMMMMMMMMMtt ');
writeln(' RRMM;;                    ""MM""                ;;MMtt ');
writeln(' wwMMJJ                    ""MM;;                  MMtt ');
writeln(' ;;MMMM                    ""MM""                ;;MMtt ');
writeln('   RRMMRR        ;;MM""                  ""MM""                ;;MMtt ');
writeln('     MMMMMMZZZZMMMMMM                    ;;ww                    ww;; ');
writeln('       JJRRMMMMRRkk ');
readln
End.