Новые сообщения · Правила  
  • Страница 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   |  Репутация: [ + 21 ]
Код
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 ]
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.


perfect ;)
5 | Автор: Mr_Pozitiv | 2014-09-13, 10:14 | Изменено: Mr_Pozitiv - Сб, 2014-09-13, 10:15   |  Репутация: [ + 6 ]


perfect ;)
5 | Автор: Mr_Pozitiv | 2014-09-13, 10:14 | Изменено: Mr_Pozitiv - Сб, 2014-09-13, 10:15   |  Репутация: [ + 6 ]


25101996
6 | Автор: OlgaFrolova | 2014-09-14, 18:34   |  Репутация: [ + 0 ]


Лабораторная №2
7 | Автор: stx | 2014-09-15, 15:44   |  Репутация: [ + 2 ]
8 | Автор: beznoschenko | 2014-09-15, 20:27   |  Репутация: [ + 2 ]


Добавлено (16.09.14, 17:53)


El_Magnifico with <3
9 | Автор: El_MAgnifico | 2014-09-16, 17:53   |  Репутация: [ + 8 ]


Ирина Зазноба
10 | Автор: iren456 | 2014-09-16, 20:51   |  Репутация: [ + 0 ]


Ирина Зазноба
10 | Автор: iren456 | 2014-09-16, 20:51   |  Репутация: [ + 0 ]
11 | Автор: @qwerty159 | 2014-09-16, 22:05   |  Репутация: [ + 0 ]
                  
12 | Автор: Awesome | 2014-09-17, 01:01   |  Репутация: [ + 2 ]
13 | Автор: torres | 2014-09-17, 19:46 | Изменено: torres - Чт, 2014-09-18, 09:21   |  Репутация: [ + 0 ]
13 | Автор: torres | 2014-09-17, 19:46 | Изменено: torres - Чт, 2014-09-18, 09:21   |  Репутация: [ + 0 ]
14 | Автор: Bun_Frith | 2014-09-17, 19:59   |  Репутация: [ + 4 ]
15 | Автор: Бонясик | 2014-09-17, 20:45   |  Репутация: [ + 0 ]
16 | Автор: dimeshion | 2014-09-21, 14:50   |  Репутация: [ + 2 ]


kiriko
17 | Автор: Vincent_Young | 2014-09-24, 13:17   |  Репутация: [ + 0 ]


Selena
18 | Автор: Selena | 2014-09-24, 14:35 | Изменено: Selena - Ср, 2014-09-24, 14:35   |  Репутация: [ + 2 ]


kiriko
19 | Автор: Vincent_Young | 2014-10-07, 19:28   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » КУРС ОПР - ПАСКАЛЬ » Лабораторные работы » Лабораторная работа №2 (Оболочка Turbo Pascal)
  • Страница 1 из 1
  • 1
Поиск: