Упражнения на структуру программы.

1. Что будет напечатано программой

1. program kor (input, output);
2.   var b,c,d:real;
3. begin
4.   read(b,c);
5.   d:=sqrt(sqr(b)-4*c);
6.   writeln('x1=',(-b+d)/2,' x2=',(-b-d)/2)
7. end.

если в качестве исходных данных заданы числа 1.0 и -2.0?

2. Что будет напечатано программой

1. program less (input, output);
2.   var x:real;
3.       t:boolean;
4. begin
5.   read(x);
6.   t:=x<round(x);
7.   read(x);
8.   t:=t and (x<trunc(x));
9.   writeln(t)
10.end.

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

4. Что будет напечатано программой

1. program less;
2.   var a:integer;
3.       b:real;
4. begin
5.   read(a,b);
6.   writeln(a*b)
7. end.

если задать в качестве исходных данных числа 5.0 и 6.2?

5. Ответить на следующие вопросы:

   а) почему параметрами процедуры read могут быть только переменные, а не числа или выражения, скажем, вида x+1?

   б) в процедуре ввода указывается имя переменной, которой надо присвоить введенную величину, но не указывается, какую именно из заданных во входном файле величин надо ввести; как же становится известным, какую величину надо вводить?

  в) если в качестве исходных данных задано пять чисел, то можно ли ввести пятое из них, не вводя первые четыре?

6. Что будет напечатано программой

1. program aba (input, output);
2.   var a,b:integer;
3. begin
4.   read(a, b, a);
5.   writeln(a, b, a)
6. end.

если для ввода заданы числа 1, 2 и 3?

7. Что напечатает данная программа: 3 или x+1?

1. program печать (input, output);
2.   var x:integer;
3. begin
4.   x:=2;
5.   writeln('x+1')
6. end.

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

Нарисовать расположение чисел, напечатанных следующей последовательностью процедур:

1. write(1);
2. write(2,3);
3. writeln(4);
4. write(5,6);
5. writeln;
6. writeln(7,8)

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

 a
 ab
 abc

10. Программа печатает первые четыре степени числа e. Какие изменения (по возможности минимальные) надо ввести в программу, чтобы она печатала первые четыре степени числа ПИ?

1. program ST;
2.   const e=2.71828;
3.   var e2:real;
4. begin
5.   e2:=e*e;
6.   writeln(e,e2,e*e2,e2*e2)
7. end.

11. Составьте алгоритм и программу вычисления значений выражениях:

а) 5x+27/y/(x-3)б) (z + 12z)/zв) (17t + 28t) / (1-27t·38t)г) (x-1) + (x-4) .

12. Составьте алгоритм вычисления значений функции:

а) f(x) = ( x + 4x)/22;