Базовые элементы и структура языка ТР . Упражнения.
№1.Вычислить:
1) truns(6.9); 2) round(6.9); 3) truns(6.2); 4) round(6.2);
5) round(-1.8); 6)round(0.5); 7) truns(0.5); 8) 20 div 6;
9) 20 div 4; 10) 20 mod 4; 11) 2 div 5; 12) 2 mod 5;
13) 3 mod 3; 14) int(1.3); 15) frac(1.3); 16) int(3.8);
17) truns(-1.8); 18) 20 mod 6; 19) 123 div 0; 20) frac(3.8).
В каком случае результатом будет переменная вещественного типа, а в каком-переменная целого типа?
№2.Объяснить :
Что будет напечатано программой
Program e1;
Var b,c,d:real;
Begin
Read(b,c);d:=sqrt(sqr(b)-4*c);
Writeln(x1=’,(-b+d)/2,’x2=’, (-b+d)/2);
End.
если в качестве исходных данных заданы числа:а) 2.0 и 0; б) 2.0 и 1.0?
Что будет напечатано программой
Program e2;
Var x:real;
t: Boolean;
begin
read(x);t:=x read(x);t:=t and (x writeln(t);
end.
Если в качестве исходных данных заданы числа:а) 3.9 и 1; б) 3.4 и 1 ?
Можно ли для программы
Programe3;
var b: real;
a: integer;
begin
read (a,b);writeln(a*b);
end.
задать в качестве исходных данных числа: а) 5.0 и 6.2 ; б) 33 000 и 3 ?
Что будет напечатано программой
Program e4;
Var a,b: integer;
begin
read(a,b);writeln(a,b,a);
end.
если в качестве исходных данных заданы числа 2 и 0 ?
Что будет напечатано программой
program e5;
var x: integer;
begin
read(x); writeln(x+1’);
end.
если в качестве исходных данных задано число: а) 12; б) –89 ?
Указать расположение чисел, напечатанных следующей последовательностью процедур:
Write(1);write(2,3);writeln(4);write(5,6);writeln; writeln(7,8).
Найти и объяснить ошибки в каждой из следующих программ:
program e7; b) program e8;
const d=5; const
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
Что будет напечатано программой, если для ввода было задано число 31.7:
Program e13;
Var fi: real;
h,m: integer;
begin
read(fi);h:=truns(fi/30);m:=truns(fi-30*h)/0.5;
writeln(h,’ ,m);
end.
Программа
Program e14;
const e=2.71828;
var e2:real;
begin
e2:=sqr(e);writeln(e,e2,e*e2,e2*e2);.
end.
Печатает первые четыре степени числа e.Какие минимальные изменения надо внести в программу, чтобы она печатала первые четыре степени числа 13 EMBED Equation.3 141513 EMBED Equation.3 1415
№3.Написать программу, которая вычисляет значение выражения (для вывода результата использовать различные параметры формата вывода):
1) 13 EMBED Equation.3 1415; 2)1+13 EMBED Equation.3 1415+|13 EMBED Equation.3 1415|+13 EMBED Equation.3 1415; 3) 13 EMBED Equation.3 1415;
13 EMBED
·
·
·
·
·
·
·
·–
·
·
·
·
·
·
·
·
·
·–
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·–
·
·
·
·
·
·
·
·
·
·–
·
·
·
·
·
·
·
·
·
·
·–
·
·
·
·
·
·
·
·
·
·
·–
·
·
·
·
·
·
·
·
·
·
·–
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·–
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·–
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·–
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·ation.3 1415
№4.Написать программу, которая подсчитывает:
периметр квадрата, площадь которого равна а;
площадь равностороннего треугольника, периметр которого равен p;
расстояние между точками с координатами a,b,c,d;
среднее арифметическое кубов двух данных чисел;
среднее геометрическое модулей двух данных чисел;
гипотенузу прямоугольного треугольника по двум данным катетам a,b;
площадь прямоугольного треугольника по двум катетам a,b;
периметр прямоугольного треугольника по двум катетам a,b;
площадь полной поверхности куба с ребром а;
объём куба с ребром а;
париметр треугольника, заданного координатами вершин (x1,y1),(x2,y2),(x3,y3);
площадь треугольника, заданного координатами вершин (x1,y1), (x2,y2),(x3,y3);
длину окружности и площадь круга с радиусом r;
площадь грани и площадь полной поверхности куба с ребром a;
объём куба с ребром а;
площадь равнобедренной трапеции с основаниями a и b и углом 13 EMBED Equation.3 1415 при большем основании;
площадь кольца с внутренним радиусом r1 и внешним r2;
радиус окружности, вписанной в равносторонний треугольник со стороной a;
радиус окружности, описанной около равностороннего треугольника со стороной а;
Найти сумму членов арифметической прогрессии, если известен её первый член, разность и число членов прогрессии.
Root EntryEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation Native
№1.Вычислить:
1) truns(6.9); 2) round(6.9); 3) truns(6.2); 4) round(6.2);
5) round(-1.8); 6)round(0.5); 7) truns(0.5); 8) 20 div 6;
9) 20 div 4; 10) 20 mod 4; 11) 2 div 5; 12) 2 mod 5;
13) 3 mod 3; 14) int(1.3); 15) frac(1.3); 16) int(3.8);
17) truns(-1.8); 18) 20 mod 6; 19) 123 div 0; 20) frac(3.8).
В каком случае результатом будет переменная вещественного типа, а в каком-переменная целого типа?
№2.Объяснить :
Что будет напечатано программой
Program e1;
Var b,c,d:real;
Begin
Read(b,c);d:=sqrt(sqr(b)-4*c);
Writeln(x1=’,(-b+d)/2,’x2=’, (-b+d)/2);
End.
если в качестве исходных данных заданы числа:а) 2.0 и 0; б) 2.0 и 1.0?
Что будет напечатано программой
Program e2;
Var x:real;
t: Boolean;
begin
read(x);t:=x
end.
Если в качестве исходных данных заданы числа:а) 3.9 и 1; б) 3.4 и 1 ?
Можно ли для программы
Programe3;
var b: real;
a: integer;
begin
read (a,b);writeln(a*b);
end.
задать в качестве исходных данных числа: а) 5.0 и 6.2 ; б) 33 000 и 3 ?
Что будет напечатано программой
Program e4;
Var a,b: integer;
begin
read(a,b);writeln(a,b,a);
end.
если в качестве исходных данных заданы числа 2 и 0 ?
Что будет напечатано программой
program e5;
var x: integer;
begin
read(x); writeln(x+1’);
end.
если в качестве исходных данных задано число: а) 12; б) –89 ?
Указать расположение чисел, напечатанных следующей последовательностью процедур:
Write(1);write(2,3);writeln(4);write(5,6);writeln; writeln(7,8).
Найти и объяснить ошибки в каждой из следующих программ:
program e7; b) program e8;
const d=5; const
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
Что будет напечатано программой, если для ввода было задано число 31.7:
Program e13;
Var fi: real;
h,m: integer;
begin
read(fi);h:=truns(fi/30);m:=truns(fi-30*h)/0.5;
writeln(h,’ ,m);
end.
Программа
Program e14;
const e=2.71828;
var e2:real;
begin
e2:=sqr(e);writeln(e,e2,e*e2,e2*e2);.
end.
Печатает первые четыре степени числа e.Какие минимальные изменения надо внести в программу, чтобы она печатала первые четыре степени числа 13 EMBED Equation.3 141513 EMBED Equation.3 1415
№3.Написать программу, которая вычисляет значение выражения (для вывода результата использовать различные параметры формата вывода):
1) 13 EMBED Equation.3 1415; 2)1+13 EMBED Equation.3 1415+|13 EMBED Equation.3 1415|+13 EMBED Equation.3 1415; 3) 13 EMBED Equation.3 1415;
13 EMBED
·
·
·
·
·
·
·
·–
·
·
·
·
·
·
·
·
·
·–
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·–
·
·
·
·
·
·
·
·
·
·–
·
·
·
·
·
·
·
·
·
·
·–
·
·
·
·
·
·
·
·
·
·
·–
·
·
·
·
·
·
·
·
·
·
·–
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·–
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·–
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·–
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·ation.3 1415
№4.Написать программу, которая подсчитывает:
периметр квадрата, площадь которого равна а;
площадь равностороннего треугольника, периметр которого равен p;
расстояние между точками с координатами a,b,c,d;
среднее арифметическое кубов двух данных чисел;
среднее геометрическое модулей двух данных чисел;
гипотенузу прямоугольного треугольника по двум данным катетам a,b;
площадь прямоугольного треугольника по двум катетам a,b;
периметр прямоугольного треугольника по двум катетам a,b;
площадь полной поверхности куба с ребром а;
объём куба с ребром а;
париметр треугольника, заданного координатами вершин (x1,y1),(x2,y2),(x3,y3);
площадь треугольника, заданного координатами вершин (x1,y1), (x2,y2),(x3,y3);
длину окружности и площадь круга с радиусом r;
площадь грани и площадь полной поверхности куба с ребром a;
объём куба с ребром а;
площадь равнобедренной трапеции с основаниями a и b и углом 13 EMBED Equation.3 1415 при большем основании;
площадь кольца с внутренним радиусом r1 и внешним r2;
радиус окружности, вписанной в равносторонний треугольник со стороной a;
радиус окружности, описанной около равностороннего треугольника со стороной а;
Найти сумму членов арифметической прогрессии, если известен её первый член, разность и число членов прогрессии.
Root EntryEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation NativeEquation Native