Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Напишите программы в Turbo Pascal.

Ответ оставил Гость

1) Вот первая задачка:

uses crt;
 var a, b, c : real;

begin
 ClrScr;
 Write( a = ); ReadLn(a);
 Write( b = ); ReadLn(b);
 c:=sqrt(a*a+ b*b);
 WriteLn( c = , C:4:2);
 ReadLn;
end.

2) А вот задачка 2

uses crt;
 var s, s0 : real;
     i: integer;
begin
 ClrScr;
 S0:=3;
 i:=1;
 While S0<20 do
    begin
     i:=i+1;
     S:=S0*(1+0.05);
     S0:=S+S0;
    end;
  WriteLn( Day = , i);
 ReadLn;
end.



3) А вот и третья задачка подоспела....

uses Crt;
const n=15;
type Mas = array [1..n] of real;
var  A: Mas;
     i: integer;
     Sum: real;
begin
ClrScr;

Sum:=0;
for i:=1 to n do
  begin
      Write( A[,i, ] = ) ; ReadLn (A[i]);
      Sum:=Sum+A[i];
  end;

WriteLn ( Massiv:  );
for i:=1 to n do
      Write (A[i]:6:2,    );

WriteLn; WriteLn;
WriteLn (Sum = , Sum:6:2);

 ReadLn;
 end.