LAZARUS
2.Створіть проект, у якому потрібно сформувати табличну величину з 8 цілих чисел, що знаходяться в рядках багаторядкового тексто вого поля, і зобразити значення кожного елемента кругом відповід ного радіуса. Збережіть проект у папці з іменем Завдання 6.3.2, створеній у вашій папці.
3.Створіть проект, у якому потрібно сформувати табличну величину з 8 цілих чисел, що знаходяться в рядках багаторядкового тексто вого поля, і зафарбувати в зелений колір фігуру, що відповідає найменшому елементу табличної велечини, а в сірий-усі інші фігури Збережіть проект у папці з іменем Завдання 6.3.3, створеній у вашій папці.
Можна файл або скрін коду
Дякуюю
Ответы
Відповідь:
Завдання 6.3.2:
pascal
program Task632;
uses
crt;
var
Table: array[1..8] of integer;
i: integer;
begin
// Отримуємо цілі числа з багаторядкового текстового поля (замість цього використовуйте свій спосіб отримання даних)
for i := 1 to 8 do
begin
write('Введіть число ', i, ': ');
readln(Table[i]);
end;
clrscr;
// Виводимо значення кожного елемента кругом відповідного радіуса
for i := 1 to 8 do
begin
gotoxy(40 + 30 * cos(i * (2 * pi) / 8), 12 + 15 * sin(i * (2 * pi) / 8));
write(Table[i]);
end;
readln;
end.
Завдання 6.3.3:
pascal
program Task633;
uses
crt;
var
Table: array[1..8] of integer;
i, minVal: integer;
begin
// Отримуємо цілі числа з багаторядкового текстового поля (замість цього використовуйте свій спосіб отримання даних)
for i := 1 to 8 do
begin
write('Введіть число ', i, ': ');
readln(Table[i]);
end;
clrscr;
// Знаходимо найменше значення в масиві
minVal := Table[1];
for i := 2 to 8 do
begin
if Table[i] < minVal then
minVal := Table[i];
end;
// Зафарбовуємо в зелений колір фігуру, що відповідає найменшому елементу
for i := 1 to 8 do
begin
if Table[i] = minVal then
textbackground(green)
else
textbackground(lightgray);
gotoxy(40 + 30 * cos(i * (2 * pi) / 8), 12 + 15 * sin(i * (2 * pi) / 8));
write(Table[i]);
end;
readln;
end.
Обидва ці програми використовують бібліотеку crt для очищення екрану та налаштування текстового виводу. Оскільки я не знаю вашого точного способу отримання даних, я використовував ввід користувача через readln для заповнення масиву Table. Далі ці програми виводять значення елементів кругом відповідного радіуса, а також зелено зафарбовують фігуру, яка відповідає найменшому елементу. Вам потрібно доповнити цей код відповідно до вашого проекту Lazarus і способу отримання даних.
Пояснення: