Форум Не про работу Самое разное

нужна помощь по паскалю

[Удален]
540

всем доброго времени суток. срочно нужно выполнить простейшее задание по паскалю. буду благодарен кто поможет.

Условие:

Составить 2 программы, выполняющие табулирование функции

┌

&#9474; sin(6*+3 , при x <= 0,

Y = &#9508; cos(x^3) , при 0 < x < 3,

&#9474; _____

&#9474; \/ x+6 , при x >= 3

&#9492;

на интервале [a,b] с шагом h (a,b,h вводятся с клавиатуры);

в первой программе должен быть использован цикл WHILE ... DO, во

второй - REPEAT ... UNTIL.

сам лично в этом не понимаю вообще.

evrakylon
На сайте с 02.02.2010
Offline
36
evrakylon
#1

Лови код. В принципе это тоже копирайтинг :)

Хотел было в графике, но модуля wincrt.tpu нет.

С REPEAT ... UNTIL все так же.

program xxx;

uses crt;

var

h:integer;

a:integer;

b:integer;

x:real;

y:real;

Begin

clrscr;

writeln('vvedite chislo: ');

readln(a);

readln(b);

readln(h);

x:=a;

while x<=b do

begin

if x<=0 then y:=sin(6*x+3);

if ((x<=3) and (x>0)) then y:=cos(x*x*x);

if x>=3 then y:=sqrt(x+6);

writeln('x= ',x:3:2,', ','y= ',y:3:2);

x:=x+h;

end;

ReadLn;

End.

Создаю тексты. Портфолио (http://www.free-lance.ru/users/evrakylon) и отзывы (/ru/forum/458328). Нужен 1С консалтинг ()? ICQ: 378800605. evrakylon@gmail.com
Google: как оптимизировать изображения Управление ставками в контекстной Андрей Калинин: «Интерливинг поисковой

Авторизуйтесь или зарегистрируйтесь, чтобы оставить комментарий