Апробація. Result: yoj hha nan abab

1) baba nan ahh joy

Result: yoj hha nan abab

Результат правильний.

2) what r u doing?

Result:?gniod u r what

Результат правильний.

Завдання № 9

Тема завдання: Мова Pascal, робота з графікою.

Постановка задачі

У графічному режимі намалювати трикутник. Інформацію про координати трикутника та колір фону – вводити з клавіатури.

Опис алгоритму

Підключаємо модуль GraphAbc. Після цього з клавіатури вводимо координати вершин та колір фону. Потім викликаючи спеціальні команди(moveto,line,lineto) ми малюємо трикутник. Щоб трикутник зафарбувався у відповідний колір використовуємо команду floodfill.

Текст програми

program p9;

uses GraphAbc;

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

begin

read(x1,y1,x2,y2,x3,y3);

setpencolor(clred);

line(x1,y1,x2,y2);

line(x2,y2,x3,y3);

line(x3,y3,x1,y1);

x4:=round((x1+x2+x3)/3);

y4:=round((y1+y2+y3)/3);

floodfill(x4,y4,clblue);

end.

Апробація

100 100 200 200 100 300, blue

Завдання № 10

Тема завдання: Мова ObjectPascal, початки роботи в Delphi.

Постановка задачі

Розмістити на формі компоненти Button, CheckBox, RadioGroup, ComboBox, та Memo. Memo поле розмістити зверху форми, а решта компонент – внизу. Перемикаючи CheckBox робити доступною або ні компоненту Memo. Вибираючи варіанти в RadioGroup дозволяти або ні додавання нових записів до

ComboBox. Вибираючи варіанти у ComboBox забезпечити зміну висоти тексту компоненти Memo. При зміні розмірів форми Memo поле та інші компоненти повинні зберігати свою позицію відносно форми. Для завершення роботи програми реалізувати кнопку Exit.

Дата добавления: 2015-07-17