1. Информатика
  2. Написать программу паскаль,

Написать программу паскаль, для решения уравнения a*x+b=0 . коэффициенты a и b вводятся пользователем во время работы программы. в программе необходимо предусмотреть проверку коэффициентов a и b.

artembebko666 artembebko666    1   02.12.2019 22:38    4

Ответы
AjdanaLife AjdanaLife  10.10.2020 18:02

PascalABC.NET

begin

 var (a, b) := ReadReal2('Введите значения a и b:');

 if a = 0 then

   if b = 0 then

     Println('Решений бесконечно много')

   else

     Println('Решений нет')

 else

   Println('x =', -b / a)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
катя46737889 катя46737889  15.06.2019 21:00
Клава открыла несколько папок и расположила их окна каскадом за какое минимальеое количество кликов по значкам папок в панели клава сможет расположить эти окна по алфавиту так...
диана128 диана128  17.03.2020 22:40
Решить на питон! Бригада скорой выехала по вызову в один из отделенных районов. К сожалению, когда диспетчер получил вызов, он успел записать только адрес дома и номер квартиры...
the1rgn the1rgn  17.03.2020 22:40
6. Змішуванням яких кольорів створюється зображення на екрані монітора або телевізора? (декілька варіантів відповіді) * ЖовтогоЧервоногоЗеленогоСинього​...
ыфыфыф553 ыфыфыф553  17.03.2020 22:38
по информатике 7 класс! Задание 4.12 Варианты форматирования символов 1) В текстовом процессоре откройте файл Эффекты.rtf 2) Измените формат символов по образцу Имеется много...
vikbyk vikbyk  17.03.2020 22:37
Определите значение переменной а после выполнения данного алгоритма: а := 2 b := 1+а b := а+b а := а/2*2*b-4 В ответе укажите одно целое число — значение переменной а....
lllGlitcherlll lllGlitcherlll  21.12.2019 23:49
Написать программу, которая вычисляет произведение модулей элементов одномерного массива, расположенных после первого положительного элемента. массив состоит из 15 вещественных...
сырнаябулочка21 сырнаябулочка21  22.12.2019 00:19
Нужна программа в pascal.abc.net на фото....
MINIONCHIK17 MINIONCHIK17  21.12.2019 22:30
1) перепишите программу в тетрадь var a: array[1..200] of integer; i,n,p,k: integer; begin p: =20; n: =0; randomize; for i: 1 to 200 do a[i]: =random(100)-50; for i: =1 to 200...
mops123321 mops123321  23.09.2019 08:10
С# работа начальный вклад в банке равен 100 000 тг. через каждый месяц размер вклада увеличивается на p процентов от имеющейся суммы. по данному p определить, через сколько месяцев...
истина4 истина4  23.09.2019 08:10
С# работа 1. пользователь вводит имя. в ответ вернуть (вывести на экран) строку «, …(введенное пользователем имя)». 2. пользователь вводит строку. проверить, является ли эта строка...

Популярные вопросы