Программирование на языке паскаль

Пример 4.1.

Вычислить при y=1.3, x=[0.. 2.1] с шагом 0.3 значения функции a. Результат вывести в виде таблицы. Проект – консольное приложение.

Блок-схема алгоритма представлена на рисунке. Для организации цикла введены следующие переменные: xs – начальное значение, xk – конечное значение dx – шаг изменения аргумента x.

Листинг программы

program prg_4_1;

{$mode objfpc}{$H+}

uses

Classes, SysUtils, RusTrans;

var

a,y,x,xs,xk,dx: real;

label

20;

begin

writeln(Rus(‘Введите y,xs,xk,dx’));            // Приглашение

readln(y,xs,xk,dx);                                             // Ввод данных

writeln;

writeln(Rus(‘таблица a(x)’));                      // Заголовок

x:=xs;                                                                  // Начало цикла

20: if y*x<1 then a:=exp(-y*x)*cos(y*x)              // Первое ветвление

else if y*x=1    then a:=cos(y*x)     // Вложенное ветвление

else a:=y*x+1;

writeln(‘x=’,x:5:1,’ a=’,a:6:3);

x:=x+dx;

if x<=xk then goto 20;                                   // Конец цикла

readln

end.

Консоль перед закрытием программы: