ВІКІСТОРІНКА
Навигация:
Інформатика
Історія
Автоматизація
Адміністрування
Антропологія
Архітектура
Біологія
Будівництво
Бухгалтерія
Військова наука
Виробництво
Географія
Геологія
Господарство
Демографія
Екологія
Економіка
Електроніка
Енергетика
Журналістика
Кінематографія
Комп'ютеризація
Креслення
Кулінарія
Культура
Культура
Лінгвістика
Література
Лексикологія
Логіка
Маркетинг
Математика
Медицина
Менеджмент
Металургія
Метрологія
Мистецтво
Музика
Наукознавство
Освіта
Охорона Праці
Підприємництво
Педагогіка
Поліграфія
Право
Приладобудування
Програмування
Психологія
Радіозв'язок
Релігія
Риторика
Соціологія
Спорт
Стандартизація
Статистика
Технології
Торгівля
Транспорт
Фізіологія
Фізика
Філософія
Фінанси
Фармакологія


Зразок виконання контрольної роботи

 

1. Примеры выполнения заданий, связанных с написанием программы на алгоритмическом языке Паскаль и составлением схемы алгоритма.

 

1.1 Ввод и вывод числовых значений

1 группа 2 группа 3 группа
G=10^4 H=-25 Y=-4,5 Z=42567*10^-2 Q=4,57*10^-3 R=-56,3

uses CRT;

var a:array [1..6] of real;

b:array [1..6] of char;

i:integer;

begin

ClrScr;

b[1]:='G';

b[2]:='H';

b[3]:='Y';

b[4]:='Z';

b[5]:='Q';

B[6]:='R';

writeln('vvedite G v decatichnoj forme');

readln(a[1]);

writeln('vvedite H v decatichnoj forme');

readln(a[2]);

writeln('vvedite Y v decatichnoj forme' );

readln(a[3]);

writeln('vvedite Z v decatichnoj forme');

readln(a[4]);

writeln('vvedite Q v pokazatelnoj forme');

readln(a[5]);

writeln('vvedite R v pokazatelnoj forme');

readln(a[6]);

writeln;

writeln('Resulyatu rabotu');

FOR I:=1 TO 6 DO

begin

if i in [1..4] then

writeln(' ',b[i],' v pokazatelnoj forme ',a[i]:2:4);

if i in [5,6] then

writeln(' ',b[i],' v pokazatelnoj forme ',a[i])

end;

writeln;

end.


 

Результат работы программы:

 

1.2 Составить схему алгоритма и программу вычисления значения функции.

 

Вид функции Исходные данные
Х Y Z
-0,643 -6,324 -

uses CRT;

var x:real;

b:real;

y:real;

begin

ClrScr;

writeln('VVedite x');

readln(x);

writeln('vvedite y');

readln(y);

b:= x+(y/(x+(y/(x+y))));

writeln('b=',b:6:3);

writeln;

end.

Выполнение программы:

 

1.3 Составить схему алгоритма и программу для вычисления значения функций при заданных условиях.

Вид функции Исходные данные
Х Y Z
3,75 0,22 -6,72 1,05

var x1,x2,a1,a2,b1,b2,z,y:real;

i,n:integer;

begin

writeln('vedite x1 ');

readln(x1);

writeln('vedite x2 ');

readln(x2);

writeln('vedite z');

readln(z);

writeln('vedite y');

readln(y);

if (x1>=z) or (x2>=z) then

begin

a1:= (x1+y)/(5+sqr(sin(z)));

a2:= (x2+y)/(5+sqr(sin(z)));

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

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

end;

if (x1<z) or (x2<z) then

begin

b1:=sqrt(abs(y+sqr(sin(z)/cos(z))));

writeln ( 'b=',b1:5:2);

end;

writeln;

readln

end.

Выполнение программы:

 

 

1.4 Вычислить таблицу значений функции для значений аргумента в заданном интервале с заданным шагом.

Вид функции Исходные данные
a b xn xk Dx
8,24 - 14,9 24,8 1,5

Uses crt;

var x,x1,x2,dx,a,y:real;

i,n:integer;

begin

clrscr;

writeln('vedite x1 ');

readln(x1);

writeln('vedite x2 ');

readln(x2);

writeln('vedite dx');

readln(dx);

writeln('vedite a');

readln(a);

while x1<=x2 do begin

y:=sqr(ln(a+x1))/sqr(a+x1);

writeln ( 'y = ',y:5:5);

x1:=x1+dx;

end;{while}

writeln;

readln

end.


 

Выполнение программы:

 

1.5 Вычислить таблицу значений функции для значений аргумента, который представляет собой массив.

Вид функции Исходные данные
a b x1 x2 x3 x4
1,38 -1,26 70,1 96,3 17,8 20,65

 

const x:array[1..4]of real=(70.1,96.3,17.8,20.65);

var i:integer;

y,a,b:real;

 

begin

a:=1.38; b:=-1.26;

writeln(' x y');

for i:=1 to 4 do

begin

y:=a*sqr(ln(x))/(b+sqrt(x));

writeln(x[i]:5:2,y:7:2);

end;

readln;

end.

 

Выполнение программы:

1.6 Для совокупности чисел Х(0.01;-27.3;0;125.27;-371.45;0;12;-5;-172.3;0.05;17.1;49.5;-0.01) при А=-5. Вычислить сумму элементов, меньших А.

 

uses crt;

const x: array [1..13] of real = (0.01,-27.3,0,125.27,371.45,0,12,-5,-172.3,0.05,17.1,49.5,-0.01);

A = -5;

Var n,i, k:integer;

sum:real;

begin

clrscr; writeln('Masiv X'); sum:=0;

for i:=1 to 13 do begin writeln(x[i]:2:2);

if x[i]<A then sum:=sum+x[i];

end;

writeln; write('Sum = ',sum:4:3); writeln

end.

Выполнение программы:

1.7 Для совокупности чисел Х(0.01;-27.3;0;125.27;-371.45;0;12;-5;-172.3;0.05;17.1;49.5;-0.01) при А=-5. Найти номер элемента с максимальным значением

 

const x:array[1..13]of real=(0.01,-27.3,0,125.27,-371.45,0,12,-5,

-172.3,0.05,-17.1,49.5,-0.01);

A=-5;

var i:integer;

max:real;

 

begin

max:=x[1];

for i:=2 to 13 do

if x[i]>max then max:=x[i];

writeln('Max=',max:3:2);

readln;

end.

1.8 Обработка двумерного массива:

uses CRT;

type q=array [1..3] of integer;

var

Q3: array [1..5] of q;

j,i,k,temp:integer;

begin

ClrScr; writeln('Vvedite masiv Q3 5 na 3');

for i:=1 to 5 do

for j:=1 to 3 do read(Q3[i,j]);

for j:=1 to 3 do begin

for i:=1 to 4 do

for k:=1 to 5-i do begin

if q3[k,j]<q3[k+1,j] then begin

temp:=q3[k,j];

q3[k,j]:=q3[k+1,j];

q3[k+1,j]:=temp;

end; end; end;

writeln ('Preobrazovanaya matrica Q3:');

for i:=1 to 5 do begin

for j:=1 to 3 do begin write (' ', Q3[i,j]);

end; writeln; end; readln end.

Выполнение программы:


 

 

1.9 Организация программ, содержащих функции пользователя.

 

Вероятности m событий в распределении Пуассона

 

uses CRT;

var

A,M,i:integer;

z:real;

function fact(var n:integer):integer;

var temp : integer;

begin

if n>1 then begin

temp:=n-1;

fact:=n*fact(temp);

end

else

fact:=1;

end;

 

begin

ClrScr;

writeln('vvedite M ' );

readln(M);

writeln('vvedite A ' );

readln(A);

z:=(A*exp(-A*Ln(1.27)))/(fact(M));

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

writeln;

end.

Выполнение программы:


Пример ответа на теоретический вопрос.

 

Контекстные меню Windows

С каждым объектом Рабочего стола, с каждой папкой или значком можно проделать множество самых разных операций. Любой значок или папку можно переименовать, удалить, копировать или переместить. От любого объекта можно создать ярлык. Наконец, можно изменить внешний вид любого объекта, его свойства. Число и ассортимент операций, естественно, различается в зависимости от того, с каким объектом мы работаем. Понятно, что между папкой и файлом существуют различия, а следовательно, есть операции, которые можно применить только к папке или только к файлу. Универсального списка операций нет и быть не может. В этой ситуации на помощь придет полезная функция Windows – Контекстное меню. Оно появляется, если навести курсор на нужный вам объект и щелкнуть правой кнопкой мыши. Тут же появляется список действий, которые мы можем с этим объектом проделать. И нужно просто выбрать одно из действий и щелкнуть по строчке с его названием левой кнопкой мыши.

Контекстное меню – меню, содержащее список команд, относящихся к конкретному объекту. Для вызова контекстного меню щелкните объект правой кнопкой мыши или нажмите клавиши SHIFT+F10.)

Объяснить, что значат все пункты Контекстного Меню нет возможности потому, что в меню постоянно добавляются новые пункты в зависимости от установленных вами программ. Однако есть пункты, которые вы найдете практически в любом Контекстном Меню вне зависимости от того, откуда вы его вызвали:

Вырезать – с помощью этого пункта вы можете «спрятать» нужный вам элемент (ярлык, значок, выделенный кусок документа) в особый «карман» Windows (буфер обмена). Эта операция пригодится вам, если вы вдруг захотите переместить объект в другую папку или часть одного документа в другой.

© 2013 wikipage.com.ua - Дякуємо за посилання на wikipage.com.ua | Контакти