Пример 3.1.

Вычислить при x = 2.1, y = 0.59, z = -4.8 значения a и b, используя формулы:

paskal23

Блок-схема алгоритма

paskal24

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

program prg_3_1;

{$mode objfpc}{$H+}

uses

Classes, SysUtils, RusTrans;

label

10;

var

a,b,c,x,y,z: real;

proba:integer;

begin

10: writeln(Rus(‘Введите x,y,z’));

readln(x,y,z);

writeln;

writeln(Rus(‘Вы ввели’));

writeln(‘x=’,x:8:3,’ y=’,y:8:3,’ z=’,z:8:3);

writeln;

writeln(Rus(‘Введите 1, если правильно’));

readln(proba);

if proba<>1 then

begin

writeln;

goto 10;

end;

writeln;

c:=sin(x*x)/cos(x*x);

a:=y*c*sqr(c)+sqrt(z*z/(y*y+x*x));

b:=ln(y+x*x)+sqr(sin(z/y));

writeln(Rus(‘Результат’));

writeln(‘a=’,a:8:3,’ b=’,b:8:3);

readln;

end.

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

paskal25

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 Программирование на паскале.