ОРГАНИЗАЦИЯ ВВОДА-ВЫВОДА. ПРЕДСТАВЛЕНИЕ РЕЗУЛЬТАТОВ РЕШЕНИЯ»

Министерство науки и высшего образования Российской Федерации

Федеральное государственное бюджетное образовательное учреждение высшего образования «Рязанский государственный радиотехнический университет имени В.Ф. Уткина»

Кафедра «ВПМ»

Отчет о лабораторной работе № 7 (тема 16)

По дисциплине «Алгоритмические языки и программирование»

«ОРГАНИЗАЦИЯ ВВОДА-ВЫВОДА. ПРЕДСТАВЛЕНИЕ РЕЗУЛЬТАТОВ РЕШЕНИЯ»

Выполнила:

ст. гр. 046

Бригада №4

Бурцева С.

Проверили:

с.п. Москвитина О.А.

доцент, к.т.н. Макаров Н.П.

Рязань 2020

Цель:. Протабулировать функцию и оформить результаты в таблице; «нарисовать» в Pascal ABC график или фигуру.

Задание1 (Вариант 4)

y=e^Z; Z=e^xx=0.01(0.01)0.1

Блок-схема:

Программа:

{Лабораторная работа №7 Тема 16}

{Цель работы - Протабулировать функцию и оформить результаты в таблице; «нарисовать» в Pascal ABC график или фигуру.}

{Тема работы: ОРГАНИЗАЦИЯ ВВОДА-ВЫВОДА. ПРЕДСТАВЛЕНИЕ РЕЗУЛЬТАТОВ РЕШЕНИЯ .

{ Программист: Бурцева Светлана Николаевна гр. 046}

{Проверили: с.п. Москвитина О.А. доц. к.т.н. Макаров Николай Петрович}

{Дата выполнения: 31.11.2020г.}

Programlab7_1;

constP=' ';

T=' ';

Varx, x0, xn, h, z, y: real;

Begin

Writeln('Ввод исходных данных');

Writeln ('x0=');

Read(x0);

Writeln ('h=');

Read(h);

Writeln ('xn=');

Read(xn);

Writeln (T, 'Таблица результатов');

Writeln(T, '┌────────┬──────────┬──────────┐');

Writeln(T, '│ X │ Z │ y │');

Writeln(T, '├────────┼──────────┼──────────┤');

x:=x0;

whilex<xn + h/2 do

begin

z:= exp(x);

y:= exp(z);

Writeln(T, '│', P, x:4:2, P,'│', P, Z:6:3, P,'│', P, y:6:3, P, '│');

x:= x + h

end;

Writeln(T,'└────────┴──────────┴──────────┘');

Readln

End.

Окно вывода:

12 Следующая ⇒