1. Дана блок-схема 1.1 Определи тип алгоритма: (Какой из трех типов используется?) 1.2 Определи задачу, выполняемую данным алгоримом: (Что вычисляет?) Какой результат выведет компьютер при а=0, b=10? Выбери и выпиши из данных языков программирования только языки ООП (объектно-ориентированного программирования) Java, FORTRAN, Delphi, C++, Turbo Pascal, QBasic, Lazarus, Prolog 3. Дана программа в Lazarus (ObjectPascal) procedure TForm1.Button1Click(Sender: TObject); var i, s:integer; sr: real; begin s:=0; for i:=0 to 9 do s:= s+ strtoint (listbox1.items [i]); sr:= s/10; label2.Caption:= 'Среднее арифметическое равно' + ' ' + floattostr (sr); end; end. 3.1 Какой тип алгоритма используется в данной процедуре? 3.2. При выполнения события Click на этом элементе управления происходит запуск процедуры. Выберите верное: a Label1 b) listbox1 c) Button1 3.3. Какую задачу решает данная программа. Выберите верный ответ: а) Вычисляет среднеарифметическое чисел от 0 до 9; b) Вычисляет среднеарифметическое любых 10 чисел; с) Вычисляет сумму чисел от 0 до 9; d) Вычисляет сумму любых 10 чисел. 3.4. Какую функцию выполняет функция floattostr

hfuchcjdjdirurhrjùrwpu gowruncbouweobh hfuchcjdjdirurhrjù t24cu2ccwobeiybr79jce97r97jcetk0 t24cu2ccwobeiybr79jce97r97jc and dbouu8b2rcibgwrojc adohcwor9jwcwr8hh fs8gyd8gyaxqybixiqyevyvicar y8gbB5gbdhd rjwrihviuwbr

ОК, всё это циклы.
1) Цикл for (цикл с счётчиком), при этом при каждом шаге цикла счётчик увеличивается на 1. Пример:
for a:=1 to 10 do //Цикл будет выполнен 10 раз
2) Цикл for (цикл с счётчиком), при этом при каждом шаге цикла счётчик уменьшается на 1. Пример:
for a:=10 to 1 do //Цикл будет выполнен 10 раз
3)Цикл с постусолвием. Если условие не выполняется, выполняется цикл. Его особенность заключается в том, что цикл выполнится хотя бы один раз вне зависимости от условия. Пример:
k:=0;
repeat
inc(k);
until k<9 //10 раз
4)Цикл с предусловием. Пока условие выполняется, выполняется и цикл.
Пример:
k:=0;
while k<>10 do
inc(k); //10 раз

{Данная программа переводит любое сочетание символов ASCII в систему счисления заданную пользователем.}

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

var
 a,i,b,r,n,j,bug:integer;
 s,se,slo,slof:string;

procedure preob(var a,b,n:integer; var se:string);
 begin
  repeat
   b:=a mod n;
   a:=a div n;
   str(b,se);
   s+=se;
  until (a<=n-1);
 end;

beginreadln(slo);
readln(n);
for j:=1 to length(slo) do
begin;
a:=ord(slo[j]);
preob(a,b,n,se);
str(a,se);
s+=se;
for i:=1 to length(s) div 2 do
begin;
se:=s[i];
s[i]:=s[length(s)-i+1];
s[length(s)-i+1]:=se[1];
end;
write(s,'-');
slof:=slof+s;
delete(s,1,length(s));
end;
end.

Пример ввода:
Домашняя работа на завтра.
2
Пример вывода:
11000100-11101110-11101100-11100000-11111000-11101101-11111111-11111111-100000-11110000-11100000-11100001-11101110-11110010-11100000-100000-11101101-11100000-100000-11100111-11100000-11100010-11110010-11110000-11100000-101110-

{Таким образом, фразу "Домашняя работа на завтра." можно закодировать как "11000100-11101110-11101100-11100000-11111000-11101101-11111111-11111111-100000-11110000-11100000-11100001-11101110-11110010-11100000-100000-11101101-11100000-100000-11100111-11100000-11100010-11110010-11110000-11100000-101110-".}