vertrigo

program lab3; {табуляция функции}
uses crt;
type arg=0..30;
var x:arg;y:real;
Begin
Clrscr;
   for x:=0 to 30 do begin
   case x of
   1..9: y:=exp(2*x-1)+cos(x);
   10..20: if x mod 2=0 then y:=ln(abs(x-5))+exp(1/3*ln(5*x)) else y:=exp(-2.5*ln(x))*sin(2*x+1);

vertrigo

Program sm12_1;
uses Crt;
type matr = array[1..4,1..4] of integer;
     mass = array[1..4] of integer;
var a:matr; b,c:mass; i, j, sum, mlt:integer;
{раздел описания переменных закончен, начало программы}
Begin
ClrScr;
{ввод матрицы А(4х4)}
writeln('Введите матрицу A(4х4):');

vertrigo

Program lab4;
uses Crt;
type mas = array[1..10] of integer;
var a:mas; i, count, scount, sum:integer;

Begin
ClrScr;
writeln('Введите массив из 10 элементов: ');
for i:=1 to 10 do
  read(a[i]);

vertrigo

Program lab5;
uses Crt;
type matr = array[1..4,1..4] of integer;
var a:matr; i, j, sum, count, mlt:integer;
Begin
ClrScr;
writeln('Введите матрицу:');
for i:=1 to 4 do 
  for j:=1 to 4 do read(a[i,j]);
writeln('Исходная матрица:');

vertrigo

Program lab5;
uses Crt;
type matr = array[1..4,1..4] of integer;
var a:matr; i, j, sum, min, mlt:integer;
Begin
ClrScr;
writeln('Введите матрицу:');
for i:=1 to 4 do 
  for j:=1 to 4 do read(a[i,j]);
writeln('Исходная матрица:');

vertrigo

Program lab8;
uses crt;
var f:text;
    x,y,sy:real;
    n:integer;
begin
clrscr;
assign(f,'coor.txt');
rewrite(f);
writeln('Введите в файл координаты точек, окончание ввода х=0 и у=0:');

vertrigo

Program ex6;
uses crt;
type matr = array[1..4,1..4] of char;
var a:matr; i,j,m,n:integer; dist:boolean;

Begin
clrscr;
writeln('Введите символьную матрицу 4х4:');
for i:=1 to 4 do
  for j:=1 to 4 do read(a[i,j]);

vertrigo

Program ex6;
uses crt;
type matr = array[1..4,1..4] of char;
var a:matr; c:char; i,j:integer; s: set of 'a'..'z'; check:boolean;

Begin
clrscr;
writeln('Введите символьную матрицу 4х4:');
i:=1; j:=1;
repeat

vertrigo

program graphics;
uses graph;
var gd,gm,xc,yc:integer;
    fills:array[1..3] of PointType;
begin
     gd:=detect;initgraph(gd,gm,'');
     if graphresult <> 0 then halt(1);
     xc:=100;yc:=100;
     SetFillStyle(3,GetMaxColor);
     pieslice(xc,yc,270,360,75);pieslice(xc,yc,0,90,75);

vertrigo

program lab7;
uses crt;
var st:string; i,k:integer;

Begin
clrscr;
write('Введите строку символов: ');
readln(st);
k:=0;
for i:=1 to length(st) do