Завдання:
Скласти програму в середовищі Delphi або Lazarus, використовуючи оператор While..do, розрахувати та вивести на екран (консоль) таблицю значень аргументу та функції Y = F ( X ), якщо Х приймає значення від Хпоч до Хкін з кроком D. Значення змінних Хпоч , Хкін , крок D –задати як константи. Змінні a і b ввести з клавіатури (в консолі). Результат роботи програми--- це таблиця , 1-й стовбець якої значення Х, а другий-- відповідні значення У. Скласти звіт.
Приклад:
Розрахувати та вивести на екран (консоль) таблицю значень аргументу та функції Y = F ( х ).
y = , якщо Хпоч =0.2, Хкін = 4.2, D =0,9, a-будь-яке число

Задача: y=1+sin^2:3(корень)b^3+x^3
якщо Хпоч =1.28, Хкін = 3.28, D =0,4, b -будь-яке число.

1.

program z1;

var k: integer;

begin

write ('Введите число: ');

readln(k);

if k > 0 then k:=k*2

else k:=sqr(k);

write('Сейчас число: ',k)

end.

2.

program z2;

uses GraphABC;

var k: integer;

begin

SetFontSize(15);

write ('Введите число: ');

read(k);

write(k);

if k mod 2 = 0 then

begin

SetBrushColor(clred);

FillRectangle(220,140,420,340)

end

else

begin

SetBrushColor(clblue);

FillCircle(320,240,100)

end

end.

3.

program z3;

var k: integer;

begin

write ('Введите число: ');

readln(k);

write((k>99)and(k<1000))

end.

Объяснение:

Условный оператор:

if условие then действие 1 else действие 2

k > 0 - условие проверки числа на положительность (если число больше 0)

k mod 2 = 0 - условие проверки числа на чётность (если число делится на 2 без остатка)

mod - остаток от целочисленного деления

write((k>99)and(k<1000))  - если число трёхзначное, то ответ True, иначе False

Для ка­ко­го из приведённых чисел ис­тин­но высказывание: НЕ (число < 20) И (число нечётное)?

НЕ (число < 20) И (число нечётное)

(число > = 20) И (число нечётное)

8 - не подходит, меньше 20

15 - не подходит, меньше 20

21 - подходит

36 - не подходит, четное

ответ - 3) 21

Для ка­ко­го из приведённых чисел ложно высказывание  НЕ (число > 50) ИЛИ (число чётное)?

НЕ (число > 50) ИЛИ (число чётное)

(число = < 50) ИЛИ (число чётное)

т.к. высказывание должно быть ложным, то обе части должны быть ложны, т.е.

(число > 50) И (число нечётное)

123 - подходит

56 - не подходит, четное

9 - не подходит, меньше 50

8 - не подходит, меньше 50

ответ - 1) 123

Для ка­ко­го из приведённых имён ложно высказывание:  НЕ (Первая буква гласная) ИЛИ НЕ (Последняя буква согласная)?

НЕ (Первая буква гласная) ИЛИ НЕ (Последняя буква согласная)

(Первая буква согласная) ИЛИ (Последняя буква гласная)

т.к. высказывание должно быть ложным, то обе части должны быть обе ложными, т.е.

(Первая буква гласная) И (Последняя буква согласная)

Эдуард - подходит

Ангелина - не подходит, последняя буква гласная

Карина - не подходит, первая буква согласная

Никон - не подходит, первая буква согласная

ответ - 1) Эдуард

Для ка­ко­го из приведённых имён ложно высказывание:  НЕ ((Первая буква гласная) И (Последняя буква согласная))?

НЕ ((Первая буква гласная) И (Последняя буква согласная))

(Первая буква согласная) И (Последняя буква гласная)

т.к. высказывание должно быть ложным, то обе части должны быть обе ложными, т.е.

(Первая буква гласная) И (Последняя буква согласная)

Валентина - не подходит, первая буква согласная

Герман - не подходит, первая буква согласная

Анастасия - не подходит, последняя буква гласная

Яков - подходит

ответ - 4) Яков

Для ка­ко­го из дан­ных слов ис­тин­но высказывание:  (ударение на пер­вый слог) И НЕ (количество букв чётное)?

(ударение на пер­вый слог) И НЕ (количество букв чётное)

(ударение на пер­вый слог) И (количество букв нечётное)

корова - не подходит, ударение на второй слог

козёл - не подходит, ударение на второй слог

кошка - подходит

конь - не подходит, кол-во букв чётное

ответ - 3) кошка

Для ка­ко­го из приведённых чисел ложно высказывание: НЕ (число > 30) ИЛИ (число чётное)?

НЕ (число > 30) ИЛИ (число чётное)

(число = < 30) ИЛИ (число чётное)

т.к. высказывание должно быть ложным, то обе части должны быть обе ложными, т.е.

(число > 30) И (число нечётное)

28 - не подходит, меньше 30

34 - не подходит, чётное

17 - не подходит, меньше 30

45 - подходит

ответ - 4) 45

Для ка­ко­го из приведённых чисел ис­тин­но высказывание:  НЕ (число > 10) И (число нечётное)?

НЕ (число > 10) И (число нечётное)

(число = < 10) И (число нечётное)

22 - не подходит, больше 10

13 - не подходит, больше 10

9 - подходит

6 - не подходит, чётное

ответ - 3) 9

Для какой из пе­ре­чис­лен­ных ниже фа­ми­лий рус­ских пи­са­те­лей и поэтов ис­тин­но высказывание:  НЕ (количество глас­ных букв нечётно) И НЕ (первая буква согласная)?

НЕ (количество глас­ных букв нечётно) И НЕ (первая буква согласная)

(количество глас­ных букв чётно) И (первая буква гласная)

Есенин - не подходит, нечётно кол-во гласных

Одоевский - подходит

Толстой - не подходит, первая согласная

Фет - не подходит, первая согласная

ответ - 2) Одо­ев­ский

Для ка­ко­го из приведённых зна­че­ний числа X ложно высказывание: НЕ (X = 5) ИЛИ (X > 6)?

НЕ (X = 5) ИЛИ (X > 6)

(X <> 5) ИЛИ (X > 6)

т.к. высказывание должно быть ложным, то обе части должны быть обе ложными, т.е.

(X = 5) ИЛИ (X < 6)

4 - не подходит

5 - подходит

6 - не подходит

7 - не подходит

ответ - 2) 5

Для ка­ко­го из дан­ных слов ис­тин­но высказывание  НЕ (третья буква гласная) И (последняя согласная)?

НЕ (третья буква гласная) И (последняя согласная)

(третья буква согласная) И (последняя согласная)

слива - не подходит, третья буква гласная

инжир - подходит

ананас - не подходит, третья буква гласная

киви - не подходит, последняя буква гласная

ответ - 2) инжир