ПРОЙТИ ТЕСТ ПО ИНФОРМАТИКЕ. 8 КЛАСС LAZARUS

1.Програмний код містить оголошення Button1:TButton: Оберіть правильні твердження (несколько ответов)

a)Об"єкт має назву Button1

б)ТButton - це назва об"єкта

в)Клас ТButton належить об"єкту Button1

г)Об"єкт Button1 належить класу ТButton

2.Напишіть назву властивості, за до якої можна встановити напис на кнопці ? свой ответ

3.За до якого виразу можна в програмі отримати текс, що міститься в текстовому полі Edit1?

а)TEdit.Text

б)Edit1

в)Edit1.Caption

г)Edit1.Text

д)Text.Edit1

4.Який інструмент треба вибрати, щоб додати текстове поле? *

а)Label1

б)Edit1

в)Button

г)Caption

5.За до якої властивості можна додавати елементи списку? *

а)Items

б)Label1

в)Caption

г)ComboBox1

6.При додаванні другої форми до проєкта, які нові файли з"являються? Оберіть правильні твердження.(несколько ответов)

а)файл коду unit2.pas

б)файл форми unit2.lfm

в)файл проєкта unit2.lpr

г)файл піктограми unit2.ico

7.Щоб у програмному модулі Unit1 звернутись до інших форм, під словом implementation необхідно записати вказівку... *

а)user Unit1, Unit2;

б)usesion Unit1, Unit2;

б)uses Unit1, Unit2;

8.Яку дію виконує команда Form2.Show? *

a)Приховує Form1

б)Відображує Form2 і приховує Form1

в)Відображує Form2

9.Хто відображає дію, яку може виконати об"єкт?

а)Метод

б)Варіант

в)Команда

г)Проєкт

10.За до якої властивості можна додавати елементи списку (свой ответ)

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

ruslanchik1999

01.01.2023 16:23

Вычисли число строк в таблице, не считая шапки таблицы. Число переменных в выражении — 6....

zvoznikov304

20.08.2021 19:41

5. Составьте программу, которая переставляет на первое место: а) в строке «Моя родина Беларусь» слово «Беларусь»;б) в строке «Люблю цябе, мой родны кут» слова «Мой родны...

polly009090

05.01.2020 01:50

Дан одномерный массив из 10 целых чисел. Вывести пары отрицательных чисел, стоящих рядом. Python...

dasha43com

22.03.2023 03:10

Постройке таблицу истенности для высказывания НЕ (A И B) ИЛИ C...

meskov

13.05.2023 03:40

Отличия индустриального общества от информационного...

winnikrolikov

25.09.2020 10:14

Вквадратной матрице а(7,7) поменять местами минимальные элементы первой и третьей строк, максимальные элементы главной и побочной диагоналей....

fumymovie

31.01.2022 18:46

Алгоритмы решите и напишет команды трёх всё точно как на компьютере 5.1. закрасить указанные клетки с использованием алгоритма для закрашивания колонки, состоящей из 5 клеток....

Wwwoxanap2013

31.01.2022 18:46

Придумать тему для линейной презентации. например: человек идет по лестнице; как заварить чайник и т. п. тема свободная....

Юлдуз1122

30.05.2021 09:22

Склади речення з поданих на малюнку слів і запиши його. у, їх, ефекти, презентації, визначають, алгоритм, можна,руху,на,слайді,додати, які,об єктів,анімації...

elizaveta871

11.01.2023 21:11

Сочинение по произведению ревизор. нужно кратко, что бы поместилось в тетрадь буквально на 1-2 страницы....

Ответ:

Adik20061

03.04.2022 14:55

//Я просто опишу метод записи матрицы
const n=100;
var ar:array of array of integer;
ars:array of array of string;
i:integer;

procedure complection(var ar:array of array of integer;var ars:array of array of string);
var
i,j:integer;
begin;
for i:=1 to n do
begin;
for j:=1 to n do
begin;
ar[i,j]:=random(9);
str(ar[i,j],ars[i,j]);
end;
end;
end;

procedure burning(ars:array of array of string);
var
i,j:integer;
t:text;
begin;
assign(t,'text.txt');
rewrite(t);
for i:=1 to n do
begin;
writeln(t,' ');
for j:=1 to n do
write(t,ars[i,j],' ');
end;
end;

begin;
randomize;
setlength(ar,n+1);
setlength(ars,n+1);
for i:=1 to n do
begin;
setlength(ar[i],n+1);
setlength(ars[i],n+1);
end;
complection(ar,ars);
burning(ars);
end.

0,0(0 оценок)

Ответ:

пропрл

29.02.2020 22:45

1)var ar:array of integer;
max,min,s,i,n,maxi,mini:integer;
begin;
randomize;
max:=-1;
min:=101;
readln(n);
setlength(ar,n+1);
writeln('Array:');
for i:=1 to n do
begin;
ar[i]:=random(100);
write(ar[i]:4);
if max<ar[i] then
begin;
max:=ar[i];
maxi:=i;
end;
if min>ar[i] then
begin;
min:=ar[i];
mini:=i;
end;
s:=s+ar[i];
end;
ar[maxi]:=s;
ar[mini]:=s;
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:4);
end.
2)var ar:array of integer;
k,h,i,s:integer;
f:real;
begin;
randomize;
readln(h);
setlength(ar,h+1);
writeln('Array:');
for i:=1 to h do
begin;
ar[i]:=random(100)-50;
write(ar[i]:4);
if (ar[i]>0) and (ar[i] mod 2=0) then
begin;
inc(k);
s:=s+ar[i];
end;
end;
f:=s/k;
writeln;
writeln('Result:',f);
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку