Часть I

Дата добавления: 2014-11-28; просмотров: 1277; Нарушение авторских прав

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

2)Имеется программа program PRINT; var x: integer; begin x:=2; writeln('x+1') end. Что она напечатает: 3 или x+1? Ответ пояснить	3)Что будет напечатано программой 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? Ответ пояснить
4)Программа DEGREE печатает первые четыре степени числа е. Какие изменения (по возможности минимальные) надо внести в программу, чтобы она печатала первые четыре степени числа π?	program DEGREE; const e = 2.71828; var e2: real; begin e2:=ee;* writeln(e,e2,ee2,e2e2) end.

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

а) program A; const d = 5; begin d:=sqr(d); writeln('d2=',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(ac>b) end.*

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

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

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

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

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

<== предыдущая лекция	\|	следующая лекция ==>
Часть II	\|	Часть I