Совместить 8 задач в одну - Turbo Pascal

Формулировка задачи:

ребят нужно совместить 8 задач в 1 и так чтобы работала помогите пожалуйста!!! 1
program proba;
 uses crt;
var u1,u2,u3,r,a1,a2,a3:real;
function st(u,a:real; var n:real):real;
begin
u:=(180-u)*pi/180;
a:=sqrt(2*r*r-2*r*r*cos(u));
n:=a/2/sin((pi-u)/2);
end;
begin
clrscr;
write('Vvedite ugly i radius: ');
repeat readln(u1,u2,u3,r) until u1+u2+u3=180;
st(u1,r,a1);
st(u2,r,a2);
st(u3,r,a3);
u1:=a1+a2;
u2:=a2+a3;
u3:=a3+a1;
write('a=',u1:0:10,' b=',u2:0:10,' c=',u3:0:10);
readkey;
end.
2
program linage;
var xa,ya,xb,yb:integer;
begin
writeln('Ââåäèòå êîîðäèГ*Г*ГІГ» âåêòîðГ* A');
readln(xa,ya);
writeln('Ââåäèòå êîîðäèГ*Г*ГІГ» âåêòîðГ* B');
readln(xb,yb);
if xa*xb=ya*yb then write('Âåêòîðû ïåðïåГ*äèêóëÿðГ*Г»')
else if xa/yb=ya/xb then write('ÂåêòîðГ* êîëëèГ*ГҐГ*Г°Г*Г»')
else write('ÂåêòîðГ* Г*ГЁГЄГ*ГЄГЁГҐ');
readln;
end.
3
program pascal;
var p,k:longint;
begin
k:=1;
p:=1;
while p*(k+1)<=1000000 do
begin
k:=k+1;
p:=p*k
end;
write('p= ','k= ',k);
readln
end.
4
program chisla;
uses crt;
var x,i,ch,sum,n: integer;
    a: array[1..100] of integer;
 
BEGIN
clrscr;
n:=0;
ch:=0;
 
writeln('Vvedite chisla: ');
while x>=0 do begin
readln(x);
n:=n+1;
a[n]:=x;
end;
 
for i:=1 to n do begin
if (a[i] mod 2 =0) then begin
sum:=sum+a[i];
ch:=ch+1;
end;
end;
write('Summa chetnix: ',sum,', Kol-vo chetnix: ',ch,', Sredneye arifmeticheskoye: ',sum/ch);
 
repeat until keypressed;
END.
5
 program xpp;
 const
  n = 3; {èçìåГ*ГЁГІГҐ}
var
  a, b : array[1..n] of integer;
  i, scalar : integer;
begin
  scalar := 0;
  randomize;
  writeln('ïåðâûé âåêòîð');
  for i := 1 to n do
  begin
    a[i] := random(100) - 50;
    write(a[i]:4)
  end;
  writeln;
  writeln('âòîðîé âåêòîð');
  for i := 1 to n do
  begin
    b[i] := random(100) - 50;
    write(b[i]:4)
  end;
  writeln;
  for i := 1  to n do
    scalar := scalar + a[i] * b [i];
  writeln('Г±ГЄГ*ëÿðГ*îå ïðîèçâåäåГ*ГЁГҐ = ', scalar);
  if scalar = 0 then writeln('îðòîãîГ*Г*ëüГ*Г»') else writeln('Г*ГҐ îðòîãîГ*Г*ëüГ*Г»');
  readln
end.
6
program files;
const n=4;
type Tarr = array[1..n,1..n] of integer;
var A,B:Tarr;
i,j,proizv,maxP,maxPj:integer;
 
 
 procedure FillArray(size:integer;var arr:Tarr);
 var i,j:integer;
 begin
  writeln('Ââåäèòå ГЄГўГ*äðГ*ГІГ*ûé Г¬Г*Г±Г±ГЁГў Г°Г*çìåðГ* ', size);
  for i:=1 to size do
   for j:=1 to size do
    begin
     read(arr[i,j]);
   end;
 end;
 
 
 procedure PrintArr(size:integer;arr:Tarr);
 var i,j:integer;
 begin
    for i:=1 to size do
    begin
    for j:=1 to size do
     write(arr[i,j],' ');
     writeln;
    end;
 end;
 
 
 procedure RandomFillArray1(n,a,b:integer;var arr:Tarr);
 var i,j:integer;
 begin
 randomize;
  for i:=1 to n do
  for j:=1 to n do
    arr[i,j]:=random(b-a+1)+a;
 end;
 
 
 begin
 
 FillArray(n,A);
   PrintArr(n,A);
 
 
   proizv:=1;  maxP:=-1;
   for j:=1 to n do
    begin
      for i:=1 to n do
       proizv:=proizv*A[i,j];
 
       if proizv>maxP then begin maxP:=proizv; maxPj:=j; end;
       proizv:=1;
    end;
 
    writeln('Г*îìåð ñòîëáöГ* Г± Г¬Г*ГЄГ±ГЁГ¬Г*ëüГ*ûì ïðîèçâåäåГ*ГЁГҐГ¬ = ', maxPj);
 
 end.
7
program files2;
uses crt;
var s:string;
    i,k:byte;
begin
clrscr;
writeln('Ââåäèòå ñòðîêó ГЁГ§ ñëîâ, Г°Г*çäåëåГ*Г*ûõ ïðîáåëГ*ìè');
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]=' ' then
 begin
  k:=k+1;
  s[i]:='_'
 end;
writeln(s);
write('Êîëè÷åñòâî ïðîáåëîâ=',k);
readln
end.
8
program proba;
const n=25;
var a,b:array[1..n] of integer;
i,max,min,k,m:integer;
begin
for i:=1 to n do readln(a[i];
max:=a[1]; min:=a[1]; k:=1; m:=1;
for i:=2 to n do
begin
 if max<a[i] then begin max:=a[i]; k:=i; end;
 if min>a[i] then begin min:=a[i[; m:=i; end;
end;
writeln('max=', max, ' nomer ',k);
writeln('min=', min, ' nomer ',m);
for i:=1 to n do
b[n-i+1]:=a[i];
writeln('1 massive');
for i:=1 to n do
begin write(a[i]:5); if i mod 5 =0 then writeln; end;
writeln('2 massive');
for i:=1 to n do
begin write(b[i]:5); if i mod 5 =0 then writeln; end;
readln
end.


textual

Код к задаче: «Совместить 8 задач в одну - Turbo Pascal»

uses crt;
procedure p1;
function st(u,r:real; var n:real):real;
var a:real;
begin
u:=(180-u)*pi/180;
a:=sqrt(2*r*r-2*r*r*cos(u));
n:=a/2/sin((pi-u)/2);
end;
var u1,u2,u3,r,a1,a2,a3:real;
begin
clrscr; {начало каждой программы}
write('Vvedite ugly i radius: ');
repeat readln(u1,u2,u3,r) until u1+u2+u3=180;
st(u1,r,a1);
st(u2,r,a2);
st(u3,r,a3);
u1:=a1+a2;
u2:=a2+a3;
u3:=a3+a1;
write('a=',u1:0:10,' b=',u2:0:10,' c=',u3:0:10);
readln; {конец каждой программы}
end;
procedure p2;
var xa,ya,xb,yb:integer;
begin
clrscr;
writeln('Введите координаты вектора A');
readln(xa,ya);
writeln('Введите координаты вектора B');
readln(xb,yb);
if xa*xb=ya*yb then write('Векторы перпендикулярны')
else if xa/yb=ya/xb then write('Вектора коллинеарны')
else write('Вектора никакие');
readln;
end;
procedure p3;
begin
end;
procedure p4;
begin
end;
procedure p5;
begin
end;
procedure p6;
begin
end;
procedure p7;
begin
end;
procedure p8;
begin
end;
var w:byte;
begin
clrscr;
repeat
clrscr;
writeln('Выберите действие');
writeln('1-????'); {здесь пишете названия программ}
writeln('2-????');
writeln('3-????');
writeln('4-????');
writeln('5-????');
writeln('6-????');
writeln('7-????');
writeln('8-????');
writeln('9-выход');
repeat
readln(w);
until w in[1..9];
case w of
1:p1;
2:p2;
3:p3;
4:p4;
5:p5;
6:p6;
7:p7;
8:p8;
9:exit;
end;
until w=9;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 3.750 из 5

Источник