Структура программы Турбо Паскаль и стандартные типы данных

Шулики Юлии Викторовны

Группа №318

Вариант №22

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

СТРУКТУРА ПРОГРАММЫ И СТАНДАРТНЫЕ ТИПЫ ДАННЫХ

Цель работы –ознакомление со средой программирования Турбо Паскаль и встроенными типами данных и процедурами ввода-вывода; приобретение навыков составления программы на языке Турбо Паскаль.

Постановка задачи: записать и посчитать по заданному варианту программу линейного алгоритма в среде Турбо Паскаль.

                                Варианты заданий

Номер варианта	Целые числа		Действительные числа			Количество символов	Вывести значения
	Количество	Формат	Количество	Формат
		Ширина поля		Ширина поля	Количество знаков после запятой
22	4	3	2	5	3	4	True

PROGRAM lab1var22;

CONST

        LOG=TRUE;

VAR  K,M,N,B:INTEGER;

        X,Y:REAL;

        S1,S2,S3,S4:CHAR;

BEGIN

{CLRSCR;}

WRITELN ('ВВЕДИТЕ ЧИСЛА К,М,N,B ЧЕРЕЗ ПРОБЕЛ И НАЖМИТЕ "ENTER"');

WRITELN ('ПОСЛЕ ПОСЛЕДНЕГО ЧИСЛА НАЖМИТЕ КЛАВИШУ "ENTER"');

READLN  (K,M,N,B);

WRITELN;

WRITELN (' ':20,'ЦЕЛЫЕ ЧИСЛА');

WRITELN (' ':5,'ВЫВОSД В ФОРМАТЕ',' ':10,'ВЫВОД БЕЗ ФОРМАТА');

WRITELN (' ':10,'K=',K:3,' ':20,'K=',K);

WRITELN (' ':10,'M=',M:3,' ':20,'M=',M);

WRITELN (' ':10,'N=',N:3,' ':20,'N=',N);

WRITELN (' ':10,'B=',B:3,' ':20,'B=',B);

WRITELN;

WRITELN (' ВВЕДИТЕ ДЕЙСТВИТЕЛЬНЫЕ ЧИСЛА X, Y В ОДНУ СТРОКУ ЧЕРЕЗ ПРОБЕЛ');

WRITELN ('ПОСЛЕ ПОСЛЕДНЕГО ЧИСЛА НАЖМИТЕ КЛАВИШУ "ENTER" ');

READLN  (X,Y);

WRITELN;

WRITELN (' ':20,'ДЕЙСТВИТЕЛЬНЫЕ ЧИСЛА');

WRITELN (' ':2,'ВЫВОД В ФОРМАТЕ','':10,'ВЫВОД БЕЗ ФОРМАТА');

WRITELN (' ':10,'X=',X:8:3,' ':15,'X=',X);

WRITELN (' ':10,'Y=',Y:8:3,' ':15,'Y=',Y);

WRITELN;

WRITELN (' ВВЕДИТЕ СИМВОЛЬНЫЕ ДАННЫЕ ДЛЯ ПЕРЕМЕННЫХ S1, S2, S3, S4.');

WRITELN (' ПОСЛЕ КАЖДОГО СИМВОЛА НАЖМИТЕ КЛАВИШУ  "ENTER" ');

WRITE (' S1=');  READLN(S1);

WRITE (' S2=');  READLN(S2);

WRITE (' S3=');  READLN(S3);

WRITE (' S4=');  READLN(S4);

WRITELN;

WRITELN (' ':20,'СИМВОЛЬНЫЕ ДАННЫЕ');

WRITELN (' ':5,'ВЫВОД В ФОРМАТЕ',' ':10,'ВЫВОД БЕЗ ФОРМАТА');

WRITELN (' ':10,'S1=',S1:3,' ':20,'S1=',S1);

WRITELN (' ':10,'S2=',S2:3,' ':20,'S2=',S2);

WRITELN (' ':10,'S3=',S3:3,' ':20,'S3=',S3);

WRITELN (' ':10,'S4=',S4:3,' ':20,'S4=',S4);

WRITELN (' ':20,'ЛОГИЧЕСКИЕ ДАННЫЕ');

WRITELN (' ':2,'ВЫВОД В ФОРМАТЕ',' ':10,'ВЫВОД БЕЗ ФОРМАТА');

WRITELN (' ':10,'LOG=',LOG:7,' ':15,'LOG=',LOG);

WRITELN; WRITELN; WRITELN;

WRITELN ('ДЛЯ ПРОДОЛЖЕНИЯ РАБОТЫ НАЖМИТЕ КЛАВИШУ "ENTER"');

READLN;

END.

Результат расчета:

ВВЕДИТЕ ЦЕЛЫЕ ЧИСЛА K,M,N,W В ОДНУ СТРОКУ ЧЕРЕЗ ПРОБЕЛ

ПОСЛЕ ПОСЛЕДНЕГО ЧИСЛА НАЖМИТЕ КЛАВИШУ "ENTER"

5 6 3 8

                    ЦЕЛЫЕ ЧИСЛА

     ВЫВОД В ФОРМАТЕ          ВЫВОД БЕЗ ФОРМАТА

K= 5                    K=5

          M= 6                    M=6

          N= 3                    N=3

          W= 8                    W=8

 ВВЕДИТЕ ДЕЙСТВИТЕЛЬНЫЕ ЧИСЛА X, Y В ОДНУ СТРОКУ ЧЕРЕЗ ПРОБЕЛ

ПОСЛЕ ПОСЛЕДНЕГО ЧИСЛА НАЖМИТЕ КЛАВИШУ "ENTER"

5 6

                    ДЕЙСТВИТЕЛЬНЫЕ ЧИСЛА

  ВЫВОД В ФОРМАТЕ          ВЫВОД БЕЗ ФОРМАТА

X=  5.0000               X= 5.0000000000E+00

Y=  6.0000               Y= 6.0000000000E+00

 ВВЕДИТЕ СИМВОЛЬНЫЕ ДАННЫЕ ДЛЯ ПЕРЕМЕННЫХ S1, S2, S3, S4.

 ПОСЛЕ КАЖДОГО СИМВОЛА НАЖМИТЕ КЛАВИШУ  "ENTER"

S1=h

S2='

S3=.

S4=y

                    СИМВОЛЬНЫЕ ДАННЫЕ

  ВЫВОД В ФОРМАТЕ          ВЫВОД БЕЗ ФОРМАТА

S1=  h                    S1=h

          S2=  '                    S2='

          S3=  .                    S3=.

          S4=  yS4=y

                    ЛОГИЧЕСКИЕ ДАННЫЕ

  ВЫВОД В ФОРМАТЕ          ВЫВОД БЕЗ ФОРМАТА

LOG=   TRUE               LOG=TRUE

ДЛЯ ПРОДОЛЖЕНИЯ РАБОТЫ НАЖ࠹ၢႈၔ€ၨၬ၀၈ၠႠႌࢀDŠœ¨碊¤D@

ࠤ࢖ࡤࡼࡨ࢖t@࢞@ࡼ࡮衺䎰䏠䏀䎀䎰䌀䐐䓀Ȁ䐐䏠Ȁ䐐䐀䍐䍀䏠䎐Ȁ䏰䐀䏠䌰䐀䌀䏀䏀䎀䐀䏬䌠䌀䏐䎀䓰Ȁ䈠䐰䐀䌐䏠Ȁ䇰䌀䐐䎠䌀䎰䓀Ȁ䎀Ȁ䌠䐐䐠䐀䏠䍐䏐䏐䒰䏀䎀Ȁ䐠䎀䏰䌀⏰⇀Ā↠ↀ⇨⇨≘∨Ā⇀Ā⇸∀⇰∰↨↠∘∀ↀ⇠⇀Ā←←⇰↠ↀŨ←≘←⇰↠ↀĀ⇀Ā⇸∀⇀⇰ↈ∀↨⇘ↀĀ⇨ↀ←≘⇐⇀Ā∈⇰∈∐ↀ←⇘↨⇨⇀≸Ā⇸∀⇰↘∀ↀ⇠⇠≘Ā⇨ↀĀ≸↸≘⇐↨Āℐ∘∀ↈ⇰Ā⃸ↀ∈⇐ↀ⇘≠Űh