5. Простейшие программы Часть I

1. Когда процедура вывода writeln(x1,...,xn) осуществляет перевод строки: до печати первого параметра (x1) или после печати последнего (xn)?

   Имеется программа program PRINT; var x: integer; begin x:=2; writeln('x+1') end. Что она напечатает: 3 или x+1? Ответ пояснить	Что будет напечатано программой program less; var x: real; t: boolean; begin read(x); t:=x<round(x); read(x); t:=t and (x<trunc(x)); writeln(t) end. если для ввода заданы числа 1.5 и -0.8? Ответ пояснить
   Программа DEGREE печатает первые четыре степени числа е. Какие изменения (по возможности минимальные) надо внести в программу, чтобы она печатала первые четыре степени числа π?		program DEGREE; const e = 2.71828; var e2: real; begin e2:=e*e; writeln(e,e2,e*e2,e2*e2) end.

2. Найти ошибки в каждой из следующих программ:

   а) program A; const d = 5; begin d:=sqr(d); writeln('d**2=',d) end.	b) program B; var a, b, c: integer; begin read(a,b); writeln((a+b+c)/3) end.
   c) program C; const k = true; var x: real; begin read(x); writeln(ord(x)=k) end.	d) program D; var x: real; begin read(x); y:=sqrt(x)+1; writeln(y) end.
   e) program E; const B=2.5; var a, b, c: real; begin read(a,c); writeln(a*c>b) end.

3. Написать программу для вычисления периметра и площади прямоугольного треугольника по длинам двух катетов.

4. Написать программу, которая печатает true или false в зависимости от того, имеют три заданных целых числа одинаковую четность или нет.

5. Написать программы для решения следующих задач:

1. найти произведение цифр заданного четырехзначного числа;

2. определить число, полученное выписыванием в обратном порядке цифр заданного трехзначного числа.

Часть II

Что будет напечатано программой: program aba; var a, b: integer; begin read(a,b,a); writeln(a,b,a) end. если для ввода заданы числа 1, 2 и 3?

Что будет напечатано следующей программой, если для ввода было задано число 31.7? program time;var fi:real;h,m:integer;begin read (fi);h:=trunc(fi/30);m:=trunc( (fi-30*h)/0.5);writeln(h,' ',m )end. Записать текст этой программы в более наглядной форме.

3. Написать программу, которая для заданного целого числа а печатает следующую таблицу значений:

a

a³ a⁶

a³ a⁶ a

4. Написать программу, которая вычисляет и печатает коэффициенты приведенного квадратного уравнения, корнями которого являются введенные пользователем два вещественных числа (для справки: b=-x1-x2; c=x1*x2).

5. Написать программу, которая определяет, есть ли среди первых трех цифр из дробной части заданного вещественного числа цифра 0.