помогите составить программу в паскале к функции y=1/x
10-11 класс
|
Program n1;
Uses Crt;
var x,y:real;
begin
clrscr;
write('Введите x<>0:');
readln(x);
if (x=0) then
begin
x:=1; {чтобы не было деления на 0}
writeln('На ноль делит нельзя!!!!');
end;
y:=1 / x;
writeln('y=',y:5:5)
readkey;
end.
Другие вопросы из категории
кто ничего не делает, хотя это и есть его основная ошибка.
Составьте программу ввода матрицы С, не используя клавиатуру:
электронная почта
телеконференции
компьютеры, еще не подключенные к глобальной сети
каталоги рассылки в среде WWW
FTP-системы
Читайте также
ракета запускается с земли со скоростью V(км час) в направлении движения земли по орбите вокруг солнца. составить программу,определяющую результат запуска ракета в зависимости от скорости V.
Известно,что при V16,4 ракета покинет солнечную систему.
у= если x<-3 то
y= √1 - x²
если 1,5<x-3, то
y= в числителе 1 в знаменателе модуль x +2
если x>1,5, то
y=tg x
Составить словесное описание алгоритма, составить блок схему, описать используемые элементы
арифметическое и количество всех положительных элементов массива))
Помогите составить программу в Паскале, буду благодарна:)