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

Процедураны қай кезде қолдана аламыз?​

👇
Открыть все ответы
Ответ:
ПНШосннс
ПНШосннс
15.03.2023
Твой код не проверял. Недавно кому-то делал на Delphi. Переделал на Pascal. 

Приложил картинкой, если запутаешься. Если что-то не так работает, я поправлю.

//Pascal
var
  a, b, c, d, x1, x2: real;
begin
  write('Введите a = '); readln(a);
  write('Введите b = '); readln(b);
  write('Введите c = '); readln(c);
  if ((a = 0) and (b = 0) and (c = 0)) then
    writeln('X любое')
  else
  if a <> 0 then
  begin
       d := sqr(b) - 4 * a * c;
       if (d > 0) then
       begin
            x1 := (-b+sqrt(d))/(2*a);
            x2 := (-b-sqrt(d))/(2*a);
            writeln('x1 = ', x1);
            writeln('x2 = ', x2);
       end
       else
       if d = 0 then
       begin
            x1:=-b/(2*a);
            x2:=x1;
            writeln('x1 = ', x1);
            //writeln('x2 = ', x2);
       end
       else
       if d < 0 then
          writeln('Корней нет.');
  end
  else
  if (a = 0) and (b = 0) then
    writeln('Решений нет.')
  else
  if (a = 0) then
  begin
    x1 := (-c)/b;
    writeln('x = ', x1);
  end;
end.

Кто разбирается в паскале? отредактируйте . к слову это квадратное уравнение вида ax^{2}+bx+c progra
4,5(36 оценок)
Ответ:

- Выбор нужной функции. Тут, конечно, желательно знать, какую функцию следует использовать и будет нарабатываться с опытом работы с функциями Excel; 2- Указание ее аргументов. Учитывая, что аргументами могут быть другие функции, здесь открывается большой простор для творчества и инженерного подхода к задаче. Пойдем дальше. Чтобы воспользоваться Мастером функций, необходимо выполнить следующие действия: 1. Установить прямоугольник курсора на ячейку, в которую требуется ввести формулу. В этой же ячейке, конечно, будет отображаться и результат работы формулы. 2. Активизировать на вкладке Формулы команду Вставить функцию либо при кнопки Вставить функцию , которая находится начале строки формул. Они полностью однотипны по своему действию, пользуйтесь, какой будет удобно. В результате отобразится окно Мастер функций — шаг 1 из2.

Источник: http://officeassist.ru/excel/kak-vstavit-funkciyu-v-excel/

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