Составить программу решения линейного уравнения ax + b = 0, где а не равно 0.
5-9 класс
|
Пишу на QBasic
CLS
INPUT A
INPUT B
X=-(B/A)
PRINT X
программа на паскале
var a,b,x: integer;
begin
readln (a);
readln (b);
x:=(-1)*(b/a);
writeln (x);
end.
Вот. program pr; var x:real;a,b:integer; begin write('a='); readln(a); write('b='); readln(b); writeln(); writeln(a,'*x+',b,'=0'); x:=-(b/a); write('x=',x:0:2); end.
Другие вопросы из категории
62,если микрокалькулятор выполняет операции только с натуральными числами?Ответ об'ясните.
ресурсе. (Я просто удалил MS Office 2003 для установки MS Office 2007, но теперь не могу ни установить MS Office 2007 ни восстановить MS Office 2003. MS Office 2007 я качал через MediaGet. После установки AVG AntiVirus Free Edition 2015 антивирус удалил MediaGet, но Ms Office 2007 остался.) Находил я этот пакет в Интернете и скачивал но не помогает. Пишет что уже установлена другая версия этого продукта. Подскажите пожалуйста, что я делаю не так или что мне нужно сделать для того что-бы восстановить MS Office 2003 (Восстановление системы не помогло).
Москвич сидел между томичом и Витей, санкт-петербуржец - между Юрой и Толей, а напротив него сидели пермяк и Алеша. Коля никогда не был в Санкт-Петербурге, а Юра не бывал в Москве и Томске, а томич с Толей регулярно переписываются. Определите, в каком городе живет каждый из ребят.
Читайте также
Составить программу решения
линейного уравнения: ах + в = 0,
при (а <> 0)
2)
Посчитать, сколько молекул воздуха находится в данной комнате.
по поводу этой задачи от себя могу добавить (
молярная масса воздуха принимается равной 29 г/моль.
зная объем комнаты (параллелепипед высота*ширина*длина) находите объем в литрах. объем/22,4=количество в молях. полученный результат умножается на число авогадро и ответ готов (без учета давления и температуры)
надеюсь это поможет вам в составление программы и тем самым оказании услуги многим-многим школьникам, попавим в неловкое положение, в последние дни четверти.
входном файле находится одно число A
Дана программа:
Program p1;
var a:integer.
begin
write('Введите целое число:');
readln(a);
if(a>=100) and (a<1000)then write(' Да')
else write(' Нет');
End.
1.Запишите, что будет выведено на экране в результате выполнения данной в п.1 программы. при=-2, при а=123.
2. Внести данную программу изменения таким образом, чтобы программа определяла, удовлетворяет ли данное вещественное число а неравенству -14,5 < a <_ 18,
3. Даны целые числа a и b. Составьте программу, определяющую, есть ли среди них хотя бы одно, не равное нулю.
4. Ввести три целых числа. Если ни одно из чисел не является чётным, то вывестина экран их произведение.
Тема с Packal ABC.