Вопросы/задания: Новые билеты и задачи по информатике
Описание
Характеристики вопросов/заданий
Список файлов
- Новые билеты и задачи по информатике
- 1
- 1.txt 802 b
- Project1.cfg 434 b
- Project1.dof 1,97 Kb
- Project1.dpr 761 b
- 10
- 10.txt 973 b
- Project10.cfg 434 b
- Project10.dof 1,97 Kb
- Project10.dpr 973 b
- Project10.~dpr 968 b
- 11
- 11.txt 676 b
- Project11.cfg 434 b
- Project11.dof 1,97 Kb
- Project11.dpr 676 b
- Project11.~dpr 613 b
- 12
- 12.txt 1,08 Kb
- Project12.cfg 434 b
- Project12.dof 1,97 Kb
- Project12.dpr 1,08 Kb
- Project12.~dpr 1,08 Kb
- 13
- 13.txt 1,41 Kb
- Project13.cfg 434 b
- Project13.dof 1,97 Kb
- Project13.dpr 1,41 Kb
- Project13.~dpr 1,41 Kb
- 14
- 14.txt 1,31 Kb
- Project14.cfg 434 b
- Project14.dof 1,97 Kb
- Project14.dpr 1,31 Kb
- Project14.~dpr 784 b
- 15
- 15.txt 764 b
- Project1.cfg 434 b
- Project1.dof 1,97 Kb
- Project1.dpr 766 b
- Project1.~dpr 765 b
- 16
- 16.txt 930 b
- Project16.cfg 434 b
- Project16.dof 1,97 Kb
- Project16.dpr 930 b
- Project16.~dpr 789 b
- 2
- 2.txt 636 b
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.
Начать зарабатывать