Что будет выведено на экран в результате работы программы? ( программу нужно проделать вручную, не набирая ее текст в Паскале)
| 1var
a, b: char;
z: real;
c: boolean;
begin
a: = ‘? ’;
b: = ‘8’;
z: = -38.7;
c: = true;
Writeln(a, a, b, b);
Writeln(a, a: 2, b: 2);
Writeln(z, z, z: 7: 3);
Writeln(c, ‘=’, not(c): 6);
Writeln(‘a =’, a: 3, a);
end.
| 2var
a, b: char;
z: boolean;
f: integer;
begin
a: = ‘z’;
b: = ‘r’;
z: = false;
f: = 138;
Writeln(a, b, f, z);
Writeln(a, b: 4);
Writeln(f, f, f);
Writeln(f=138, not(z));
end.
| 3var
j: integer;
f, z: boolean;
begin
j: = 168;
f: = true;
z: = false;
Writeln(z, not(f));
Writeln(j=168);
Writeln(j, j);
Writeln(j, j: 5);
end.
| | 4 var
x, y: char;
c: boolean;
begin
x: = ‘*’;
y: = ‘z’;
c: = false;
Writeln(c, not(c)=not(c));
Writeln(x=y);
Writeln(‘z’, ‘=’, x: 2);
end.
| 5 var
g, f: boolean;
j: char;
begin
g: = true;
f: = false;
j: = ‘f’;
Writeln(j, f);
Writeln(f=not(g));
Writeln(j, j, j);
Writeln(j, j: 3, j: 2);
end.
| 6 var
a, b: char;
z: real;
c: boolean;
begin
a: = ‘? ’;
b: = ‘8’;
z: = -38.7;
c: = true;
Writeln(a, a, b, b);
Writeln(a, a: 2, b: 2);
Writeln(z, z, z: 7: 3);
Writeln(c, ‘=’, not(c): 6);
Writeln(‘a =’, a: 3, a);
end.
| | 7 var
a, b: char;
i, j: integer;
begin
a: = ‘b’;
b: = ‘a’;
i: = 100;
j: = 99;
Writeln(‘b’, a, a, b);
Writeln(j+1, i);
Writeln(i-1=j);
Writeln(a, i: 4, ‘b’, ‘=’, j);
end.
| 8 var
a, b: boolean;
i, j: integer;
begin
a: = true;
b: = true;
i: = 115;
j: = 551;
Writeln(not(a): 8, b);
Writeln(i=j);
Writeln(i, j, i);
Writeln(i: 4, j: 4);
end.
| 9 var
g, f: boolean;
j: char;
begin
g: = true;
f: = false;
j: = ‘f’;
Writeln(j, f);
Writeln(f=not(g));
Writeln(j, j, j);
Writeln(j, j: 3, j: 2);
end.
| | 10 var
x, y: char;
a: boolean;
begin
x: = ‘? ’;
y: = ‘z’;
a: = false;
Writeln(x, x, x, x);
Writeln(x, x: 2, x: 3, x);
Writeln(not(a): 5);
end.
| 11 var
f: char;
i: integer;
m: boolean;
begin
f: = ‘i’;
i: = 100;
m: = false;
Writeln(f, i);
Writeln(f: 4, i: 4);
Writeln(m=m, not(m));
Writeln(i+1, f);
End.
| 12 var
a, b: char;
z: boolean;
f: integer;
begin
a: = ‘z’;
b: = ‘r’;
z: = false;
f: = 138;
Writeln(a, b, f, z);
Writeln(a, b: 4);
Writeln(f, f, f);
Writeln(f=138, not(z));
end.
| | 13 var
a, b: char;
z: real;
c: boolean;
begin
a: = ‘? ’;
b: = ‘8’;
z: = -38.7;
c: = true;
Writeln(a, a, b, b);
Writeln(a, a: 2, b: 2);
Writeln(z, z, z: 7: 3);
Writeln(c, ‘=’, not(c): 6);
Writeln(‘a =’, a: 3, a);
end.
| 14 var
x, y: byte;
a, b: boolean;
c: char;
begin
x: = 18;
y: = 1;
a: = true;
b: = true;
c: = ‘x’;
Writeln(x, y, x+y);
Writeln(not(a), b: 6);
Writeln(c, ‘=’, c: 5);
end.
| 15 var
x, y: byte;
a, b: boolean;
c: char;
begin
x: = 5;
y: = 18;
a: = true;
b: = true;
c: = ‘x’;
Writeln(abs(10-15)=5);
Writeln(x, x, x: 4, X: 2);
Writeln(not(a), b: 5);
end.
|
Задание 2.
Напишите программу для расчета значения функции по формуле. Отсутствующие в языке функции выразите через имеющиеся.
| №
| Условие задачи
| |
|  x> 0, y> 0 вводятся с клавиатуры.
| |
|  , x> 0, y> 0 вводятся с клавиатуры.
| |
|  , x, y, z вводятся с клавиатуры.
| |
|  , x> 0, y> 0 вводятся с клавиатуры.
| |
|  , x> 0, y> 0 вводятся с клавиатуры.
| |
| ,
| |
|  , x> 0, y> 0 вводятся с клавиатуры.
| |
|  , x, y вводятся с клавиатуры.
| |
|  , x> 0, a> 0 вводятся с клавиатуры.
| |
|  , x, y, z вводятся с клавиатуры.
| |
| , x, y, z> 0 вводятся с клавиатуры.
| |
|  , x> 0, y> 0 вводятся с клавиатуры.
| |
|  , x> 0, y> 0 вводятся с клавиатуры.
| |
|  x> 0, y> 0 вводятся с клавиатуры.
| |
|  , x> 0, y> 0 вводятся с клавиатуры.
|
Задание 3.
Напишите программу для решения геометрической задачи.
| №
| Условие задачи
| |
| Дана площадь круга. Найти длину окружности, ограничивающей этот круг. В качестве значения Pi использовать 3.14.
| |
| Треугольник задан своими координатами своих вершин. Вычислить длины сторон треугольника.
| |
| Вычислить объем и площадь боковой поверхности правильной треугольной пирамиды со стороной равной а..
| |
| Дана длина окружности. Найти площадь круга, ограниченного этой окружностью. В качестве значения Pi использовать 3.14.
| |
| Треугольник задан величинами своих углов и радиусом описанной окружности. Найдите стороны треугольника.
| |
| Треугольник задан длинами сторон a, b, c. Найдите длины высоты, медианы и биссектрисы этого треугольника, опущенные на сторону а.
| |
| Введите положительное число а. Вычислите площадь квадрата со стороной а, площадь равностороннего треугольника со стороной а, площадь круга, радиус которого равен а.
| |
| Вычислите длину окружности, площадь круга, объем шара заданного радиуса
| |
| Даны координаты вершин некоторого треугольника. Вычислите его периметр.
| |
| Найти площадь кольца, внутренний радиус которого равен R1, а внешний радиус равен R2 (R1 < R2). В качестве значения Pi использовать 3.14.
| |
| Найти периметр и площадь прямоугольного треугольника, если даны длины его катетов a и b.
| |
| Дан цилиндр, с заданным радиусом основания r и высотой h. Найти объем цилиндра
| |
| Вычислить площадь треугольника со сторонами а, в, с по формуле Герона.
| |
| Треугольник задан тремя сторонами a, b, c. Вычислить его площадь и периметр.
| |
| Даны стороны прямоугольник a и b. Найти его площадь S и периметр P.
|
Краткие теоретические сведения
Популярное: - COM-серверы, какие они бывают и о том, что дал нам Microsoft, чтобы управлять ими
- II. Какой из представленных на рисунке автомобилей будет относиться к колёсной формуле «4 Х 4»?
- II. Психологические и космологические предпосылки к тексту
- III. Прочтите и устно переведите следующий текст. Перепишите
- IV. О ТОМ, ЧТО ТАКОЕ ИСТИННАЯ СВОБОДА
- S: Что такое секуляризация общества?
- V. Найдите в тексте эквиваленты к следующим терминам
- А что произойдет с наибольшей долей вероятности?
- А что сейчас не тот террорист пошёл? Рожей не вышел? Гойская?
- А чтобы быть достойным моря,
- Автор наконец-то объясняет, почему интервью – понятие философское, и советует, как вести беседу, чтобы открыть для себя другого человека
- Автор поет гимн уточняющим вопросам, а также рассказывает о том, что делать, если собеседник недоговаривает или даже врет
|
