Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Задача 2. Составить программу, после выполнения которой, меньшее из двух неравных чисел будет увеличено вдвое, а большее оставлено без изменения.
|
|
Решение
Program Problem2; {Программа удвоения меньшего из двух чисел}
uses Crt;
var
a, b, c: integer;
begin
write('Введите первое число '); readln(a);
write('Введите второе число '); readln(b);
if a = b then writeln('Числа равны')
else
begin
if a < b then c: = 2*a
else c: = 2*b;
writeln('Меньшее число ', c div 2);
writeln('Удвоенное меньшее число ', c)
end
end.
Задача 3. Составить программу решения квадратного уравнения
ax2 + bx + c = 0.
Решение
Алгоритм
Начало.
Описание переменных и их типов.
2. Ввод значений коэффициентов.
3. Вычисление значения дискриминанта (d).
Если d < 0, тогда уравнение не имеет корней,
иначе,
если d = 0,
тогда уравнение имеет один корень,
вычислить значение этого корня и выдать его на экран,
иначе, уравнение имеет два корня,
вычислить их и выдать на экран.
4. Конец.
Program Problem3; { Программа решения квадратного уравнения }
uses Crt;
var
a, b, c, d, x1, x2: real;
begin
write('Введите коэффициенты уравнения ');
readln(a, b, c);
d: = b*b - 4*a*c;
if d < 0 then writeln('Уравнение не имеет корней')
else
if d=0
then
writeln('Уравнение имеет один корень ', -b/(2*a))
else
begin
x1: = (-b - sqrt(d))/(2*a);
x2: = (-b + sqrt(d))/(2*a);
write('Уравнение имеет два различных корня ');
writeln('x1 = ', x1, ' x2 = ', x2)
end
end.
Задача 4. Два прямоугольника заданы длинами сторон. Написать программу, после выполнения которой выясняется, можно ли первый прямоугольник целиком разместить во втором. (Рассмотреть только случай, когда соответствующие стороны прямоугольников параллельны.)
Решение
Program Problem4;
uses Crt;
var
a1, b1, a2, b2: real;
begin
write('Введите длину и ширину первого прямоугольника ');
readln(a1, b1);
write('Введите длину и ширину второго прямоугольника ');
readln(a2, b2);
if ((a1 < a2) and (b1 < b2)) or ((b1 < a2) and (a1 < b2))
then writeln('Первый прямоугольник размещается во втором')
else writeln('Первый прямоугольник не размещается во втором')
end.
Задача 5. Найти большее из двух введенных чисел
Решение
Program Task2_2; {Определение большего из двух чисел}
uses Crt;
var
a, b, c: integer;
begin
write('Введите первое число '); readln(a);
write('Введите второе число '); readln(b);
if a = b then writeln('Числа равны')
else if a > b then writeln('Большее число ', a)
else writeln('Большее число ', b)
end.
Задача 6. Определить модуль введенного числа
Решение
Program Task2_3; {Определение модуля числа}
uses Crt;
var
a: integer;
begin
write('Введите целое число '); readln(a);
if a > = 0 then writeln('Модуль числа ', a, ' равен ', a)
else writeln('Модуль числа ', a, ' равен ', -a)
end.