Вычислить и вывести на экран в виде таблицы значения функции, заданной графически

@Kenderol · Регистрация: 11.11.2013

Студворк — интернет-сервис помощи студентам

Добрый вечер. Прошу помочь с написанием программы, мне кажется, я где-то ошибься.

Само задание:

Вычислить и вывести на экран в виде таблицы значения функции, заданной графически, на интервале от Х начального до Х конечного с шагом dx. Интервал и шаг задать таким образом, чтобы проверить все ветви программы. Таблицу снабдить заголовком и шапкой.

Мой вариант программы:

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

Pascal

var dx, x, y, r: real;
const xn = -5; xk = 5;
begin
writeln ('Введите шаг dx, радиус r через пробел: ');
readln (dx, r);
x := xn;
writeln ('[Значение x] [Значение y]');
while (x <= xk) do
begin
if (x >= -5) and (x <= -3) then y:= 1;
if (x > -3) and (x <= -1) then y:= sqrt(sqr(r)-sqr(x-2));
if (x > -1) and (x <= 2) then y:= -2;
if (x > 2) and (x <= 5) then y:= x-4;
writeln ('  ',x:3:2,'         ',y:3:2);
x := x + dx;
end;
end.

@Kenderol · 12.11.2013, 14:07 **[ТС]**

Ребята, помогите, пожалуйста.

@Puporev · 12.11.2013, 16:03

Pascal

uses crt;
var dx, xn, xk, x, y, r: real;
begin
clrscr;{очистим экран}
repeat
write('Введите радиус R>0 ');
readln(r);
until r>0;
repeat
write('Введите xn<',-r-3:0:1,' ');
readln(xn);
until xn<-r-3;
repeat
write('Введите ',xn+1:0:1,'<xk<=',r+2:0:1,' ');
readln(xk);
until(xk>xn+1)and(xk<=r+2);
repeat
write('Введите шаг 0<dx<=1 ');
readln(dx);
until(dx>0)and(dx<=1);
clrscr;
writeln('Определение значений функции, представленной графически');
writeln('На интервале [',xn:0:1,'...',xk:0:1,'] с шагом ',dx:0:1);
writeln('-------------');
writeln('|  x  |  y  |');
writeln('-------------');
x := xn;
while x < xk+dx/2 do
 begin
  if x < -r-1 then y:= 1
  else if x < -1 then y:=-sqrt(sqr(r)-sqr(x+1))
  else if x < r then y:= -r
  else y:= x-2*r;
  writeln ('|',x:5:2,'|',y:5:2,'|');
  x := x + dx;
 end;
writeln('-------------');
readkey
end.

@Kenderol 0 / 0 / 0 Регистрация: 11.11.2013 Сообщений: 7
	12.11.2013, 14:07 [ТС]	2
	Ребята, помогите, пожалуйста. 0

Опции темы