Объектно-ориентированное программирование на языке Delphi

begin

  c:=4;  b:=4;

else

c:=5;  b:=5;

end;

9. if a>0 then

begin

  c:=1; d:=1;

end  else k:=1;

Вариант №2*.

1. Приведите формат записи условного оператора (общий вид). ________________________________________________________

2. Переведите на язык программирования следующие высказывания

1. Если a равно b тогда c присвоить их сумму.

___________________________________________________________

2. Если a не равно b тогда c присвоить квадрат a иначе c присвоить корень квадратный из b.

___________________________________________________________

3. Если a меньше 10 тогда b присвоить модуль d, c присвоить квадрат a иначе c присвоить корень квадратный из b и d присвоить сумму a и b.

______________________________________________________________________________________________________________________

4. Если 1>a>10 тогда c присвоить верхнюю границу интервала иначе c присвоить нижнюю границу интервала.

___________________________________________________________

3. Напишите алгоритм нахождения наименьшего из 3 чисел.

________________________________________________________________________________________________________________________________

4. Напишите алгоритм нахождения количество положительных чисел и произведение отрицательных из x, y, z.

________________________________________________________________________________________________________________________________________________________________________________________________

5. Как вывести вещественное число в многострочное поле?
1. Memo1.Text:=IntToStr(a);
2. Edit1.Text:=StrToInt(a);
3. Memo1:=a;
4. Memo1.Text:=FloatToInt(a);
5. Memo1.Text:=FloatToStr(a);
6. Edit1.Text:=StrToFloat(a);
6. Выберите синтаксически правильную запись (может быть несколько вариантов ответа)
1. If x>y then c:=2; else c:=5;
2. If a>b then z:=2 and z:=2;
3. If a>1 then c:=sqr(s);
4. If a<=10 then c:=10 else c:=0;
5. If (a=1) and (b=6) then k:=k+1; z:=2; else k:=1; z:=z+2;
6. If (a=5) or (b=5) then c:=5;
7. If a≠10 then s:=sqrt(w);
8. If a≥1 then

begin   c:=4;  b:=4;   end;

else  c:=5;  b:=5; end;

9. if a>0 then

begin    c:=1; d:=1;  end 

else begin  k:=1; z:=1 end;

Оператор варианта

Оператор варианта Case является обобщением оператора if и позволяет сделать выбор из произвольного числа вариантов.

 Он состоит из  выражения, называемого селектором, и списка параметров, каждому из которых предшествует список констант выбора (список может состоять из одной константы). Как и в операторе if, здесь может присутствовать else, имеющее тот же смысл.

Формат:

Case <выражение-селектор> of

<список 1>: <оператор 1>;

<список 2>: <оператор 2>;

…

<список N>: <оператор N>

else <оператор>

end;

Селектор может иметь  любой скалярный тип, кроме вещественного. Использование строкового типа в качестве селектора запрещено. Список констант выбора может состоять из произвольного количества значений или диапазонов, отделенных друг от друга запятыми.

Тип констант в любом  случае должен совпадать с типом  селектора.

Рассмотрим примеры:

1. селектор интервального типа.

Case i of

  1..10: Memo1.Lines.Add (‘число’, I:4, ‘в диапазоне 1-10’);

  11..20: Memo1.Lines.Add (‘число’, I:4, ‘в диапазоне 11-20’);

  21..30: Memo1.Lines.Add (‘<span class="dash041e_0431_044b_0447_043d_044b_0439__C