Пример выполнения контрольной работы
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 |
x |
|
|
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.
Выполнение программы:
2. Пример ответа на теоретический вопрос.
Контекстные меню Windows
С каждым объектом Рабочего стола, с каждой папкой или значком можно проделать множество самых разных операций. Любой значок или папку можно переименовать, удалить, копировать или переместить. От любого объекта можно создать ярлык. Наконец, можно изменить внешний вид любого объекта, его свойства. Число и ассортимент операций, естественно, различается в зависимости от того, с каким объектом мы работаем. Понятно, что между папкой и файлом существуют различия, а следовательно, есть операции, которые можно применить только к папке или только к файлу. Универсального списка операций нет и быть не может. В этой ситуации на помощь придет полезная функция Windows – Контекстное меню. Оно появляется, если навести курсор на нужный вам объект и щелкнуть правой кнопкой мыши. Тут же появляется список действий, которые мы можем с этим объектом проделать. И нужно просто выбрать одно из действий и щелкнуть по строчке с его названием левой кнопкой мыши.
Контекстное меню – меню, содержащее список команд, относящихся к конкретному объекту. Для вызова контекстного меню щелкните объект правой кнопкой мыши или нажмите клавиши SHIFT+F10.)
Объяснить, что значат все пункты Контекстного Меню нет возможности потому, что в меню постоянно добавляются новые пункты в зависимости от установленных вами программ. Однако есть пункты, которые вы найдете практически в любом Контекстном Меню вне зависимости от того, откуда вы его вызвали:
Вырезать – с помощью этого пункта вы можете «спрятать» нужный вам элемент (ярлык, значок, выделенный кусок документа) в особый «карман» Windows (буфер обмена). Эта операция пригодится вам, если вы вдруг захотите переместить объект в другую папку или часть одного документа в другой.
Копировать – практически та же операция, только при выборе этого пункта Контекстного Меню в «карман» помещается не сам объект, а его копия.
Вставить – операция, обратная «копировать» или «вырезать».
Свойства – выбрав этот пункт меню, вы сможете узнать немало полезного об объекте, будь то документ, программа или даже сам Рабочий Стол. «Свойства» ярлыка покажут, на какой именно файл он указывает, свойства документа – когда, кем и в какой именно программе он создан. С помощью «Свойств» можно изменит множество параметров объекта.
Создать ярлык, удалить, переименовать, копировать – эти пункты вряд ли нуждаются в комментариях.
Упорядочить значки – упорядочить расположение значков в папке.
Команды контекстных меню можно перемещать и копировать так же, как и команды любого другого меню в Office.
В меню Сервис выберите команду Настройка.
Откройте вкладку Панели инструментов.
В поле Панели инструментов установите флажок Контекстные меню.
Выполните одно из следующих действий.
Удалите команду из контекстного меню
Выберите категорию на панели инструментов Контекстные меню, а затем выберите контекстное меню, содержащее нужную команду.
Перетащите команду за пределы меню.
Добавьте команду в контекстное меню
Выберите категорию на панели инструментов Контекстные меню, а затем выберите контекстное меню, которое требуется изменить.
В диалоговом окне Настройка откройте вкладку Команды.
В поле Категории выберите категорию для команды.
Перетащите команду из поля Команды в нужное место контекстного меню, а затем отпустите кнопку мыши.
3. Пример выполнения задания в Excel