Задать вопрос!

Задать вопрос!

Все категории

Тат Янка

4 года назад

11

Запишите,пожалуйста, формулу на языке паскаль

Запишите,пожалуйста, формулу на языке паскаль

Информатика

1 ответ:

Aleksandr4149 [7]4 года назад

0 0

Y:=Sqrt((Exp(a+b)-Exp(a-b))/x)+Log10(x+a);

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

Составить блок-схему и написать программу на языке PascalABC.NET. 1. Даны действительные положительные числа x, y, z. Выяснить,

Андрей 1969

1. Треугольник будет существовать если будут выполнятся одновременно три неравенства:
x + y > z
x + z > y
y + z > x

Программа:

var x, y, z: real;
begin
writeln('Введите стороны треугольника x, y, z: ');
read(x, y, z);
if (x + y > z) and (x + z > y) and (y + z > x)
then writeln('Треугольник существует')
else writeln('Треугольник не существует');
end.

2. Думаю, здесь излишни объяснения.

Программа:

var x, y, z: real;
begin
writeln('Введите три числа: ');
read(x, y, z);
writeln('В интервале (1; 3) лежат числа: ');
if (x > 1) and (x < 3) then writeln(x);
if (y > 1) and (y < 3) then writeln(y);
if (z > 1) and (z < 3) then writeln(z);
end.

Блок-схемы в приложении:

0 0

4 года назад

Как написать игру "светофор" на языке программирования с#с помощью команд если то

Марионелла [2.8K]

Изначально есть три функции, включающие цвета.
yellow()
red()
green()
Делаем таймер под название time, а потом пишем подобное:
do {
if (time<10)
red();
if (time<10)
yellow();
if (time<10)
green();
}

0 0

4 года назад

Program faceyourseif;varx:integer;k:integer;beginx := Random(100);writeln('Компьер загадал число от 0 до 100');writeln('Попробуй

Виталий Сергеевич

Program faceyourseif;
var x,k,i:integer;
    g:boolean;
begin;
x := Random(100);
writeln(x);
writeln('Компьер загадал число от 0 до 100');
writeln('Попробуйте его угадать');
repeat
    writeln('Введите число');
    read(k);
    if k > x then
      writeln('Не угадали! Загаданное число меньше');
    if k < x then
      writeln('Не угадали! Загаданное число больше');
    if k = x then begin;
      writeln('Поздравляю,вы угадали!');
      g:=true;
    end;
    i:=i+1;
   until g or (i=3);
end.

0 0

3 года назад

Решить задачи с помощью графов 1. Сколько трехзначных чисел можно составить из цифр 2, 3, 8 при условии, что цифры не должны пов

Анфисия [7]

1. 6 чисел: 238, 283, 328, 382, 832, 823

2. 4 числа: 420, 402, 240, 204

3. 6 вариантов : КЖЗ, КЗЖ, ЗЖК, ЗКЖ, ЖЗК, ЖКЗ

4. 12 вариантов: (Р=рыба, К=компот, П=плов, Ч=чай, Г=гуляш)

Щи с: Р и К, Г и К, П и К, Р и Ч, Г и Ч, П и Ч.

Борщ с: Р и К, Г и К, П и К, Р и Ч, Г и Ч, П и Ч.

5. 6 способов: 1 и 2, 1 и 3, 1 и 4, 2 и 3, 2 и 4, 3 и 4.

0 0

4 года назад

Дано натуральное число n. Вычислить произведение первых n сомножителей 1/2 * 3/4 * 5/6 * ... Задачка по C++

Ирина Гейм [7]

#include <iostream>

using namespace std;

int main()

{

int n;

cin>>n;

long double res=1;

for(int i=0,j=0;j<n;i+=2,j++)

res=res*((i+1)*1.0/(i+2));

cout<<res;

return 0;

}

0 0

4 года назад