Turbo Pascal

[Cybernetik788]

Задачу номер 1 не нужно
2 задача нужен тока 3 рисунок

[Филантроп]

3

program funca;
const a=0.9;
var x,y:real;
begin
writeln('x=');
readln(x);
if x<=1 then y:=2*a*cos(x)+3*x*x
else y:= a*(ln(x)/ln(10))+exp(1/3*ln(abs(x)));
writeln('x=',x:6:2,'y=',y:6:2);
readln;
end.

4б

program summa;
var x,y,z,s:real;
begin
writeln('x=');
readln(x);
writeln('y=');
readln(y);
writeln('z=');
readln(z);
s:=0;
if x>=0 then s:=s+x;
if y>=0 then s:=s+y;
if z>=0 then s:=s+z;
writeln('sum=',s:6:2);
readln;
end.

6

program cikl;
const a=1.65;
      dx=0.1;
var x,y:real;
begin
x:=0.7;
while x<=2 do begin
if x<1.4 then y:=pi*x-7/x/x
else if x=1.4 then y:=a*x*x*x+7*sqrt(x)
else y:=ln(x+7*sqrt(abs(x+a)));
writeln(x:6:2,y:6:2);
x:=x+dx;
end;
readln;
end.

7a

program summa2;
var x,s:real;
n,i:integer
begin
s:=0;
readln(x);
readln(n);
for i:=1 to n do
begin
x:=sin(x)
s:=s+x;
end;
writeln('summa=',s:6:2)
readln;
end.

7б

program proizv2;
var a,p:real;
n,i:integer
begin
p:=1;
readln(a);
readln(n);
for i:=1 to n do
begin
p:=p*(a-i+1);
end;
writeln('p=',p:6:2)
readln;
end.

8

program summa_cifr;
var a,p:integer;
n,i,k1:integer;
function f_rec(k:integer):integer;
begin
  if k=0 then f_rec:=0
         else f_rec:=(k mod 10)+f_rec((k div 10));
end;
begin
p:=1;
readln(n);
readln(k1);
a:=trunc(exp((n-1)*ln(10)));
p:=trunc(exp((n)*ln(10)))-1;
for i:=a to p do
if f_rec(i)=k1 then write(i:9);
readln;
end.

9a

program mas1;
var a:array [1..100] of integer;
i,n:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
writeln;
for i:=1 to n do
write(a[i]:4);
for i:=1 to n do
if a[i]>=i then writeln(a[i]:5);
readln;
end.

9б

program mas2;
var a:array [1..100] of integer;
i,n,l,m:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
writeln;
for i:=1 to n do
write(a[i]:4);
readln(m);readln(l);
for i:=1 to n do
if a[i] mod m =l then writeln(a[i]:5);
readln;
end.

9в

program mas3;
var a:array [1..100] of integer;
i,n,l:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
writeln;
for i:=1 to n do
write(a[i]:4);
i:=1;
while i<=n do
begin
l:=a[i];
a[i]:=a[i+1];
a[i+1]:=l;
i:=i+2;
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.

[ROMA2PVT]

5

Program analiz;
Uses crt;
VAR
  god:integer;
BEGIN
  Clrscr;
  write('Введите  возраст человека: ');
  readln(god);
  write('Этот человек относится к группе: ');
  case god of
  0..6: writeln('дошкольник.');
  7..17: writeln('ученик.');
  18..49: writeln('работник.');
  50..99: writeln('пенсионер.');
  end;
END.

[Google2010]

Кто что может сделайте пожалуйста

Не по теме
*в шоке*

[Cybernetik788]

Спасибо большое)

[ROMA2PVT]

Не за что.

Могу написать общий вид программы 3.Уравнения сам составишь.Надо?

[Cybernetik788]

Конечно давай)...а ты знаешь 11 или 10=)

[ROMA2PVT]

ХеХ! я всё за тебя писать небуду.Щас 3-ю настрочу.

[Cybernetik788]

Ладно)и за это спс)

[ROMA2PVT]

Program primer;
Uses crt;
Var
a,x,f:real;
Begin
Clrscr;
writeln('Введите значение аргумента х: ');
writeln;
a:=0.9;
if (x>1) then y:={здесь составляешь первое своё уравнение};
if (x<=1) then y:={а здесь второе};
writeln('Ответ: ',f:1:5);
end.

Вот те третье.И тестишь программку в экселе на правильность.