составить программу для вычисления значения y по формуле Y= квадратный корень из x заданного с клавиатуры,если число отрицательное ,то вывидите
10-11 класс
|
сообщение,что значение Y не существует
var x,y:real;
begin
readln(x);
if x<0 then writeln('Oshibka') else begin y:=sqrt(x); writeln('y=',y); end;
end.
program kvadr;
var x, y: real ;
begin
write('введите значение x');
read(x);
if x > 0
then begin Y:=sqrt(x) ;
end;
write(Y)
else write('у не существует')
end.
Другие вопросы из категории
ПРИПИШИТЕ ДВЕ ЦИФРЫ МЕСЯЦА(НАПРИМЕР,ДЛЯ ДАТЫ 02.03.93 ИСКОМОЕ ЧИСЛО 203)ЕСЛИ ДЕНЬ В ДАТЕ РОЖДЕНИЯ-ЧИСЛО ОТ 10 ДО 31,ТО К ДВУМ ЦИФРАМ ИЗ ОБОЗНАЧЕНИЯ ДНЯ ПРИПИШИТЕ ВТОРУЮ ЦИФРУ ИЗ ОБОЗНАЧЕНИЯ МЕСЯЦА(НАПРИМЕР,ДЛЯ ДАТЫ 23.11.93 ИСКОМОЕ ЧИСЛО 231) мОЯ ДАТА РОЖДЕНИЯ 30.05.95
дискретность, понятность 3). дискретность, массовость, понятность, результативность 4). однозначность, дискретность, точность, понятность, результативность, массовость 5). однозначность, дискретность, точность, понятность, результативность
и пробелом, вводится с клавиатуры.
Помогите, пожалуйста.
Читайте также
2. Составить программу для упорядоченное двух элементов по убыванию.
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
ВНИМАНИЕ!!!! помогите дам 40 баллов!!!!!!!!!!!!!!!!!
у= если x<-3 то
y= √1 - x²
если 1,5<x-3, то
y= в числителе 1 в знаменателе модуль x +2
если x>1,5, то
y=tg x
Составить словесное описание алгоритма, составить блок схему, описать используемые элементы