Министерство образования и науки РФ

Федеральное государственное автономное образовательное

учреждение высшего профессионального образования

«Казанский (Приволжский) федеральный университет»

ИНСТИТУТ ВЫЧИСЛИТЕЛЬНОЙ МАТЕМАТИКИ И ИНФОРМАЦИОННЫХ ТЕХНОЛОГИЙ

кафедра информатики и вычислительных технологий

Специальность: "Прикладная информатика в образовании"

Практикум ЭВМ

Выполнила: студентка группы 901 пио

Газиева А.Ф.

Руководитель: Галиуллин Д.К.

Казань – 2012

Вариант 1.

Код программы(для рис.1):

program Project1;

{$APPTYPE CONSOLE}

uses

SysUtils;

var x,y:real;

begin

{ TODO -oUser -cConsole Main : Insert code here }

write('x=');

readln(x);

write('y=');

readln(y);

if ((sqr(x)+sqr(y)<=25) and (x>=0))or((sqr(x)+sqr(y)<=9) and(x<=0) and (y>=0))

or((y>=-5/3*x-5) and(x<=0) and(y<=0))

then writeln('yes')

else writeln('no');

readln;

end.

Код программы:

program Project1;

{$APPTYPE CONSOLE}

uses

SysUtils;

var n,a,b,s:integer;

begin

{ TODO -oUser -cConsole Main : Insert code here }

write('vvedite 2x znachnoe chislo:');

readln(n);

a:=n mod 10;

b:=n div 10;

s:=a+b;

if s mod 2=0 then writeln('verno')

else writeln('ne verno');

readln

end.

program Project3;

{$APPTYPE CONSOLE}

Uses SysUtils;

var p,eps,a:real;

k:integer;

begin

{ TODO -oUser -cConsole Main : Insert code here }

write('eps=');

readln(eps);

p:=1; k:=2; a:=1-1/sqr(k);

while abs(1/sqr(k))>=eps do begin

p:=p*a;

k:=k+1;

a:=(1-1/sqr(k)); end;

writeln('P=',p:8:6);

readln; readln;

end.

program Project4;

{$APPTYPE CONSOLE}

Uses SysUtils;

var x0,x1,a:real;

begin

{ TODO -oUser -cConsole Main : Insert code here }

write('a='); readln(a);

if a<=1 then begin if 2*a<0.95 then x0:=2*a else x0:=0.95 end

else if a<25 then x0:=a/5

else x0:=a/25;

x1:=4/5*x0+a/(5*sqr(sqr(x0)));

while 5/4*a*abs(x1-x0)>=0.000001 do

begin

x0:=x1;

x1:=4/5*x0+ a/(5*sqr(sqr(x0)));

end;

writeln('xn=',x1:8:6);

readln;

end.

program Project5;

{$APPTYPE CONSOLE}

uses SysUtils;

var N,M,P:longint; i,k:integer;

begin

write('Vvedite naturalnoe chislo N='); readln(N);

M:=N; P:=0;

while M>0 do

begin i:=M mod 10; P:=P*10+i; M:=M div 10; end;

if P=N then write('Palindrom')

else write('Ne palindrom');

readln

end.

program Project6;

{$APPTYPE CONSOLE}

uses SysUtils;

var a,b:array[1..20] of integer;

i,j:integer;

begin

{ TODO -oUser -cConsole Main : Insert code here }

for i:=1 to 20 do

read(a[i]);

j:=1;

for i:=20 downto 11 do begin

b[j]:=a[i]; b[j+1]:=a[i-10]; j:=j+2

end;

for j:=1 to 20 do

write(b[j],' ');

readln;

readln

end.

program Project7;

{$APPTYPE CONSOLE}

uses SysUtils;

var a:array[1..30] of integer; i,n:integer;

begin

{ TODO -oUser -cConsole Main : Insert code here }

write('n=');

readln(n);

Writeln('vvedite massiv:');

for i:=1 to 2*n do

read(a[i]);

for i:=1 to n do

begin

write(a[i], ' ');

write(a[n+i],' ');

end;

readln;

readln; end.

program Project8; {$APPTYPE CONSOLE}

uses SysUtils;

var a:array[1..10,1..10] of real; x:real; i,j:integer;

begin

write('x='); readln(x);

i:=1;

for j:=1 to 10 do

a[i,j]:=exp(ln(x)*(j-1));

i:=10;

for j:=10 downto 1 do

a[i,11-j]:=exp(ln(x)*(j-1));

j:=1;

for i:=1 to 10 do

a[i,j]:=exp(ln(x)*(i-1));

j:=10;

for i:=10 downto 1 do

a[11-i,j]:=exp(ln(x)*(i-1));

for i:=1 to 10 do begin

for j:=1 to 10 do

write(a[i,j]:6:1);

writeln; end;

readln; end.

program Project9;

{$APPTYPE CONSOLE}

uses SysUtils;

var a:array[1..10,1..10] of integer;

i,j,n,m,k,p:integer;

begin { TODO -oUser -cConsole Main : Insert code here }

write('vvedite kol-vo strok n='); readln(n);

write('vvedite kol-vo stolbsov m='); readln(m);

for i:=1 to n do

for j:=1 to m do read(a[i,j]);

k:=0; p:=1;

for j:=1 to m do

if a[5,j] mod 2=1 then

begin

k:=k+1;

p:=p*a[5,j]

end;

write('k=',k, ' p=', p);

readln;

readln

end.

program Project10;

{$APPTYPE CONSOLE}

Uses SysUtils;

var s1,s2:string; i:integer;

begin

{ TODO -oUser -cConsole Main : Insert code here }

write('vvedite stroku:');

readln(s1);

s2:='';

i:=pos('e',s1);

s2:=copy(s1,1,i);

delete(s1,1,i);

i:=pos('e',s1);

s2:=s2+copy(s1,i,length(s1));

writeln(s2);

readln

end.

program P11dpr;

{$APPTYPE CONSOLE}

uses SysUtils;

var s,s1,S2:string;

i,j,k,t,p:integer;

w:boolean;

begin

writeln('Vvedite text razdelenniy probelami:');

readln(s);

s:=s+' ';

p:=1;

i:=1;

while i<=length(s) do begin

w:=false;

while not(w) do begin

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

begin w:=true; t:=p; p:=i; end; i:=i+1; end;

s1:=copy(s,t,p-t); s1[3]:='a'; delete(s,t,p-t); insert(s1,s,t);

end;

write(s);

readln;

end.

program Project122;

{$APPTYPE CONSOLE}

uses SysUtils;

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

var x,y:mas; n,m,min,a,b:integer;

procedure vvod(k:integer; var z:mas);

var i:integer;

begin for i:=1 to k do read(z[i]);

end;

procedure minn(z:mas; a:integer; var min:integer);

var i:integer;

begin min:=z[1];

for i:=2 to n do

if z[i]<min then min:=z[i];

if min=z[a] then writeln('verno') else writeln('ne verno') end;

begin

{ TODO -oUser -cConsole Main : Insert code here }

write('vvedite kol-vo elementov 1-go massiva n='); readln(n);

write('vvedite kol-vo elementov 2-go massiva m=');readln(m);

vvod(n,x);

vvod(m,y);

write('vvedite nomer dlya proverki min elementa 1-go massiva='); readln(a);

write('vvedite nomer dlya proverki min elementa 2-go massiva=');readln(b);

minn(x,a,min);

minn(y,b,min);

readln; readln;

end.

program Project13;

{$APPTYPE CONSOLE}

uses SysUtils;

var ss:string;

function kol(s: string; k: char): integer;

var i, n: integer;

begin

n := 0;

for i := 1 to length(s) do

if s[i] = k then n:=n+1;

kol := n

end;

begin

{ TODO -oUser -cConsole Main : Insert code here }

write('vvedite stroku simvolov:');

readln(ss);

writeln('kol-vo simvolov "r"=',kol(ss,'r'));

writeln('kol-vo simvolov "k"=',kol(ss,'k'));

writeln('kol-vo simvolov "t"=',kol(ss,'t')); readln; end.