Алгоритм -это последовательность действий.Пример:Открывание двери.1 Взять ключ Подойти к двери.Засунуть ключ в замочную скважину.Повернуть ключ против часовой стрелке.И все)
a156bc
s = 123456
q = abc
delete (s,2,3) = 156
(/// Удаляет из строки s count символов с позиции index
procedure Delete(var s: string; index, count: integer);)
insert (s,q,2) = a156bc
(/// Вставляет подстроку source в строку s с позиции index
procedure Insert(source: string; var s: string; index: integer);)
Логическое высказывание - <em>повествоввательное предложение, о котором можно сказать истинно оно или ложно </em>
Например:<em></em><em>Сегодня хорошая погода </em>
1)
а) 15 делится на 10 и на 3 - может сказать истина или ложно -подходит
б)Стихотворение... - может сказать - подходит
в) С новым годом! - не подходит
г) все лисы рыжие -подходит
д) 400+100=500 - подходит
е) сложите числа - не подходит
2) Дизъюнкция (логическое сложение) - истинно тогда и тогда тогда, когда истинно хотя бы одно входщее в него высказывание - "ИЛИ" (1-5-9)
Конъюнкция(логическое умножение) - истинно тогда и только тогда, когда истинны все входящие в него высказывания -"И" ( 2-4-7)
Инверсия(логическое отрицание) - Истинное высказывание делается ложным, ложное- истинным - "НЕ" (3-6-8)
3) Логическое сложение и отрицание написано во 2 пункте
Var a, b, c: integer;
begin
readln (a, b, c);
writeln('Сумма: ' , a+b+c);
write('Произведение: ', a*b*c);
end.
Var
d, a, b, c, x1, x2: real;
begin
writeln('Введите a, b, c');
readln(a, b, c);
d := b * b - 4 * a * c;
if d > 0 then
begin
x1 := (-b + sqrt(d)) / (2 * a);
x2 := (-b - sqrt(d)) / (2 * a);
writeln('x1 = ', x1:2:2);
writeln('x2 = ', x2:2:2);
end
else if d = 0 then
begin
x1 := -b / (2 * a);
writeln('x = ', x1:2:2);
end
else
writeln('Нет действительных корней');
end.