|
Зразок виконання контрольної роботи
1. Примеры выполнения заданий, связанных с написанием программы на алгоритмическом языке Паскаль и составлением схемы алгоритма.
1.1 Ввод и вывод числовых значений
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 Составить схему алгоритма и программу вычисления значения функции.
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 Составить схему алгоритма и программу для вычисления значения функций при заданных условиях.
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 Вычислить таблицу значений функции для значений аргумента в заданном интервале с заданным шагом.
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 Вычислить таблицу значений функции для значений аргумента, который представляет собой массив.
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 Организация программ, содержащих функции пользователя.
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 (буфер обмена). Эта операция пригодится вам, если вы вдруг захотите переместить объект в другую папку или часть одного документа в другой. |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||
|