Всем доброго времени суток, очень нужна помощь с контрольной по программированию, завтра сдавать.. Уже есть 2 программы, их нужно както соединить в одну и ещё подредактировать первую, там почемуто после ввода чисел пишет ошибку =(
Вот как звучит задание:
Вот код первой программы:
Цитата:
program z21;
Uses crt;
var x1,x2,x,dx,l:integer;
y1,y2,z:real;
begin
clrscr;
L:=0;
Writeln('vvedite x1, x2 and dx');
Readln(x1,x2,dx);
for x:=x1 to x2 do
begin
l:=l+1;
If (l=dx) then
begin
if (x<2) then
y1:=(3*x*x+2*x+5)/2*exp(-x)
else
if (x>=2)and(x<6) then
y1:=x+cos(x)
else
begin
Writeln(' Error input x ');
exit;
end;
y2:=2*y1+x*x;
z:=2*sqr(y1)+y2;
Writeln('output: z=',z:5:2);
l:=0;
end;
end;
readln;
end.
|
Вот вторая:
Цитата:
program z22;
uses crt;
var i,n:integer;
A:array[1..100] of real;
b:array[1..100] of real ;
begin
clrscr;
Writeln('vvedite dlinu massiva');
readln(n);
if (n<=0) then
begin
Writeln ('Error');
exit;
end;
Writeln('vvodite');
for i:=1 to n do
Readln(a[i]);
Writeln('outpet');
For i:=1 to n do
if a[i]<0 then
b[i]:=abs(a[i])
else
b[i]:=a[i];
For i:=1 to n do
Writeln(b[i]);
readln;
end.
|