1. Середовище програмування - це…
А. варіанти відповідей
Б. комп’ютерний клас
В. програмна оболонка для системи програмування
Г. система позначень, яка використовується для запису алгоритмів
2. Величина, яка в різні моменти часу може набувати різних значень, називається
А. константою (постійною)
Б. змінною
В. випадковою
3. Як позначається оператор присвоювання
А. =
Б. <>
В. =;
Г. :=
4. Для опису числових величин цілого типу використовують такі службові слова:
А. Integer
Б. Real
В. String
Г. Char
5. Процедура – це …

А. послідовність операторів, які виконуються людиною
Б. опис елемента керування
В. послідовність операторів, які виконуються у відповідь на деяку подію
Г. подія, що відбувається з елементом керування

6. Об'єкт, на якому можна розмітити різні компоненти
А. Напис
Б. Форма
В. Кнопка
Г. Меню
7. Процес запису програми з мови програмування на мову, зрозумілу комп'ютеру
А. компіляція
Б. трансляція
В. інтерпретація
Г. перезапис
8. Програми, створені в Lazarus, називають
А. проектами
Б. довідками
В. об'єктами
Г. формами
9. В якому вікні для кожного об'єкта можна переглядати і змінювати значення їх властивостей?
А. Інспекторі об'єктів
Б. Редакторі тексту
В. Вікні форми
Г. На формі
10 В якому вікні створюються процедури обробки подій?

А. У вікні редактора коду
Б. У вікні Інспектор об’єктів
В. У вікні форми
Г. У головному вікні

11. До алфавіту мови Lazarus входять такі символи:
Виберіть декілька з 4 варіантів відповіді:
А. цифри
Б. великі і малі літери українського алфавіту
В. знаки арифметичних операцій, спеціальні символи
Г. великі і малі літери латинського алфавіту

👇

Увидеть ответ

Ответ:

олеся791

09.08.2020

я не понимаю уккраинск даже на русском анда санда дисн курсн

4,7(70 оценок)

Открыть все ответы

Ответ:

chamk

09.08.2020

Uses GraphABC;
var tnk:array of Point;
begin
Window.Title := 'Танк атакует';
var y := 200;
Brush.Color := clGreen;
LockDrawing;
tnk:=new Point[4];
for var x := 70 to 500 do begin
Window.Clear(clWhite);
Rectangle(x,y,x+100,y+50);
Rectangle(x-25,y+50,x+125,y+75);
tnk[0].X:=x-45;
tnk[0].Y:=y+75;
tnk[1].X:=x-30;
tnk[1].Y:=y+120;
tnk[2].X:=x+100;
tnk[2].Y:=y+120;
tnk[3].X:=x+145;
tnk[3].Y:=y+75;
Rectangle(x+100,y+10,x+225,y+25);
FillPolygon(tnk);
Redraw;
Sleep(3);
end;
end.

4,4(80 оценок)

Ответ:

145781жл

09.08.2020

//Pascal ABC.NET v3.0 сборка 1111

type
ty=set of char;

Const
t:ty=['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z'];

Var
f:text;
s:string;
i,slo,ks:integer;
k:real;
begin
assign(f,'text.in');
reset(f);
while not Eof(f) do read(f,s);
close(f);
slo:=0;
ks:=0;
for i:=1 to length(s) do
if s[i] in t then inc(slo) else
begin;
k:=k+slo;
inc(ks);
slo:=0;
end;
if s[length(s)] in t then
begin;
inc(ks);
k:=k+slo;
end;
k:=k/ks;
assign(f,'text.out');
rewrite(f);
write(f,k);
close(f);
end.

Пример ввода(text.in):
SIMPLE text
Пример вывода(text.out):
5

4,8(25 оценок)

Это интересно:

Стиль-и-уход-за-собой

26.04.2022

Как укладывать волнистые волосы: советы и лайфхаки...

Финансы-и-бизнес

16.12.2022

10 шагов к успеху: как стать торговцем на фермерском рынке...

29.03.2023

Как освободиться от чувства вины...

Финансы-и-бизнес

10.10.2020