Задать вопрос
29 октября, 23:15

Хотя бы что-нибудь!

Помогите решить задачи в паскале!

Составить программу для:

1) Решения линейного уравнения ах + в = 0 (а, в ≠ 0).

2) Найти площадь кольца по заданным внешнему и внутреннему радиусам

3) Даны катеты прямоугольного треугольника, Найти его площадь и периметр

4) Даны два числа. Найти среднее арифметическое их модулей

5) Даны координаты двух точек на плоскости. Вычислить расстояние между ними

6) Даны два основания и высота прямоугольной трапеции. Найти ее площадь и периметр

7) Найдите разность между трехзначным числом и произведением его цифр

+4
Ответы (1)
  1. 30 октября, 03:01
    -1
    1) var a, b, x:real;

    begin

    write ('введите числа а и b: ') ; readln (a, b) ;

    x:=-b/a;

    writeln ('x = ', x) ;

    end.

    2) var r1, r2, s:real;

    begin

    write ('введите размеры внешнего и внутреннего радиусов: ') ; read (r1, r2) ;

    s:=pi*r1*r1-pi*r2*r2;

    write ('Площадь кольца = ', s) ;

    end.

    3) var a, b, c, s, p:real;

    begin

    write ('введите длины катетов: ') ; read (a, b) ;

    s:=a*b/2;

    c:=sqrt (a*a+b*b) ;

    p:=a+b+c;

    write ('Площадь треугольника = ', s) ;

    write ('Периметр треугольника = ', p) ;

    end.

    4) var a, b, sr:real;

    begin

    write ('введите числа а и b: ') ; readln (a, b) ;

    sr: = (abs (a) + abs (b)) / 2;

    writeln ('среднее арифметическое модулей = ', sr) ;

    end.

    5) var x1, y1, x2, y2, r:real;

    begin

    write ('введите координаты точек: ') ; readln (x1, y1, x2, y2) ;

    r:=sqrt (sqr (x2-x1) + sqr (y2-y1)) ;

    writeln ('расстояние = ', r) ;

    end.

    6) var a, b, h, s, p:real;

    begin

    write ('введите длины оснований и высоту трапеции: ') ; readln (a, b, h) ;

    s: = (a+b) * h/2;

    p:=a+b+h+sqrt (sqr (abs (a-b)) + h*h) ;

    write ('Площадь трапеции = ', s) ;

    write ('Периметр трапеции = ', p) ;

    end.

    7) var a, e, d, s, p:integer;

    begin

    write ('введите трехзначное число: ') ; readln (a) ;

    e:=a mod 10; s:=a div 100;

    d: = (a div 10) mod 10; p:=e*d*s;

    write ('разность между трехзначным числом и его произведением = ', a-p) ;

    end.

    к твоему комментарию

    var x, s, m, c: integer;

    begin

    write ('введите количество секунд: ') ; readln (x) ;

    c:=x div 3600;

    m: = (x mod 3600) div 60;

    s: = (x mod 3600) mod 60;

    writeln ('прошло ', c,' часов ', m,' минут ', s,' секунд ') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Хотя бы что-нибудь! Помогите решить задачи в паскале! Составить программу для: 1) Решения линейного уравнения ах + в = 0 (а, в ≠ 0). 2) ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Дано натуральное число: определить а) количество цифр в нем б) сумму его цифр в) произведение его цифр г) среднее арифметическое его цифр д) сумму квадратов его цифр е) сумму кубов его цифр ж) его первую цифру з) сумму его первой и последней цифр
Ответы (1)
Помогите составить программу на языке С! С клавиатуры вводится целое число. Определить кол-во цифр в нем, сумму его цифр, произведение его цифр, среднее арифметическое его цифр, сумму квадратов его цифр, сумму кубов его цифр.
Ответы (1)
Ввести с клавиатуры координаты двух точек а и в на плоскости вещественный числа вычислить длину. программу нужно написать в паскале пример, как должно получиться введите координаты точки а 5.5 3.5 введите координаты точки b 1.5 2 длинна отрезка ab=4.
Ответы (1)
Укажите виды циклов А) с заданным условием продолжения работы Б) с полным ветвлением В) с заданным числом повторений Г) с заданным условием окончания работы Д) разветвляющийся
Ответы (1)
Составьте программу (на паскале), вычисляющую площадь S прямоугольного треугольника по заданным длинам двух катетов a, b. Вывод на экран оформить следующим образом: введите два катета в см: 13.5 17.2 площадь прямоугольного треугольника равна 116.
Ответы (1)