Структура программы на языке Pascal и порядок работы в системе программирования Turbo Pascal 7.0. Программирование с использованием подпрограмм типа “функция"

Белорусский национальный технический университет

Автотракторный факультет

Кафедра: гидропневмоавтоматика и гидропневмопривод

Отчет  по лабораторным работам

по дисциплине «Информатика»

Выполнил:                                                       и

                                                                                      Студенты группы 101719 

Принял:                                             старший преподаватель 

                                                     Минск 2009

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

СТРУКТУРА ПРОГРАММЫ НА ЯЗЫКЕ PASCAL И ПОРЯДОК РАБОТЫ В СИСТЕМЕ ПРОГРАММИРОВАНИЯ TURBOPASCAL7.0

Цель работы

Изучение структуры программы на языке PASCAL.

Изучение положений среды программирования TURBO PASCAL 7.0.

Приобретение навыков работы в среде программирования TURBO PASCAL7.0.

                                                      Задания

Задание 1

1. Войти в интегрированную среду TURBO PASCAL 7.0.

2. Войти в окно редактирования (F10/FILS).

3. Сменить каталог на D:\USERS\GR (……номер вашей группы)

(CHANGE DIR).

4. Создать новый файл выполнения программы по заданию преподавателя (NEW).

5. Набрать программу, предложенную преподавателем.

6. Вызвать компилятор (COMPILE/COMPILE).

7. Исправить ошибки.

8. Запустить выполнение программы (RUN/RUN).

9. Просмотреть результаты выполнения программы на пользовательском экране (DEBUG/USER SCREEN).

10. Сохранить выполненную программу (FILE/SAVE).

11.  Распечатать программу (FILE/PRINT).

12.  Сохранить выполненную программу под другим именем

(FILE /SAVE AS).

Задание 2

1. Открыть созданный программный файл (FILE/OPEN).

2. Выделить блок текста программы (SHIFT/).

3. Удалить выделенный блок текста из программы в карман (EDJT/CUT).

4. Вставить блок текста из кармана в место, указанное курсором (EDIT/PASTE).

5. Копировать вставленный блок текста на старое место (EDIT/COPY).

6. Удалить выделенный блок текста (EDIT/CLEAR),

7. Отменить предыдущую команду (EDIT/UNDO).

8. Возвратить предыдущую команду (EDIT/REDO).

9. Открыть окно кармана (EDIT/SHOW CLIPBOARD).

10. Получить информацию о программном файле (COMPILE/IN-FORMATION).

11. Просмотреть другие команды режимов (DEBUG, WINDOW).

Вариант 6

program lab2;

uses crt;

var

t:text;

a,b:integer;

c:real;

begin

clrscr;

assign(t,'rez2.pas');

rewrite(t);

writeln(' лабораторная работа 2 ');

writeln(t,' лабораторная работа 2');

writeln(' структура программы на языке pascal и порядок');

writeln(t,' структура программы на языке pascal и порядок');

writeln('работы в системе программирования turbo pascal 7.0');

writeln(t,''работы в системе программирования turbo pascal 7.0');

writeln('ввод данных');

writeln(t,'ввод данных');

write('a=');

readln(a);

writeln('a=',a:3);  writeln(t,'a=',a:3);

write('b=');

readln(b);

writeln('b=',b:3);  writeln(t,'b=',b:3);

c:=a*b; writeln(t,'c=a*b');

writeln(''); writeln(t,'');

writeln('c=',c:6:3);writeln(t,'c=',c:6:3);

writeln('выполнил');writeln(t, ' выполнил ');

writeln(' и ');

writeln(t,'' и ''); readln; close(t); end.

Результирующий файл

 лабораторная работа 2

структура программы на языке pascal и порядок

работы в системе программирования turbo pascal 7.0

ввод данных

a=  3

b=  3

c=a*b

результат

c= 9.000

выполнил:

и

                                              Блок-схема

     Вывод: мы изучили  структуру программы на языке PASCAL, положения среды программирования TURBO PASCAL 7.0, приобрели навыки работы в среде программирования TURBO PASCAL 7.0.

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

ВВОД-ВЫВОД РАЗЛИЧНЫХ ТИПОВ ДАННЫХ

Цель работы

Изучение стандартных типов данных.   

Ознакомление с правилами описания различных типов данных.

Изучение способов ввода и вывода различных типов данных.

                                                                      Задание

Разработать программу для ввода-вывода различных типов данных в соответствии с заданным вариантом.

Ввод исходных данных осуществить с клавиатуры, предусмотрев диалоговый режим работы. Результаты расчета вывести на дисплей, снабдив их соответствующими комментариями. Предусмотреть очистку экрана и задержку выполнения программы в конце расчета.

Вариант 6

program lab1;

uses crt;

var

t:text;

a,b:integer;

c,d,e:real;

begin

clrscr;

assign(t,'rez3.pas');

rewrite(t);

writeln('лабораторная работа 3');  writeln(t,'лабораторная работа 3');

writeln('ввод-вывод различных типов данных');

writeln(t,'ввод-вывод различных типов данных');

writeln('ввод целых чисел'); writeln(t,'ввод целых чисел');

write('a=');

readln(a);writeln(t,'a=',a);

write('b=');

readln(b); writeln(t,'b=',b);

writeln('вывод целых чисел');writeln(t,'вывод целых чисел');

writeln('a=',a:3); writeln(t,'a=',a:3);

writeln('b=',b:3);writeln(t,'b=',b:3);

writeln('ввод вещественных чисел');

writeln(t,'ввод вещественных чисел ');

write('c=');

readln(c);   writeln(t,'c=',c:5:3);

write('d=');

readln(d);   writeln(t,'d=',d:5:3);

write('e=');

readln(e);     writeln(t,'e=',e:5:3);

writeln('вывод вещественных чисел');

writeln(t,'вывод вещественных чисел');

writeln('':10,'c=',c:5:1);writeln('c<77',c<77);

writeln(t,'':10,'c=',c:5:1);writeln(t,'c<77',c<77);

writeln('':10,'d=',d:5:1);writeln('d<77',d<77);

writeln(t,'':10,'d=',d:5:1);writeln(t,'d<77',d<77);

writeln('':10,'e=',e:5:1);writeln('e<77',e<77);

writeln(t,'':10,'e=',e:5:1);writeln(t,'e<77',e<77);

writeln('выполнил');  writeln(t,'выполнил') ;

writeln(' и ');writeln(t, ' и ');

close(t); readln; end.

Результирующий файл

лабораторная работа 3

ввод-вывод различных типов данных ввод целых чисел

a=3

b=3

вывод целых чисел

a=    3

b=    3

ввод вещественных чисел

c=3.000

d=3.000

e=3.000

вывод вещественных чисел

c=   3.0

c<77TRUE

d=   3.0

d<77TRUE

e=   3.0

e<77TRUE

выполнил:

и                    

                                                    Блок-схема

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

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

ПРОГРАММИРОВАНИЕ ЛИНЕЙНЫХ АЛГОРИТМОВ. ВЫЧИСЛЕНИЕ ВЫРАЖЕНИЙ С ИСПОЛЬЗОВАНИЕМ СТАНДАРТНЫХ ФУНКЦИЙ

Цель работы

Изучение порядка действий при вычислении арифметических выражений на ЭВМ.

Приобретение навыков в записи выражений на языке PASCAL с использованием стандартных функций.

Задание

Разработать программу вычисления значения выражения в соответствии с заданным вариантом. Ввод исходных данных осуществить с клавиатуры, предусмотрев диалоговый режим работы. Результаты расчета вывести на дисплей, снабдив их соответствующими комментариями. Предусмотреть форматный вывод результатов, очистку экрана и задержку выполнения программы в конце расчета.

Вариант 6

program lab4;

uses crt;

var

t:text;

y,x,z:integer;

f:real;

begin

clrscr; assign(t,'rez4.pas');  rewrite(t);

writeln(' лабораторная работа 4');

writeln(t,' лабораторная работа 4 ');

writeln('программирование линейных алгоритмов');

writeln(t,'программирование линейных алгоритмов');

writeln('вычисление выражений с использованием стандартных