М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
hodos10
hodos10
17.08.2020 10:14 •  Информатика

Паскаль. нужно написать программы, 1. y=√x^2+4(корень закончился) при x∈[-4; 4) 2. y=√x^2-4(корень закончился) при x∈[-4; 4)

👇
Ответ:
nbuiluk
nbuiluk
17.08.2020
1.
var x: real;
begin
readln(x);
if (x>=-4)and(x<4) then writeln('y = ',sqrt(x*x+4))
else writeln('Функция не определена');
end.

Пример:
2
y = 2.828427124746190e+00

2.
var x: real;
begin
readln(x);
if (x>=-4)and(x<4) then 
 begin
 if x*x-4>=0 then writeln('y = ',sqrt(x*x-4))
 else writeln('Корень из отрицательного числа');
 end
else writeln('Функция не определена');
end.

Пример:
0.5
Корень из отрицательного числа
4,5(15 оценок)
Ответ:
Pascal
1) uses crt;
var x, y: Real;
begin
readln(x);
if (x >= -4) and (x <= 4) then y := sqrt(sqr(x) + 4);
writeln(y);
end.

2) uses crt;
var x, y: Integer;
begin
readln(x);
if (x >= -4) and (x <= 4) then y := sqrt(sqr(x) - 4);
writeln(y);
end.
4,5(20 оценок)
Открыть все ответы
Ответ:
2508sanya
2508sanya
17.08.2020

Реестр и перегруженный диск

Вторая причина торможения компьютера - это конечно же замусоренный реестр и перегруженный системный диск. Если у Вас в реестре Windows много различных записей из-за того, что Вы постоянно устанавливаете и удаляете различные программы, то это также может стать причиной торможения компьютера. Нужно знать, как правильно почистить компьютер, чтобы он не тормозил и не глючил. И начнём мы с реестра.

Чтобы почистить реестр рекомендую использовать простую программу CCleaner. Скачайте, установите и запустите её.

Перейдите в раздел Реестр, убедитесь что здесь стоят все галочки, и нажмите Поиск проблем.

Поиск ошибок в реестре Виндовс

Программа найдёт весь ненужный хлам в реестре и предложит его Очистить. Нажимаем кнопку Исправить и исправляем.

Исправление ошибок в реестре

Повторяем эту процедуру, до тех пор, пока в реестре не будет найдено минимальное количество проблем.

Также нам нужно почистить диск С. Заходим в раздел Компьютер, нажимаем правой кнопкой мыши по системному разделу и выбираем пункт Свойства.

Свойства системного диска

Здесь находим кнопку Очистка диска, и ждём пока программа проанализирует данные и предложит удалить ненужный хлам.

Очистка системного диска

Поиск ненужных файлов

После анализа нам нужно поставить галочки напротив всех пунктов и нажать Ок и Удалить файлы.

Удаление ненужных файлов

Удалить файлы в Очистке диска

А ещё не забудьте очистить папки TEMP. Это временные папки, файлы в которых вообще не нужны.

Заходим в раздел Компьютер - Диск (C:) - Папка Windows - Папка TEMP. То, что внутри, это ненужные файлы, выделяем и удаляем.

Папка TEMP

Также нужно очистить вторую папку ТЕМП. Для этого нажимаем на клавиатуре Win+R, вводим команду %TEMP% и нажимаем Ок.

Команда Выполнить

У нас открывается вторая папка TEMP, эти файлы тоже не нужны. Выделяем их все и Удаляем.

Вторая папка TEMP

Итак второй мы тоже разобрали. Обязательно чистим реестр от хлама и диск от ненужного мусора. Это очень важно!

4,8(25 оценок)
Ответ:

Pascal ABC.

1. Код с предусловием:

var

  a, b, n, s: integer;

begin

    readln(a, b);

    s := 1;

    n := 0;

    while a <= b do begin

          if a mod 2 = 0 then begin

             s := s * a;

             inc(n);

          end;

          inc(a);

    end;

    writeln( exp(ln(s)*(1/n))  );

end.

2. Код с постусловием:

var

  a, b, n, s: integer;

begin

    readln(a, b);

    s := 1;

    n := 0;

    repeat

          if a mod 2 = 0 then begin

             s := s * a;

             inc(n);

          end;

          inc(a);

    until a > b;

    writeln( exp(ln(s)*(1/n))  );

end.

4,4(42 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ