Практическая работа
1. Откройте Lazarus.
2. Выберите команду «Проект - Создать новый
проект»Приложение»
3. Установите следующие значения свойств формы:
Цвет фона — небесно голубой:
Ширина - 400 пикселей;
Высота - 400 пикселей:
• текст в строке заголовка — ваше имя и фамилия.
4. В папке «8 класс» создайте свою папку с названием «ПP10 ваша
фамилия».
5. Сохраните проект в созданной вами папке с именем (4б.)
6. Добавьте надпись на форму.
7. Установите для надписи следующие значения свойств:
• шрифт — Times New Roman, размер 16
• текст — «Зимой и летом одним цветом»
8. Добавьте три кнопки одинакового размера на форму. Разместите
ИХ В ОДИН ряд.
9. Установите для кнопок следующие значения свойств:
• шрифт — Times New Roman, размер 14
текст:
о Кнопка 1 — «Ёлка»
о Кнопка 2 – «Метёлка»
о Кнопка 3 — «Книга» (6б.)
10. Создайте обработчик события Click для кнопки 2, выполнение
которого установит:
• красный цвет фона окна;
• Вывод окна сообщения на экран с текстом «Не верно!»
11. Создайте обработчик события Click для кнопки 3, выполнение
которого установит:
• зелёный цвет фона окна:
• вывод окна сообщения на экран с текстом «Не верно!»
(9б.)
12. Создайте обработчик события MouseMove для кнопки 1. В
созданной процедуре запишите следующие операторы:
• Button1.Left:= 100 – Random(250);
• Button1.Top := 304 Random(250);
13. Сохраните проект.
14. Выполните проект и проверьте сто работу. (126.)
15. Сообщите учителю о завершении работы.
var
a:array[1..n,1..m] of integer;
i,j,s,k:integer; p:real;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(81)+20;
write(a[i,j]:4);
end;
writeln;
end;
s:=0;
for i:=1 to n do
for j:=1 to m do s:=s+a[i,j];
p:=s/n*0.8;
writeln('p = ',p:5:2);
writeln('Зачислены:');
k:=0;
for i:=1 to n do
begin
s:=0;
for j:=1 to m do s:=s+a[i,j];
if s>=p then begin write(i,' '); k:=k+1; end;
end;
writeln;
writeln('k = ',k);
end.
Пример:
Исходный массив:
58 79 60
96 63 97
90 97 57
29 68 25
38 75 65
54 69 42
44 70 47
39 49 24
27 64 36
68 21 64
p = 137.20
Зачислены:
1 2 3 5 6 7 10
k = 7
// PascalABC.NET 3.2, сборка 1367 от 20.12.2016
// Внимание! Если программа не работает, обновите версию!
var
a,b,c,R,dA,dB,dC:real;
begin
Writeln('Введите углы A,B в градусах и радиус R');
Read(dA,dB,R);
dC:=180-dA-dB;
a:=2*R*sin(dA*Pi/180);
b:=2*R*sin(dB*Pi/180);
c:=2*R*sin(dC*Pi/180);
Writeln('Угол C: ',dC:0:2);
Writeln('a=',a:0:5);
Writeln('b=',b:0:5);
Writeln('c=',c:0:5)
end.
Пример
Введите углы A,B в градусах и радиус R
30 70 50.0
Угол C: 80.00
a=50.00000
b=93.96926
c=98.48078