Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиПоискОблакоComboВсе проекты

Pascal Составить графическую схему алгоритма и написать программу для вычисления значения переменной...

Kefiro4naya Ученик (217), открыт 4 недели назад
Pascal

Составить графическую схему алгоритма и написать программу для вычисления значения переменной Z для значения аргумента Х, изменяющегося от Х нач. до Хкон. С шагом Х. Значения переменной Х и соответствующие им значения вывести в виде таблицы.

Гайды запутанные, а у меня вылетает куча ошибок
1 ответ
Кублен Оракул (88473) 4 недели назад
пришли свою прогу, исправлю
Kefiro4nayaУченик (217) 4 недели назад
Я сейчас на паре. Отправлю ближе к обеду. Срочность не важна. Заранее спасибо)
Kefiro4nayaУченик (217) 4 недели назад
program laba1;
var
xb: real;
xe: real;
step: real;
x: real;
z: real;
flag: boolean;
begin
xb:= -10;
xe:= 10;
step:= 1;
x:= xb;
while x <= xe do
begin
flag:= true;
z:= 0;
if -3<x<3 then
z:= arccos**2*(0.3*x)
else
if x<=-3 then
z:= 4*x**2-lg*(x**2+1)
else
if x>=3 then
z:= x + cos(x)/sin(x)
else
flag:= false;
if flag then
writeln('x= ',x:4:1,'; z= ',z:7:4)
else
writeln('x = ',x:4:1,'; value not defined');
x:= x + step;
end;
readln;
end.
КубленОракул (88473) 4 недели назад
ошибка в условиях, не может быть в двх условиях знак (=)
program laba1;
var xb,xe,step,x,z: real;
begin
xb:= -10;
xe:= 10;
step:= 1;
x:= xb;
while x <= xe do
begin
z:= 0;
if (-3<x and x<3) then
z:= sqr(arccos(0.3*x))
else
if x<=-3 then
z:= 4*x*x-ln(x*x+1)/ln(10)
else
z:= sqrt(x*x*x - 3) :
writeln('x= ',x:4:1,'; z= ',z:7:4);

x:= x + step;
end;
readln;
end.
Kefiro4naya Ученик (217) Кублен, спасибо вам большое за пояснение и ответ!
Похожие вопросы