Написать программу вычисления значения функции x^2 x>5y= 17x-1 npи -7<х<=5 25 при x<=-7

Знания

Информатика

1 ответ:

osandra [42]4 года назад

0 0

Var
x,y:real;

begin
Write('Введите значение аргумента x: ');
Readln(x);
if x<=-7 then y:=25
else
if x<=5 then y:=17*x-1
else y:=sqr(x);
Writeln('Значение функции равно ',y:0:4)
end.

Тестовое решение:
Введите значение аргумента x: 3.78
Значение функции равно 63.2600

Читайте также

Дано двузначное число . Найти квадрат суммы его цифр

KostjaOption [96]

Pascal
Program square;
Var a, b: integer;
Begin
Readln(a);
B := a mod 10 + a div 10;
B := power(b,2);
Writeln(b);
End.

0 0

3 года назад

1)Выберите прикладные программы, которые являются растровыми графическими редакторами.а)Gimpб)Adobe Photoshopв)CorelDrawг)Core P

vasssia

1) а,б,в,г
2) г
3) незнаю

0 0

4 года назад

Прочитать ещё 2 ответа

Даны x,y,z. Напишите программу для вычисления значения арифметических выражений . 1.a=x+y-z/x2+2 2.a=5 2x-z/3+y2 (/ дробь)

Егорий [592]

Изучайте языки программирования - это интересно.
var x,y,z,a:real;
begin
writeln('Введите значения X,Y,Z:');
readln(x,y,z);
a:=(x+y-z)/(x*2+2);
writeln('Ответ:',a:4:2);
end.

var x,y,z,a:real;
begin
writeln('Введите значения X,Y,Z:');
readln(x,y,z);
<span>a:=(5+2*x-z)/(3+y*2);
</span>writeln('Ответ:',a:4:2);
end.

0 0

4 года назад

Помогите номер 12; 13; 14

MrRariYT [7]

12
багв

13
абгв

14
бвга

в первом задании - числа не должны быть больше 255.

0 0

4 года назад

Помогите решить. Надо написать на языке паскаль 7 вариант

Зетта

<span>byte = float(input("Введите число в байтах: "))
if byte>0:
b = byte * pow(10,-12)
k = byte * pow(10,-3)
mb = byte * pow(10,-6)
gig = byte * pow(10,-9)

print(str(byte) + " байт = " + str(k) + " Килобайт")
print(str(byte) + " байт = " + str(mb) + " Мегабайт")
print(str(byte) + " байт = " + str(gig) + " Гигабайт")
print(str(byte) + " байт = " + str(b) + " Терабайт")
else:
print(False)
</span>

0 0

4 года назад