Написать программы к следующим задачам, пользуясь примерами ниже. 1. Дано натуральное число n. Вычислить 1*2*3*…*n. 2. Вычислить: sin x+sin 2x+sin 3x +….(n слагаемых).
Не очень понял что именно от тебя хотят.Но если все действия происходят в Паскаль, то задача на оператор ветвления.А вот и сама программа на всякий случай: Program Proverka; uses CRT; var x:real; Begin clrscr; writeln ('Введите X'); readln (x); IF x<0 then writeln ('Отрицательное число x=' , x:5:2) Else Begin IF x>0 then writeln ('Положительное число x=' , x:5:2) Else writeln ('Вы выбрали неверное значение'); End; readln; End.
Сделаем простое преобразование: Мы получили конъюнкцию b и выражения в круглых скобках. Она ложна, если ложно хотя бы b в этом выражении. Поищем колонку, в которой всегда стоит ноль, если ноль в колонке F. Это предпоследняя колонка, следовательно она содержит значения для b (ведь в колонке указано значение одной переменной)
А теперь воспользуемся истинным значением F. F истинно только если истинны одновременно и b, и выражение в скобках. А в скобках находится дизъюнкция с и инверсии a. Дизъюнкция ложна, если ложны оба её компонента, т.е. если ложно с и истинно а (из-за инверсии). Это дает нам комбинацию cabF=0110 или acbF=1010. Находим одну из этих строк: 1010 третья снизу. Следовательно, подписи колонок acbF.
a c b F 0 0 0 0 0 0 1 1 0 1 0 0 0 1 1 1 1 0 0 0 1 0 1 0 1 1 0 0 1 1 1 1
Program Proverka;
uses CRT;
var x:real;
Begin
clrscr;
writeln ('Введите X');
readln (x);
IF x<0 then
writeln ('Отрицательное число x=' , x:5:2) Else
Begin
IF x>0 then
writeln ('Положительное число x=' , x:5:2) Else
writeln ('Вы выбрали неверное значение'); End;
readln;
End.