Var
a, b, c, d: integer;
x1, x2, x: real;
begin
Writeln('Введите a,b,c');
Read(a, b, c);
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, ' x2=', x2);
{ Потом убрать отсюда ... }
Writeln('*** Делаем проверку ***');
Writeln(a, 'x(', x1:0:5, ')^2+', b, 'x(', x1:0:5, ')+', c, '=', a * sqr(x1) + b * x1 + c:0:5);
Writeln(a, 'x(', x2:0:5, ')^2+', b, 'x(', x2:0:5, ')+', c, '=', a * sqr(x2) + b * x2 + c:0:5)
{ ... и досюда }
end
else
if d < 0 then
Write('Нет корней')
else
begin
x := -b / (2 * a);
Writeln('Корень уравнения: x=', x);
end;
end.
Тестовое решение:
Введите a,b,c
2 -2 -40
Корни уравнения: x1=-4 x2=5
*** Делаем проверку ***
2x(-4.00000)^2+-2x(-4.00000)+-40=0.00000
2x(5.00000)^2+-2x(5.00000)+-40=0.00000
Поиск:
<span>чтение соответствующей литературы
</span><span>просмотр видео на эту тематику
Сбор:
выписка из предметов поиска
цитирование, копирование
Хранение:
</span>Способ хранения информации зависит от ее носителя <span>(книги в библиотеках, картина в музеях, фотографии в альбомах)
</span>если про компьютерные технологии нужно, то это может быть текстовик, презентация или прочая дребедень на флешке(компакт диске) или жестком диске компьютера.
Передача:
Каналы связи(интернет, телефонная связь и т.п.)
Кодирующие и Декодирующие устройства, т.е. те устройства, которые превращают текст, картинку или любую другую информацию в код, а потом его "раскодирывают" по-русски расшифровывают и переводят из когда в нормальное, понятное человеку, состояние.
Обработка:
Обработка информации это <span>преобразование ее из одного вида в другой.
</span>пример приведу для того, чтобы поняли:
Пример - Постановка диагноза болезни<span>
Входная информация - </span>Жалобы пациента + результаты анализов<span>
Выходная информация - </span>Диагноз<span>
Правило - </span>Знание + опыт врача
для информатики надо взять более подходящий пример. но он может быть менее понятным...
и, наконец, защита информации:
защита информации = предотвращение:
несанкционированного, нелегального доступа
непредумышленного или недозволенного использования, изменения или разрушения информации.
Var
i, n, s, x: integer;
begin
readln(n);
s := 0;
for i := 1 to n do
begin
readln(x);
if (x mod 10 = 8) and (x mod 6 = 0) then
s := s + x;
end;
writeln('S = ', s);
end.
Ответ:
1. Использовать Робот
алг "Любое слово:)"
нач
нц пока справа свободно
закрасить
вправо
кц
вниз
вниз
нц пока слева свободно
закрасить
влево
кц
кон
2. Использовать Робот
алг "Любое слово-словосочетание:)"
нач
вправо
вправо
нц пока снизу свободно
вниз
вправо
закрасить
кц
нц пока слева свободно
влево
кц
вверх
вправо
вправо
вправо
вправо
нц пока снизу свободно
вниз
вправо
закрасить
кц
нц пока слева свободно
влево
кц
вверх
вправо
вправо
вправо
вправо
нц пока снизу свободно
вниз
вправо
закрасить
кц
нц пока слева свободно
влево
кц
вверх
вправо
вправо
вправо
кон
3) Использовать Робот
алг "Любое словосочетание"
нач
нц пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
нц пока сверху свободно
вверх
кц
вправо
вниз
вниз
закрасить
нц пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
нц пока сверху свободно
вверх
кц
вправо
вниз
вниз
закрасить
нц пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
нц пока сверху свободно
вверх
кц
вправо
вниз
вниз
закрасить
нч пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
нц пока сверху свободно
вверх
кц
вправо
вниз
вниз
закрасить
нц пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
нц пока сверху свободно
вверх
кц
вправо
вниз
вниз
закрасить
нц пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
кон