,Задачи практикума по языку Паскаль (8-11класс)
192.168.1.107
Линейные задачи
Begin1 (В №1)°. Дана сторона квадрата a. Найти его периметр P = 4·a.
Входные данные: ввести одно целое число а (1<=a<=100).
Выходные данные: вывести одно число – периметр квадрата.
var p, a: integer;
begin
read(a);
p:=4*a;
writeln(p);
end.
Begin2° (В №2). Дана сторона квадрата a. Найти его площадь S = a2.
Входные данные: ввести одно целое число а (1<=a<=100).
Выходные данные: вывести одно число – площадь квадрата.
Begin3°(В №3). Даны стороны прямоугольника a и b. Найти его площадь S = a·b и периметр P = 2·(a + b).
Входные данные: ввести два целых числа а и b (1<=a,b<=100).
Выходные данные: вывести два числа через один пробел площадь и периметр прямоугольника.
Begin4 (В №4)°. Дан диаметр окружности d. Найти длину и площадь окружности L = ·d, S=d2/4. В качестве значения использовать константу языка Паскаль pi.
Входные данные: ввести одно целое число d (1<=d<=100).
Выходные данные: вывести два числа через один пробел длину и площадь окружности
с точностью до 4 знаков в дробной части.
Begin5(В №1)°. Дана длина ребра куба a. Найти объем куба V = a3 и площадь его поверхности S = 6·a2.
Входные данные: ввести одно целое число а (1<=а<=100).
Выходные данные: вывести два числа через один пробел объем и площадь поверхности куба с точностью до 4 знаков в дробной части.
Begin6(В №2)°. Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти его объем V = a·b·c и площадь поверхности S = 2·(a·b + b·c + a·c).
Входные данные: ввести три целых числа а, b, c (1<=а, b, c<=100).
Выходные данные: вывести два числа через один пробел объем и площадь поверхности параллелепипеда с точностью до 4 знаков в дробной части.
Begin7(В №3)°. Найти длину окружности L и площадь круга S заданного радиуса R:
L = 2··R, S = ·R2. В качестве значения использовать константу языка Паскаль pi. Входные данные: ввести одно целое число R (1<=R<=100).
Выходные данные: вывести два числа через один пробел длину и площадь окружности
с точностью до 4 знаков в дробной части.
Begin8°(В №4). Даны два числа a и b. Найти их среднее арифметическое: (a + b)/2.
Входные данные: ввести два целых числа а и b (1<=a,b<=100).
Выходные данные: вывести их среднее арифметическое с точностью до 3 цифр в дробной части.
Begin9°(В №1). Даны два неотрицательных целых числа a и b. Найти их среднее геометрическое, то есть квадратный корень из их произведения: (a·b)1/2.
Входные данные: ввести два целых числа а и b (1<=a,b<=100).
Выходные данные: вывести их среднее геометрическое с точностью до 3 цифр в дробной части.
Begin10°(В №2). Даны два ненулевых числа. Найти сумму, разность, произведение и частное их квадратов.
Входные данные: ввести два целых числа а и b (1<=a,b<=100).
Выходные данные: вывести сумму, разность, произведение и частное их квадратов с точностью до 3 цифр в дробной части в разных строках.
Var a,b:real;
begin
readln(a,b);
writeln(a*a+b*b:0:3);
writeln(a*a/b/b:0:3);
Begin11°(В №3). Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей. ABS()
Sqrt( )
Входные данные: ввести два целых числа а и b (1<=a,b<=100).
Выходные данные: вывести сумму, разность, произведение и частное их модулей с точностью до 3 цифр в дробной части в разных строках.
Begin12°(В №4). Даны катеты прямоугольного треугольника a и b. Найти его гипотенузу c и периметр P: c = (a2 + b2)1/2, P = a + b + c.
Входные данные: ввести два целых числа а и b (1<=a,b<=100).
Выходные данные: вывести его гипотенузу c и периметр P с точностью до 3 цифр в дробной части в разных строках.
Begin13°(В №1). Даны два круга с общим центром и радиусами R1 и R2 (R1 > R2). Найти площади этих кругов S1 и S2, а также площадь S3 кольца, внешний радиус которого равен R1, а внутренний радиус равен R2: S1 = ·(R1)2, S2 = ·(R2)2, S3 = S1 – S2. В качестве значения использовать константу языка Паскаль pi.
Входные данные: ввести два целых числа R1 и R2 (1<=R1,R2<=100).
Выходные данные: вывести площади этих кругов S1 и S2, а также площадь S3 кольца, внешний радиус которого равен R1, а внутренний радиус равен с точностью до 3 цифр в дробной части в разных строках.
Begin14°(В №2). Дана длина L окружности. Найти ее радиус R и площадь S круга, ограниченного этой окружностью, учитывая, что L = 2··R, S = ·R2. В качестве значения использовать константу языка Паскаль pi.
Входные данные: ввести одно целое число L (1<=L<=100).
Выходные данные: вывести два числа через один пробел радиус и площадь круга с точностью до 4 знаков в дробной части.
Begin15°(В №3). Дана площадь S круга. Найти его диаметр D и длину L окружности, ограничивающей этот круг, учитывая, что L = 2··R, S = ·R2. В качестве значения использовать константу языка Паскаль pi.
Входные данные: ввести одно целое число S (1<=S<=100).
Выходные данные: вывести два числа через один пробел диаметр и длину окружности с точностью до 4 знаков в дробной части.
Begin16°(В №4). Найти расстояние между двумя точками с заданными координатами x1 и x2 на числовой оси: |x2 – x1|.
Входные данные: ввести два целых числа x1, x2 (-100<=x1, x2<=100).
Выходные данные: вывести расстояние между двумя точками с заданными координатами x1 и x2 на числовой оси.
Begin17°(В №1). Даны три точки A, B, C на числовой оси. Найти длины отрезков AC и BC и их сумму.
Входные данные: ввести три целых числа А, B,C (-100<=A,B,C<=100).
Выходные данные: вывести длины отрезков AC и BC и их сумму через один пробел.
Begin18°(В №2). Даны три точки A, B, C на числовой оси. Точка C расположена между точками A и B. Найти произведение длин отрезков AC и BC.
Входные данные: ввести три целых числа А, B,C (-100<=A,B,C<=100).
Выходные данные: вывести произведение длин отрезков AC и BC.
Begin19°(В №3). Даны координаты двух противоположных вершин прямоугольника: (x1, y1), (x2, y2). Стороны прямоугольника параллельны осям координат. Найти периметр и площадь данного прямоугольника.
Входные данные: ввести четыре целых числа координаты двух противоположных вершин прямоугольника: (x1, y1), (x2, y2). (-100<=x1,y1,x2,y2<=100).
Выходные данные: вывести в одной строке через один пробел периметр и площадь данного прямоугольника.
Begin20°(В №4). Найти расстояние между двумя точками с заданными координатами (x1, y1) и (x2, y2) на плоскости. Расстояние вычисляется по формуле ((x2 – x1)2 + (y2 – y1)2)1/2. Входные данные: ввести четыре целых числа координаты двух точек на плоскости: (x1, y1), (x2, y2). (-100<=x1,y1,x2,y2<=100).
Выходные данные: вывести расстояние между двумя точками с заданными координатами с точностью до 5 знаков в дробной части.
Begin21°(В №1). Даны координаты трех вершин треугольника: (x1, y1), (x2, y2), (x3, y3). Найти его периметр и площадь, используя формулу для расстояния между двумя точками на плоскости (см. задание Begin20). Для нахождения площади треугольника со сторонами a, b, c использовать формулу Герона: S = (p·(p – a)·(p – b)·(p – c))1/2, где p = (a + b + c)/2 — полупериметр.
Входные данные: ввести координаты трех точек на плоскости: (x1, y1), (x2, y2), (x3, y3). (-10<=x1,y1,x2,y2,x3,y3<=10).
Выходные данные: вывести периметр и площадь треугольника с точностью до 3 знаков в дробной части.
Begin22°(В №2). Поменять местами содержимое переменных A и B и вывести новые значения A и B.
Входные данные: ввести два целых числа А, B (-100<=A,B<=100).
Выходные данные: вывести новые значения A и B.
Begin23°(В №3). Даны переменные A, B, C. Изменить их значения, переместив содержимое A в B, B — в C, C — в A, и вывести новые значения переменных A, B, C.
Входные данные: ввести три целых числа А, B,C (-100<=A,B,C<=100).
Выходные данные: вывести новые значения переменных A, B, C.
Begin24°(В №4). Даны переменные A, B, C. Изменить их значения, переместив содержимое A в C, C — в B, B — в A, и вывести новые значения переменных A, B, C.
Входные данные: ввести три целых числа А, B,C (-100<=A,B,C<=100).
Выходные данные: вывести новые значения переменных A, B, C.
Begin25°(В №1). Найти значение функции y = 3x6 – 6x2 – 7 при данном значении x.
Входные данные: ввести одно целое число x (-10<=x<=10).
Выходные данные: вывести значение y.
Begin26°(В №2). Найти значение функции y = 4(x–3)6 – 7(x–3)3 + 2 при данном значении x. Входные данные: ввести одно целое число x (-10<=x<=10).
Выходные данные: вывести значение y.
Begin27°(В №3). Дано число A. Вычислить A8, используя вспомогательную переменную и три операции умножения. Для этого последовательно находить A2, A4, A8. Вывести все найденные степени числа A.
Входные данные: ввести одно любое число A (1<=x<=5).
Выходные данные: вывести все найденные степени числа A с точностью до 4 цифр в дробной части.
Begin28°(В №4). Дано число A. Вычислить A15, используя две вспомогательные переменные и пять операций умножения. Для этого последовательно находить A2, A3, A5, A10, A15. Вывести все найденные степени числа A.
Входные данные: ввести одно любое число A (1<=x<=3).
Выходные данные: вывести все найденные степени числа A с точностью до 4 цифр в дробной части.
Begin29°(В №1). Дано значение угла в градусах (0 < < 360). Определить значение этого же угла в радианах, учитывая, что 180° = радианов. В качестве значения использовать константу языка Паскаль pi.
Входные данные: ввести одно целое число (0<=<=360).
Выходные данные: вывести значение угла в радианах с точностью до 4 цифр в дробной части.
Begin30°(В №2). Дано значение угла в радианах (0 < < 2·). Определить значение этого же угла в градусах, учитывая, что 180° = радианов. В качестве значения использовать константу языка Паскаль pi.
Входные данные: ввести одно любое число (0<=<=2*).
Выходные данные: вывести значение угла в в градусах с точностью до 4 цифр в дробной части.
Begin31°(В №3). Дано значение температуры T в градусах Фаренгейта. Определить значение этой же температуры в градусах Цельсия. Температура по Цельсию TC и температура по Фаренгейту TF связаны следующим соотношением: TC = (TF – 32)·5/9.
Входные данные: ввести одно любое число Т (0<=Т<=200).
Выходные данные: вывести значение этой же температуры в градусах Цельсия с точностью до 4 цифр в дробной части.
Begin32°(В №4). Дано значение температуры T в градусах Цельсия. Определить значение этой же температуры в градусах Фаренгейта. Температура по Цельсию TC и температура по Фаренгейту TF связаны следующим соотношением: TC = (TF – 32)·5/9.
Входные данные: ввести одно любое число Т (0<=Т<=100).
Выходные данные: вывести значение этой же температуры в градусах Фаренгейта с точностью до 4 цифр в дробной части
Begin33°(В №1). Известно, что X кг конфет стоит A рублей. Определить, сколько стоит 1 кг и Y кг этих же конфет.
Входные данные: ввести три любых числа X, A,Y (1<=X, A,Y<=100).
Выходные данные: вывести одно число стоимость 1 кг и Y кг этих же конфет с точностью до 4 цифр в дробной части
Begin34°(В №2). Известно, что X кг шоколадных конфет стоит A рублей, а Y кг ирисок стоит B рублей. Определить, сколько стоит 1 кг шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок.
Входные данные: ввести три любых числа X, A,Y, B (1<=X, A,Y, B<=100).
Выходные данные: вывести в первой строке стоимость 1 кг шоколадных конфет, во второй строке стоимость 1 кг ирисок, в третьей строке число, показывающее во сколько раз шоколадные конфеты дороже ирисок. (Ответ выводить с точностью до 5 цифр в дробной части).
Begin35°(В №3). Скорость лодки в стоячей воде V км/ч, скорость течения реки U км/ч (U < V). Время движения лодки по озеру T1 ч, а по реке (против течения) — T2 ч. Определить путь S, пройденный лодкой (путь = время · скорость). Учесть, что при движении против течения скорость лодки уменьшается на величину скорости течения.
Входные данные: ввести четыре любых числа V, U,T1,T2 (1<= V, U,T1,T2<=100).
Выходные данные: вывести путь, пройденный лодкой с точностью до 4 цифр в дробной части.
Begin36°(В №4). Скорость первого автомобиля V1 км/ч, второго — V2 км/ч, расстояние между ними S км. Определить расстояние между ними через T часов, если автомобили удаляются друг от друга. Данное расстояние равно сумме начального расстояния и общего пути, проделанного автомобилями; общий путь = время · суммарная скорость.
Входные данные: ввести четыре любых числа V1, V2, S, T (1<= V1, V2, S, T <=100).
Выходные данные: вывести расстояние между автобусами через Т часов с точностью до 4 цифр в дробной части.
Begin37°(В №1). Скорость первого автомобиля V1 км/ч, второго — V2 км/ч, расстояние между ними S км. Определить расстояние между ними через T часов, если автомобили первоначально движутся навстречу друг другу. Данное расстояние равно модулю разности начального расстояния и общего пути, проделанного автомобилями; общий путь = время · суммарная скорость.
Входные данные: ввести четыре любых числа V1, V2, S, T (1<= V1, V2, S, T <=100).
Выходные данные: вывести расстояние между автобусами через Т часов с точностью до 4 цифр в дробной части.
Begin38°(В №2). Решить линейное уравнение A·x + B = 0, заданное своими коэффициентами A и B (коэффициент A не равен 0).
Входные данные: ввести два любых числа A,B (-100<= A,B <=100).
Выходные данные: вывести одно число – корень уравнения с точностью до 4 цифр в дробной части.
Begin39°(В №3). Найти корни квадратного уравнения A·x2 + B·x + C = 0, заданного своими коэффициентами A, B, C (коэффициент A не равен 0), если известно, что дискриминант уравнения положителен. Вывести вначале меньший, а затем больший из найденных корней. Корни квадратного уравнения находятся по формуле
x1, 2 = (–B ± (D)1/2)/(2·A),
где D — дискриминант, равный B2 – 4·A·C.
Входные данные: ввести три любых числа A, B,С (-10<= A,B,C <=10).
Выходные данные: вывести вначале меньший, а затем в новой строке больший из найденных корней с точностью до 4 цифр в дробной части.
Begin40°(В №4). Найти решение системы линейных уравнений вида
A1·x + B1·y = C1, A2·x + B2·y = C2,
заданной своими коэффициентами A1, B1, C1, A2, B2, C2, если известно, что данная система имеет единственное решение. Воспользоваться формулами
x = (C1·B2 – C2·B1)/D, y = (A1·C2 – A2·C1)/D, где D = A1·B2 – A2·B1.
Входные данные: ввести шесть любых чисел A1, B1,С1, A2, B2, С2 (-10<= A1, B1,С1, A2, B2, С2 <=10).
Выходные данные: вывести в первой строке значение х, а во второй строке y с точностью до 4 цифр в дробной части.