Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Киевский национальный университет технологий и дизайна

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

Збирник практичних робіт.doc

Скачиваний:

Добавлен:

30.08.2019

Размер:

2 Mб

Скачать

☆

<<< < Предыдущая 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 2425 / 2525

Vі. Повідомлення домашнього завдання. (1 хв.)

(Виконати та записати на дискету графічне зображення на вільну тему)

Розв’язок з теми “Програма. Мова програмування”.

І варіант

ІІ варіант

var a,b:real;

s,d:real;

begin

write('a b=');

readln(a,b);

s:=a*b;

d:=sqrt(a*a+b*b);

writeln('s=',s:5:2);

writeln('d=',d:4:2);

end.

var a,b,c,v:integer;

d:real;

begin

write('a b c=');

readln(a,b,c);

v:=a*b*c;

d:=sqrt(a*a+b*b+c*c);

writeln('v=',v,' ','d=',d:5:3);

readln;

end.

var x,y,z:real;

begin

write('x y=');

readln(x,y);

z:=(x+y)/sqrt(x*x+y*y)-sqrt(x*y)/(x-y);

writeln('z=',z:5:3);

readln;

end.

var x,y,z:real;

begin

write('x y=');

readln(x,y);

z:=(x+y)/sqrt(x*y)-sqrt(x*x+y*y)/(2*x*y);

writeln('z=',z:6:4);

readln;

end.

var ax,ay,bx,by,cx,cy,dx,dy:integer;

ab,bc,cd,ad,p:real;

begin

write('ax ay bx by cx cy dx dy=');

readln(ax,ay,bx,by,cx,cy,dx,dy);

ab:=sqrt(sqr(ax-bx)+sqr(ay-by));

bc:=sqrt(sqr(bx-cx)+sqr(by-cy));

cd:=sqrt(sqr(cx-dx)+sqr(cy-dy));

ad:=sqrt(sqr(dx-ax)+sqr(dy-ay));

p:=ab+bc+cd+ad;

writeln('p=',p:5:0);

readln;

end.

var x1,y1,x2,y2,x3,y3:integer;

a,b,c,s,p:real;

begin

write('x1 y1='); readln(x1,y1);

write('x2 y2='); readln(x2,y2);

write('x3 y3='); readln(x3,y3);

a:=sqrt((x1-x2)*(x1-x2)+sqr(y1-y2));

b:=sqrt(sqr(x2-x3)+sqr(y2-y3));

c:=sqrt(sqr(x3-x1)+sqr(y3-y1));

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('s=',s:6:2);

end.

var n,a,b,c,s:integer;

begin

write('n=');

readln(n);

a:=n div 100;

b:=(n mod 100) div 10;

c:=n mod 10;

s:=a+b+c;

writeln('a=',a); writeln('b=',b);

writeln('c=',c); writeln('s=',s);

end.

var n,k,a,b,c:integer;

begin

write('n=');

readln(n);

a:=n div 100;

b:=(n mod 100) div 10;

c:=n mod 10;

k:=c*100+b*10+a;

writeln('a=',a); writeln('b=',b);

writeln('c=',c); writeln('k=',k );

end.

Розв’язок з теми «Вказівка повторення та розгалуження»

Варіант 1

Варіант 2

var s,i:integer;

begin

i:=2;

while i<=100 do

begin

s:=s+i; i:=i+2;

end;

writeln('s=',s);

readln;

end.

var s,i:integer;

begin

i:=1;

while i<=101 do

begin

s:=s+i; i:=i+2;

end;

writeln('s=',s);

readln;

end.

var x,y,r:integer;

begin

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

if (x>0) and (y>0) then r:=1;

if (x>0) and (y<0) then r:=4;

if (x<0) and (y>0) then r:=2;

if (x<0) and (y<0) then r:=3;

if r>0 then writeln(r,' chvert');

readln;

end.

var n:integer;

begin

write('n=');

readln(n);

if (n>=3) and (n<=5) then writeln('vesna');

if (n>=6) and (n<=8) then writeln('lito');

if (n>=9) and (n<=11) then writeln('osin');

if (n=12) or (n<=2) then writeln('zima');

readln;

end.

var n,s,i:word;

begin

write('n=');

readln(n);

for i:=1 to n do

if n mod i=0 then

begin

write(i,' ');

s:=s+1;

end;

writeln;

writeln('s=',s);

readln;

end.

var n,s,i:word;

begin

write('n=');

readln(n);

for i:=1 to n div 2 do

if n mod i=0 then

begin

s:=s+1;

end;

if s>1 then writeln('ne proste') else writeln('proste');

readln;

end.

var n,i,s:integer;

begin

for i:=10 to 32 do

begin

writeln(i*i,' ',i);

s:=s+1;

end;

writeln('s=',s);

readln;

end.

var n,i,a,b,c,s:integer;

begin

for i:=100 to 999 do

begin

a:=i div 100; b:=(i mod 100) div 10;

c:=i mod 10; if i=a*a*a+b*b*b+c*c*c then

begin writeln(i); s:=s+1; end;

end;

writeln('s=',s); readln;

end.

Розв’язок з теми «Табличні величини»

Варіант 1

Варіант 2

uses crt;

var a:array[1..100] of integer;

s,i,n:integer;

begin

clrscr;

write('n=');

readln(n);

for i:=1 to n do

readln(a[i]);

for i:=1 to n do

if a[i]>0 then s:=s+a[i];

writeln('s=',s);

readln;

end.

uses crt;

var a:array[1..100] of integer;

s,i,n:integer;

begin

clrscr;

write('n=');

readln(n);

for i:=1 to n do

readln(a[i]);

for i:=1 to n do

if a[i]<0 then s:=s+a[i];

writeln('s=',s);

readln;

end.

uses crt;

var a:array[1..100] of integer;

max,i,n,k:integer;

begin

clrscr;

write('n=');

readln(n);

for i:=1 to n do

readln(a[i]);

max:=a[1];

for i:=1 to n do

if max<=a[i] then begin max:=a[i]; k:=i; end;

writeln('max=',max);

writeln('k=',k);

readln;

end.

uses crt;

var a:array[1..100] of integer;

min,i,n,k:integer;

begin

clrscr;

write('n=');

readln(n);

for i:=1 to n do

readln(a[i]);

min:=a[1];

for i:=1 to n do

if min>=a[i] then begin min:=a[i]; k:=i; end;

writeln('min=',min);

writeln('k=',k);

readln;

end.

uses crt;

var a:array[1..100] of integer;

min,i,n,s:integer;

begin

clrscr;

write('n=');

readln(n);

for i:=1 to n do

readln(a[i]);

min:=a[1];

for i:=1 to n do

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

for i:=1 to n do

if min=a[i] then s:=s+1;

writeln('s=',s);

readln;

end.

uses crt;

var a:array[1..100] of integer;

max,i,n,s:integer;

begin

clrscr;

write('n=');

readln(n);

for i:=1 to n do

readln(a[i]);

max:=a[1];

for i:=1 to n do

if max<=a[i] then max:=a[i];

for i:=1 to n do

if max=a[i] then s:=s+1;

writeln('s=',s);

readln;

end.

uses crt;

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

max,i,n,j,k:integer;

begin

clrscr; randomize;

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

for i:=1 to n do

a[i]:=random(20);

for i:=1 to n do

begin

for j:=i to n do

begin

if a[i]=a[j] then k:=k+1;

end;

b[i]:=k; k:=0;

end;

max:=b[1];

for i:=1 to n do

if max<=b[i] then max:=b[i];

for i:=1 to n do write(a[i],' '); writeln;

for i:=1 to n do if b[i]>1 then k:=k+1;

writeln('Кiлькiсть рiзних елементiв','-',n-k);

for i:=1 to n do if b[i]=1 then write(a[i],' ');

readln; end.

uses crt;

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

max,i,n,j,k:integer;

begin

clrscr; randomize;

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

for i:=1 to n do

a[i]:=random(20);

for i:=1 to n do

begin

for j:=i to n do

begin

if a[i]=a[j] then k:=k+1;

end;

b[i]:=k; k:=0;

end;

max:=b[1];

for i:=1 to n do

if max<=b[i] then max:=b[i];

for i:=1 to n do write(a[i]:3);

writeln;

for i:=1 to n do if max=b[i] then

writeln('елемент',a[i]:3,' - ',max,' рази');

readln; end.

Розв’язок з теми «Рядкові величини»

Варіант 1

Варіант 2

var n,a2,s:string; i:integer;

begin

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

for i:=1 to length(n) do

begin

s:=copy(n,i,1);

if s='о' then a2:=a2+copy(n,3,1) else a2:=a2+s;

end; writeln(a2);

readln; end.

var n:string; s,i:integer;

begin

write('cлово=');

readln(n);

for i:=1 to length(n) do

if (copy(n,i,1)=copy(n,1,1))

or (copy(n,i,1)=copy(n,length(n),1)) then s:=s+1;

writeln('s=',s);

readln; end.

var n,n2:string;

i:integer;

begin

write('cлово='); readln(n);

for i:=1 to length(n) do

if (copy(n,i,1)='с') or (copy(n,i,1)='ш') then n2:=n2+copy(n,i,1)+copy(n,i,1) else n2:=n2+copy(n,i,1);

writeln('n2=',n2);

readln; end.

var n:string;

s,i:integer;

begin

write('cлово='); readln(n);

for i:=1 to length(n) do

if (copy(n,i,1)='е') or (copy(n,i,1)='о')

then delete(n,i,1);

writeln('n=',n);

readln;

end.

var n:string;

s,i:integer;

begin

write('cлово=');

readln(n);

for i:=1 to length(n) do

if (copy(n,i,3)='фор') or (copy(n,i,3)='тех') then s:=s+1;

writeln('s=',s);

readln;

end.

var n:string;

s,i:integer;

begin

write('cлово=');

readln(n);

for i:=1 to length(n) do

if (copy(n,i,3)='кит') then

begin

delete(n,i,3); insert('сом',n,i);

end;

writeln('n=',n);readln;

end.

var s,s2,n,a:string;

sum,k,j,b,i,code:integer;

begin

write('s=');

readln(s);

s2:=''; i:=1;

while length(s)>0 do

begin

a:=copy(s,i,1);

s2:=s2+a;

while pos(a,s)>0 do

begin

k:=pos(a,s);

delete(s,k,1);

end;

for i:=1 to length(s2) do

if copy(s2,i,1)=' ' then sum:=sum+1;

writeln(s2,' ',length(s2)-sum); readln;

end.

var n,s2:string;

s,k,i,max:integer;

begin

write('cлово=');

readln(n);

n:=n+' ';

while length(n)>0 do

begin

k:=pos(' ',n);

s:=length(copy(n,k-k+1,k-1));

if max<=s then

begin

max:=s;

s2:=copy(n,k-k+1,k-1);

end;

delete(n,k-k+1,k);

end;

writeln('s2=',s2);

readln;

end.

Список літератури

Шестопалов Є.А. Word 2000 для початківця, 2001 с. 25, с. 46

Лисогор І.А., Дідковський В.Л., Матвійчук С.В. Методичні рекомендації з інформатики по переходу на 12-бальну систему оцінювання навчальних досягнень учнів, 2001 с. 31–33, с. 35–37, с. 38–39, с.41–42, с. 43–44

Рамський Ю.С., Іваськів І.С., Ніколаєнко О.Ю. Вивчення WEB-програмування в школі, 2004 с.196–199

Шост Д.М. Основи інформатики та обчислювальної техніки TURBO PASCAL 10-11 клас, с. 74–76

<<< < Предыдущая 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 2425 / 2525

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

#
01.04.2025153.79 Кб0задачі облік.docx
#
04.02.2016829.44 Кб36задачі статистика.doc
#
09.11.2019326.14 Кб3Задача_практика_аудит.doc
#
20.11.2019661.5 Кб1заочне в д. економ ка п дпри мства,бакалаврат,...doc
#
04.02.201612.44 Кб27Запис у щоденник для практики.docx
#
30.08.20192 Mб2Збирник практичних робіт.doc
#
01.07.2025620.7 Кб0Звіт 2.docx
#
04.02.201685.41 Кб214Звіт ОРАНТА.docx
#
04.02.201657.08 Кб13Звіт Практика.docx
#
04.02.2016250.88 Кб17Звіт практики таня.doc
#
01.07.202553.97 Кб0Звіт1.docx