Программирование

Отчет №1

Тема

«Программирование»

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

«Программирование на алгоритмическом языке turbo-pascal»

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

Задание 1. Используя табл. 1.1, разработать и отладить программу для организации ввода и вывода данных определенных типов. Сделать в ней соответствующие заголовки.

Вариант задания Целые числа Вещественные числа Количество символов Значение

логической

константы

Кол-во чисел Формат чисел Кол-во чисел Общее кол-во знаков Кол-во знаков после точки

5 4 4 3 7 4 4 FALSE

Program Lab11var5;

USES

CRT;

CONST

d=TRUE;

VAR

a1,a2,a3,a4:INTEGER;

b1,b2,b3: real;

c1,c2,c3,c4 : CHAR;

Begin

ClrScr;

WRITELN;

WRITELN('Введите значение целочисленных переменных a1=1111, a2=2222, a3=333, a4=4444:');

READLN(a1,a2,a3,a4);

WRITELN('Введите значение вещественных переменных b1=.1111, b2=.2222, b3=.3333,:');

READLN(b1,b2,b3);

WRITELN('Введите значение символьных переменных c1,c2,c3,c4:');

READLN( c1,c2,c3,c4);

WRITELN('Значение челочисленных переменных:');

WRITELN('a1=',a1:4,',a2=',a2:4,',a3=',a3:4,',a4=',a4:4);

WRITELN('Значение вещественных переменных:');

WRITELN('b1=',b1:7:4,'b2=',b2:7:4,'b3=',b3:7:4);

WRITELN('Значение символьных переменных:');

WRITELN('c1=',c1,',c2=',c2,',c3=',c3,',c4=',c4);

WRITELN('Значение логической константы:');

WRITELN('d=',d);

readln;

end.

Результат:

Введите значение целочисленных переменных a1=1111, a2=2222, а3=3333, а4=4444:

1 2 3 4

Введите значение вещественных переменных b1=.1111, b2=.2222, b3=.3333:

1 2 3

Введите значение символьных переменных c1,c2,c3,c4:

1 2

Значение челочисленных переменных:

a1= 1,a2= 2, а3= 3, а4= 4

Значение вещественных переменных:

b1= 1.0000b2= 2.0000b3= 3.0000

Значение символьных переменных:

с3=,с2=

с4=2

Значение логической константы:

d=False

Вариант задания Целые числа Вещественные числа Количество символов Значение

логической

константы

Кол-во чисел Формат чисел Кол-во чисел Общее кол-во знаков Кол-во знаков после точки

6 2 3 3 5 1 3 TRUE

PROGRAM LAB1var6;

USES

CRT;

CONST

d=TRUE;

VAR

a1,a2:INTEGER;

b1,b2,b3 : real;

c1,c2,c3 : CHAR;

Begin

ClrScr;

WRITELN;

WRITELN('Введите значение целочисленных переменных a1=111, a2=222:');

READLN(a1,a2);

WRITELN('Введите значение вещественных переменных b1=1.11, b2=2.22, b3=3.33:');

READLN(b1,b2,b3);

WRITELN('Введите значение символьных переменных c1,c2,c3:');

READLN( c1,c2,c3);

WRITELN('Значение