1. Середовище програмування - це… А. варіанти відповідей Б. комп’ютерний клас В. програмна оболонка для системи програмування Г. система позначень, яка використовується для запису алгоритмів 2. Величина, яка в різні моменти часу може набувати різних значень, називається А. константою (постійною) Б. змінною В. випадковою 3. Як позначається оператор присвоювання А. = Б. <> В. =; Г. := 4. Для опису числових величин цілого типу використовують такі службові слова: А. Integer Б. Real В. String Г. Char 5. Процедура – це … А. послідовність операторів, які виконуються людиною Б. опис елемента керування В. послідовність операторів, які виконуються у відповідь на деяку подію Г. подія, що відбувається з елементом керування 6. Об'єкт, на якому можна розмітити різні компоненти А. Напис Б. Форма В. Кнопка Г. Меню 7. Процес запису програми з мови програмування на мову, зрозумілу комп'ютеру А. компіляція Б. трансляція В. інтерпретація Г. перезапис 8. Програми, створені в Lazarus, називають А. проектами Б. довідками В. об'єктами Г. формами 9. В якому вікні для кожного об'єкта можна переглядати і змінювати значення їх властивостей? А. Інспекторі об'єктів Б. Редакторі тексту В. Вікні форми Г. На формі 10 В якому вікні створюються процедури обробки подій? А. У вікні редактора коду Б. У вікні Інспектор об’єктів В. У вікні форми Г. У головному вікні 11. До алфавіту мови Lazarus входять такі символи: Виберіть декілька з 4 варіантів відповіді: А. цифри Б. великі і малі літери українського алфавіту В. знаки арифметичних операцій, спеціальні символи Г. великі і малі літери латинського алфавіту
Ответы
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.
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.
//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
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
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
ДАМ ЛУЧШИЙ ОТВЕТ И МНОГО !
Автор: ambstroy
из 10 ссч перевести в 2 ссч и также с числом пожайлуста если не сложно
Автор: tatiana2676
Дз по информатике.как это сделать надо
Автор: Vladimirovna1370
SketchUp Make программасынын куралдары кандай турлерге болинеди
Автор: schernov
я не понимаю уккраинск даже на русском анда санда дисн курсн