Вопросы/задания: Новые билеты и задачи по информатике

type t=text;

t1=array[1..10] of integer;

function kol(s:string):integer;

{КОЛ-ВО СТРОК В СТРОКЕ S}

var i,k:integer;

begin

k:=0;

s:=' '=s;

for i:=1 to (length(s)-1) do

if (s[i]=' ') and (s[i+1]<>' ')

then k:=k+1;

kol:=k;

end;

procedure print(a:t1; n:integer);

{ВЫВОД МАССИВА 'A' РАЗМЕРНОСТЬЮ 'n' ИЗ КОЛ-ВА Слов}

var i:integer;

begin

for i:=1 to n do

writeln(a[i]);

end;

{ОСНОВНАЯ ПРОГРАММА}

var f:t;

s:string;

i:integer;

a:t1;

begin

assign(f,namef);

rewrite(f);

writeln('vvedite kol-vo cmpok: ');

readln(n);

for i:=1 to n do

begin

readln(s);

writeln(f,s);

end;

i:=1;

while not eof(f) do

begin

readln(f,s);

a[i]:=kol(s);

i:=i+1;

end;

print(a,n);

readln;

end.

program Project10;

{$APPTYPE CONSOLE}

uses

SysUtils;

const n=5;

type mas=array[1..n] of integer;

Procedure vvod(var a:mas);

var i:integer;

begin

writeln('Vvod massiva:');

for i:=1 to n do

readln(a[i]);

end;

Procedure vivod(var a:mas);

var i:integer;

begin

for i:=1 to n do

writeln(a[i]);

end;

Procedure new_mas(var a,a1:mas);

var p,i:integer;

begin

p:=1;

for i:=1 to n do

if i mod 2=0 then p:=p*a[i];

a1:=a;

a1[1]:=p;

end;

Procedure sort(var a:mas);

var i,j,buf:integer;

begin

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then

begin

buf:=a[i];

a[i]:=a[j];

a[j]:=buf;

end;

end;

var b,b1:mas;

BEGIN

vvod(b);

new_mas(b,b1);

writeln('Ishodniy massiv:');

vivod(b);

writeln('Noviy massiv:');

vivod(b1);

sort(b);

sort(b1);

writeln('Ishodniy massiv posle sort:');

vivod(b);

writeln('Noviy massiv posle sort:');

vivod(b1);

readln;

END.

program Project11;

{$APPTYPE CONSOLE}

uses

SysUtils;

Function ch(x:real):real;

var i,fact,n:integer;

var ep,u,f,fn:real;

begin

ep:=0.001;

n:=2;

fact:=1;

u:=1;

f:=0;

repeat

fact:=1;

for i:=1 to n do fact:=fact*i;

fn:=(exp(n*ln(abs(x))))/fact;

f:=f+fn;

u:=fn*u;

n:=n+2;

until u<ep;

ch:=f;

end;

Procedure fun(hx:real);

var x,y,ch1:real;

begin

x:=-1;

repeat

ch1:=ch(x);

y:=sqr(x)/(2*ch1);

writeln(x:6:4,' ',y:6:4);

x:=x+hx;

until x>1;

end;

var hx1:real;

BEGIN

writeln('Shag tabulirovaniya:');

readln(hx1);

fun(hx1);

readln;

END.

program Project12;

{$APPTYPE CONSOLE}

uses

SysUtils;

type mas=array[1..100,1..100] of integer;

Procedure vvod(var a:mas; n,m:integer);

var i,j:integer;

begin

writeln('Vvod matrici:');

for i:=1 to n do

begin

for j:=1 to m do

read(a[i,j]);

readln;

end;

end;

Procedure vivod(var a:mas; n,m:integer);

var i,j:integer;

begin

for i:=1 to n do

begin

for j:=1 to m do

write(a[i,j],' ');

writeln;

end;

end;

Procedure obmen(var a:mas; n,m:integer);

var i,j,maxn,minn,buf:integer;

begin

for i:=1 to n do

begin

maxn:=1;

minn:=1;

for j:=1 to m do

begin

if a[i,j]>a[i,maxn] then maxn:=j;

if a[i,j]<a[i,minn] then minn:=j;

end;

buf:=a[i,maxn];

a[i,maxn]:=a[i,minn];

a[i,minn]:=buf;

end;

end;

var a1:mas;

var n1,m1:integer;

BEGIN

writeln('Kol-vo strok:');

readln(n1);

writeln('Kol-vo stolbcov:');

readln(m1);

vvod(a1,n1,m1);

writeln('Ishodnaya matrica:');

vivod(a1,n1,m1);

obmen(a1,n1,m1);

writeln('Otvet:');

vivod(a1,n1,m1);

readln;

END.

program Project13;

{$APPTYPE CONSOLE}

uses

SysUtils;

type mas=array[1..100,1..100] of integer;

mas1=array[1..100] of integer;

Procedure vvod(var a:mas; n,m:integer);

var i,j:integer;

begin

writeln('Vvod matrici:');

for i:=1 to n do

begin

for j:=1 to m do

read(a[i,j]);

readln;

end;

end;

Procedure vivod(var a:mas; n,m:integer);

var i,j:integer;

begin

for i:=1 to n do

begin

for j:=1 to m do

write(a[i,j],' ');

writeln;

end;

end;

Procedure sum_mas(var a:mas; var b:mas1; n,m:integer);

var i,j,k,s:integer;

begin

k:=0;

for i:=1 to n do

begin

s:=0;

for j:=1 to m do

s:=s+a[i,j];

k:=k+1;

b[k]:=s;

end;

end;

Procedure vivod_1(var b:mas1; n:integer);

var i:integer;

begin

for i:=1 to n do

writeln(b[i]);

end;

Procedure sort(var b:mas1; n:integer);

var i,j,buf:integer;

begin

for i:=1 to n-1 do

for j:=i+1 to n do

if b[i]>b[j] then

begin

buf:=b[i];

b[i]:=b[j];

b[j]:=buf;

end;

end;

var a1:mas;

var b1:mas1;

var n1,m1:integer;

BEGIN

writeln('Kol-vo strok:');

readln(n1);

writeln('Kol-vo stolbcov:');

readln(m1);

vvod(a1,n1,m1);

writeln('Ishodnaya matrica:');

vivod(a1,n1,m1);

sum_mas(a1,b1,n1,m1);

writeln('Ishodniy massiv');

vivod_1(b1,n1);

sort(b1,n1);

writeln('Massiv posle sort:');

vivod_1(b1,n1);

readln;

END.

program Project14;

{$APPTYPE CONSOLE}

uses

SysUtils;

type mas=array[1..100,1..100] of integer;

mn=set of 1..100;

Procedure vvod(var a:mas; n,m:integer);

var i,j:integer;

begin

writeln('Vvod matrici:');

for i:=1 to n do

begin

for j:=1 to m do

read(a[i,j]);

readln;

end;

end;

Procedure vivod(var a:mas; n,m:integer);

var i,j:integer;

begin

for i:=1 to n do

begin

for j:=1 to m do

write(a[i,j],' ');

writeln;

end;

end;

Procedure vvod_mn(var k:mn);

var i,l:integer;

var ki:1..100;

begin

writeln('Kol-vo elementov mnogestva:');

readln(l);

k:=[];

writeln('Mnogestvo:');

for i:=1 to l do

begin

readln(ki);

k:=k+[ki];

end;

end;

Function sum(var a:mas; n,m:integer; var k1,k2:mn):integer;

var i,j,s:integer;

var i1,j1:char;

begin

s:=0;

for i:=1 to n do

for j:=1 to m do

if (i in k1) and (j in k2) then s:=s+a[i,j];

sum:=s;

end;

var a1:mas;

var n1,m1,sum1:integer;

var s1,s2:mn;

BEGIN

writeln('Kol-vo strok:');

readln(n1);

writeln('Kol-vo stolbcov:');

readln(m1);

vvod(a1,n1,m1);

writeln('Ishodnaya matrica:');

vivod(a1,n1,m1);

writeln('Mnogestva s1 i s2:');

vvod_mn(s1);

vvod_mn(s2);

sum1:=sum(a1,n1,m1,s1,s2);

writeln('Summa = ',sum1);

readln;

END.

program Project15;

{$APPTYPE CONSOLE}

uses

SysUtils,System;

Function Integral(a,b:integer):real;

const ep=0.0001;

var

h:real;

x:real;

s2,s1:real;

n,i:integer;

begin

s1:=(exp(b)-arctan(b))*(b-a);

h:=1;

repeat

x:=a;

s2:=s1;

n:=round((b-a)/h);

s1:=0;

for i:=1 to n do

begin

s1:=s1+((exp(x)-arctan(x)))*h;

x:=x+h;

end;

h:=h/2;

until abs(s2-s1)<ep;

Integral:=s1;

end;

var

a:array[1..3] of real;

i:integer;

begin

a[1]:=Integral(0,1);

a[2]:=Integral(1,2);

a[3]:=Integral(2,3);

for i:=1 to 3 do

begin

writeln('interval (',i-1,',',i,']: ',a[i]:5:2);

end;

readln;

end.

program Project16;

{$APPTYPE CONSOLE}

uses

SysUtils;

type mas=array[1..100,1..100] of string;

Procedure vvod(var a:mas; n,m:integer);

var i,j:integer;

begin

writeln('Vvod matrici:');

for i:=1 to n do

for j:=1 to m do

readln(a[i,j]);

end;

Procedure vivod(var a:mas; n,m:integer);

var i,j:integer;

begin

for i:=1 to n do

begin

for j:=1 to m do

write(a[i,j],' ');

writeln;

end;

end;

Procedure poisk(var a:mas; n,m:integer);

var i,j:integer;

var b:string;

begin

b:=a[1,1];

for i:=1 to n do

for j:=1 to m do

if b<a[i,j] then b:=a[i,j];

writeln('Rezultat poiska: ',b);

writeln('Kol-vo bukv = ',length(b));

end;

var a1:mas;

var n1,m1:integer;

BEGIN

writeln('Kol-vo strok:');

readln(n1);

writeln('Kol-vo stolbcov:');

readln(m1);

vvod(a1,n1,m1);

writeln('Ishodnaya matrica:');

vivod(a1,n1,m1);

poisk(a1,n1,m1);

readln;

END.

program Project1;

{$APPTYPE CONSOLE}

uses

SysUtils;

type t=array [1..100] of real;

procedure tab (dx:real; var a:t; var n:integer);

var i:integer; x:real;

begin

x:=0;

i:=0;

while x<2 do

Begin

inc(i);

x:=x+dx;

a[i]:=exp(x)/x;

end;

n:=i;

end;

function min(a:t;n:integer):real;

var i:integer; m:real;

begin m:=a[1];

for i:=2 to n do

if a[i]<m then

m:=a[i];

min:=m;

end;

var dx:real;a:t; n,p:integer;

begin

writeln('vvedite shag');

readln(dx);

tab(dx,a,n);

writeln('min znachenie: ',min (a,n));

for p:=1 to n do

writeln(a[p]);

readln;

end.