Вывод массива на экран (13. pas)

• 
  вывод массива на экран (13.pas)
  
• 
  нахождение минимального и максимального чисал в массиве (6.pas)
  
• 
  расположение чисел в массиве по возростанию (10.pas)
  
• 
  среднее из минимальных чисел двух массивов (15.pas)
  
• 
  работа с файлами (4.pas)
  
• 
  считает количество строк в файле(3.pas)
  
• 
  вычисление n-факториала (5.pas)
  
• 
  определяет простое или составное число (7.pas)
  
• 
  определяет кол-во простых чисел (8.pas)
  
• 
  находит сумму двух чисел, с использованием процедур (2.pas)
  
• 
  замена символов в строке (9.pas)
  
• 
  определяет, есть ли в строке подряд идущие символы (12.pas)
  
• 
  удаление подстроки (14.pas)
  
• 
  управляемый объект (11.pas)
  

вывод массива на экран (13.pas)

program txt1; {ª®«¨ç¥á⢮ áâப áç¨â ¥â}

uses crt;

var f1:text;

str:string;

n:integer;

begin

assign (f1,'c:\f.txt');

rewrite (f1);

clrscr;

writeln ('Inpyt (enter-end):');

n:=0;

repeat

write (':>');

readln (str);

n:=n+1;

writeln (f1, str);

until str='';

close (f1);

write (n-1);

end.

нахождение минимального и максимального чисал в массиве (6.pas)

program txt1; {­®¢ë© ä ©« á® áâப ¬¨ ¬¥­ 20 ᨬ¢®«®¢}

uses crt;

var f1,f2:text;

str:string;

k:integer;

begin

assign (f1,'c:\f.txt');

rewrite (f1);

assign (f2,'c:\f1.txt');

rewrite (f2);

clrscr;

writeln ('Inpyt (enter-end):');

repeat

write (':>');

readln (str);

writeln (f1, str);

k:=length(str);

if k<20 then write(f2,str,' ');

until str='';

close (f1);

close (f2);

end.
program pr3;

var n,faktorial:integer;

procedure proc3;

var m,i:integer;

begin

m:=1;

for i:=1 to n do

m:=m*i;

faktorial:=m;

end;

begin

write ('n='); readln (n);

proc3;

writeln ('n_factorial=',faktorial );

end.

program dr;

const A=1;

b=3;

c=1;

d=4;

var ma:array [A..B, C..D] of real;

i,j: integer;

x,u : real;

begin

writeln ('vvod massiva');

for i:=A to B do

for j:=C to D do

read (ma [i,j]);

x:=ma[A,C] ;

for i:=A+1 to B do

for j:=c+1 to D do

if x< ma[i,j] then x:=ma[i,j];

writeln ('max=',x:8:2);
u:=ma[A,C] ;

for i:=A+1 to B do

for j:=c+1 to D do

if u> ma[i,j] then u:=ma[i,j];

writeln ('min=',u:8:2);
end.

program ea;

label 2,3;

var a, b, c: integer;

begin

writeln ('programma opredeljet prostoe chislo ili sostavnoe, vvedite chislo');

writeln('a=');

read(a);

if a<=1 then

begin

writeln ('eto chislo nedopustimo!');

goto 2;

end;
{á=0, ¥á«¨ ç¨á«® á®áâ ¢­®¥,

á=1, ¥á«¨ ç¨á«® ¯à®á⮥}

c:=1;

for b:=2 to a-1 do

If a mod b=0 then

begin

c:=0;

goto 3;

end;

3: If c=0 then writeln ('eto chislo sostavnoe')

else writeln ('eto chislo prostoe');
2: end.

program ea;

label 2,3;

var a,f, b, c, cnt: integer;

begin

writeln ('programma opredelaet kolichestvo prostih chisel ');

writeln ('na promezutke ot A do B ');

writeln ('vvedite a ');

write('a=');

read(a);

writeln ('vvedite b ');

write('b=');

read(b);

cnt:=0;

if a<=1 then

begin

writeln ('OSHIBKA: vvedennoe chislo A nedopustimo!');

goto 2;

end;
if b<=1 then

begin

writeln ('OSHIBKA: vvedennoe chislo B nedopustimo!');

goto 2;

end;

if a>b then

begin

writeln ('OSHIBKA: vvedite chisla v porjdke vozrastania!');

goto 2;

end;
{á=0, ¥á«¨ ç¨á«® á®áâ ¢­®¥ = esli sostavnoe,

á=1, ¥á«¨ ç¨á«® ¯à®á⮥ = esli prostoe}

while a<=b do

begin

c:=1;

for f:=2 to a-1 do
If a mod f=0 then

begin

c:=0;

break;

end;

if c=1 then cnt:=cnt+1 ;

a:=a+1;

end;
writeln ('REZULTAT:');

writeln ('kol-vo=', cnt);
2: end.
program bambino;
var s: string;

s1: string;

s3: string;

x,y:integer;

begin

writeln ('programma zameaet...');

write ('vvedite s:');

readln (s);

write ('vvedite zamenaemuu sroky:');

readln (s1);

write ('vvedite stroky na kotoryu zamenit:');

readln (s3);

x:= Pos (s1,s);

if x=0 then writeln ('vvedeno nevernoe znachenie zamenaemoi stroki')

else

begin

while x>0 do

begin

y:= Length(s1);

delete (s,x,y);

insert (s3,s,x);

x:= Pos (s1,s);

end;

writeln ('stroka:', s);

end;

end.

program mass ;
var i,x : integer ;

A : array [1..5] of integer ;

begin

writeln ('vvedite massiv i ego elementi budut raspolozeni po vozrastaniu') ;

for i:=1 to 5 do

read (A [i] ) ;

for i:=2 to 5 do

if A[1]>A[i] then
begin

x:=A[i];

A[i]:= A[1];

A[1]:=x;
end;

writeln ('po vozrastaniu:');

writeln (A[1]);

for i:=3 to 5 do

if A[2]>A[i] then

begin

x:=A[i];

A[i]:= A[2];

A[2]:=x;
end;

writeln (A[2]);
for i:=4 to 5 do

if A[3]>A[i] then

begin

x:=A[i];

A[i]:= A[3];

A[3]:=x;
end;

writeln (A[3]);

if A[4]

else

begin

x:=A[5];

A[5]:= A[4];

A[4]:=x;

writeln (A[4]);

end;

writeln (A[5]);

end.

program txt1;

uses crt;

var f1:text;

str:string;

n,x,y:integer;

r:char;

t:boolean;

{ const x=1;

y=1; }
begin

write ('UPRAVLYAEMII OBEKT: J-levo; L- pravo; I-vverx; M-vniz; A- vixod');

x:=0;

y:=0;

t:=false;

window (5,10,75,20);

textbackground (6);

clrscr;

gotoxy (x,y);

while t=false do begin

case readkey of

#109: begin delline; gotoxy (x,y+1);write (':)'); y:=y+1;{m} end;

#108: begin delline; gotoxy (x+1,y);write (':)'); x:=x+1;{l} end;

#105: begin delline; gotoxy (x,y-1);write (':)'); y:=y-1;{i} end;

#106: begin delline; gotoxy (x-1,y);write (':)'); x:=x-1;{j} end;

#97: begin t:=true{a} end;

#99: begin clrscr;end{c};

end;

end;

clrscr ;

end.

program bambino;

label 2;

var
i,k:integer;

s: string;

begin

WRITELN ('verno li,chto v stroke est k odinakovix, podrad idushih simvolov? ');

write ('vvedite s:');

readln (s);

k:=length(s);

for i:=1 to k-1 do

if s[i]=s[i+1] then

begin

k:=1;
break;

end

else k:=0;
if k=1 then writeln ('verno')

else writeln ('neverno');

end.
program mass ;

var i, x : integer ;

A : array [1..5] of integer ;

begin

writeln ('vvedite massiv') ;

for i:=1 to 5 do

read(a[i]) ;

x:=A[1] ;

for i:=2 to 5 do

if x< A[i] then x:=A[i];

writeln ('max= ', x) ;

end.
program bambino;

var s: string;

s1: string;

x,y:integer;

begin

WRITELN ('programma ydalaet podstroky s1 iz stroki s');

write ('vvedite s:');

readln (s);

write ('vvedite udalaemuu podstroky:');

readln (s1);
x:= Pos (s1,s);

if x=0 then writeln ('vvedeno nevernoe znachenie udalaemoi stroki')

else

begin

while x>0 do

begin

y:= Length(s1);

delete (s,x,y);

x:= Pos (s1,s);

end;

writeln ('stroka:', s);

end;

end.
program sr;

const n=4;

m=4;

var ma:array [1..n] of integer;

ma2:array [1..m] of integer;

a,b,c:real;

i:integer;
procedure proc;

var min, min2:integer;

begin

min:=ma[1];

for i:=2 to n do

if min>ma[i] then min:=ma[i];

min2:=ma2[1];

for i:=2 to n do

if min2>ma2[i] then min2:=ma2[i];

a:=min;

b:=min2;
end;
begin

writeln ('vvedite pervii massiv');

for i:=1 to n do

read (ma[i]);

writeln ('vvedite vtoroi massiv');

for i:=1 to n do

read (ma2[i]);

proc;

c:=(a+b)/2;

writeln ('srednee iz minimalnix =', c:8:2);

end.