Решение задания в Паскале

[obsession18]

Нужно вычислить и вывести на экран в виде таблицы значения функции, заданной графически (согласно приведенного ниже Решения 1), на интервале от Xнач до Xкон с шагом dx. Интервал и шаг задать таким образом, чтобы проверить все ветви программы. Таблицу снабдить заголовком и шапкой.
Решение 1:
Код Pascal

uses crt;
var r,x,y:real;
begin
clrscr;
write('R=');
readln(r);
write('x=');
readln(x);
if x<-r then y:=r
else if abs(x)<=r then y:=-sqrt(r*r-x*x)+3
else if (x>r)and(x<=2*r) then y:=-2*x+3*r
else y:=x-3*r;
write('y=',y:0:2);
readln
end.

Условие для решения 1:
Надо написать программу, которая по введённому значению аргумента вычисляет значение функции, заданной в виде графика. Параметр R вводится с клавиатуры.
http://s017.radikal.ru/i420/1203/df/302a04e9585b.jpg

Т.е. нужно составить табличку в паскале по этому решению.

Пример решенного задания:

Составим программу расчета функции y = A*sin(x) - cos(x)/A; при изменении аргумента "x" в диапазоне от 0 до Pi с шагом Pi/100 и при изменении параметра "A" в диапазоне от 1 до 3 с шагом 0.5.
Код Pascal

Program tabl;
var
y, x, a, dx : real;
i, j: integer;
Begin
Writeln(' Расчет по формуле: y=A*sin(x)-cos(x)/A; ');
Writeln('--------------------------------------------------');
Writeln('| X | A=1.0 | A=1.5 | A=2.0 | A=2.5 | A=3.0 |');
Writeln('--------------------------------------------------');
dx := pi/100;
for i:= 0 to 100 do
begin { внешний цикл изменения аргумента "X" }
x:= dx*i;
Write( x:8:4 );
for j := 1 to 5 do
begin{ вложеннный цикл изменения параметра "A" }
A := 0.5*(j+1);
y := A*sin(x)-cos(x)/A; Write(y:8:4)
end;
Writeln; {перевод курсора на новую строчку}
if ((i+1) mod 20) = 0 then readln{задержка прокрутки экрана до нажатия Enter}
end;
readln;
End.

Если есть желание, могу высылать и другие задания по паскалю. 1 задание=50 руб. Сложность - информатика, 1 курс, 1 семестр.

[rubius2008]

пишите в асю, посмотрим что у вас там

[IvanKV]

ICQ 603655417

[obsession18]

моя ася(автор темы): 557587273