Пример 4.1.

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

paskal28

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

paskal29

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

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.

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

paskal30

Twitter SEO Community Ваау! News2.ru Chipp Korica SMI2 Google Bookmarks Digg I.ua Закладки Yandex Linkstore Myscoop Communizm Ru-marks Webmarks Ruspace Linkomatic Kli.kz Web-zakladka Zakladok.net Reddit delicious Ma.gnolia Technorati Slashdot Yahoo My Web БобрДобр.ru Memori.ru rucity.com МоёМесто.ru Mister Wong



Copyright © 2009-2010 Программирование на паскале.