Помогите
Информатика 11 класс Программирование на языке Паскаль переменная c значение переменной c язык Паскаль команды Паскаль ввод переменных вывод переменной описание переменных Арифметические операции условия Паскаль команда ветвления команда цикла произведение чисел программа на Паскаль вычисление выражений типы данных алгоритмы программирования Новый
Давайте разберем ваш запрос по частям.
1. Какое значение будет иметь переменная c после выполнения следующего кода:
Исходный код:
a := -2; b := 13; a := b + a * 3; if a
Во-первых, давайте вычислим значение переменной a:
Переменная c не объявлена и не используется в коде, поэтому она не будет иметь определенное значение. Если c не была инициализирована, то ее значение будет неопределенным.
2. Напишите команды, которые выполняют следующие действия:
а) Ввод переменных x, y:
READLN(x, y);
б) Вывод переменной z:
WRITELN(z);
в) Описать переменную a целого типа, а переменные b, c вещественного типа:
VAR a: INTEGER; b, c: REAL;
г) Увеличить переменную d на 20:
d := d + 20;
д) Переменной z присвоить сумму x и y:
z := x + y;
3. Допишите недостающие части кода для вычисления выражения w=12s+26b:
PROGRAM PR1; VAR S, B, W: REAL; BEGIN READLN(S, B); W := 12 * S + 26 * B; WRITELN(W); END.
4. Запишите на языке Паскаль следующие условия:
IF f > 105 THEN ... IF a < 184 THEN ... IF w <> 181 THEN ... IF z >= 0 THEN ... IF z <= d THEN ... IF y * x >= d + w THEN ... IF w - d < 88 THEN ... IF f > 0 THEN ...
5. Запишите на языке Паскаль команду ветвления для решения следующей задачи:
а) Если число a не равно 21, то увеличить переменную a на 28, иначе уменьшить на 51:
IF a <> 21 THEN a := a + 28 ELSE a := a - 51;
б) Увеличить переменную a в 5 раз, если a - нечетное, иначе уменьшить на 12:
IF a MOD 2 <> 0 THEN a := a * 5 ELSE a := a - 12;
6. Запишите на языке Паскаль команду цикла для решения следующей задачи:
а) Составить программу, которая вычисляет произведение первых 66 натуральных чисел (параметром цикла является переменная j, а произведение хранится в переменной p):
VAR j: INTEGER; p: INTEGER; BEGIN p := 1; FOR j := 1 TO 66 DO p := p * j; END.
б) Составить программу, которая выводит на экран 7 раз в столбик слово: trud (параметром цикла является переменная n):
VAR n: INTEGER; BEGIN FOR n := 1 TO 7 DO WRITELN('trud'); END.
Если у вас будут дополнительные вопросы или нужна помощь с другими задачами, не стесняйтесь спрашивать!