Информатика и ВТ

Информатика и вычислительнаятехникаЗадание.Вычислить произведение элементовмассива, превышающих заданное число С, то есть yk gt C, для х a,b и изменяющегося с шагом h.yk 1 x x, где x lt 5 yk 2 cosx,где 5 x 8yk ln 1 x , где x gt 8Этап 1. X значение аргумента x Y - значение yk C заданное число А начальное значение аргумента x В конечное значение аргумента x Н шаг изменения аргумента x

Р произведение элементов ykмассива.Этап 2. Задается начальное значениеаргумента x a и начальное значение произведенияэлементов массива Р 1. Так как, число повторений цикла заранее неизвестно,организуется циклический итерационный вычислительный процесс. Внутри циклаосуществляется проверка значений х, и в зависимости от того x lt 5, или 5 x 8, или x gt 8, выбирается формула для вычисления значений yk.

Кроме того, есливыполняется условие x lt 5, то проверяется еще одно условие х sup3 0 так какподкоренное выражение при вычислении yk неможет быть отрицательным . В случае выполнения этого условия, значению ykприсваивается значение yk 1 для того, чтобы при вычислении неизменилось значение произведения Р, а процесс перешел к вычислению следующегозначения yk при следующем значении х . Затем, на основанииполученного значения yk проверяется условие yk gt

С. Если оно выполняется, то значение произведения Румножается на полученное значение yk. После этого, аргумент хувеличивается на шаг h. Цикл выполняется до тех пор,пока текущее значение х не превысит значения b конечное значение аргумента х.Этап 3. PROGRAM KR0 VAR A,B,C,H,P,X,Y REAL BEGIN WRITELN Введите значения a и b READLN

A,B WRITELN Введите шаг Н и число С READLN H,C X A P 1 WHILE X lt B DO BEGIN IF X lt 5 THEN IF X gt 0 THEN Y X SQRT X ELSE Y 1 ELSE IF X gt 8 THEN Y LN X ELSE Y SQRT 2-COS X IF Y gt C THEN P P Y X H END WRITE Произведение элементов массива равно , P 8 2

END.Пояснения к программе.Когда после запуска программы наэкране появится текст Введите значения a и b,нужно на клавиатуре выбратьконкретные числа, которые будут присвоены этим переменным.Затем появится сообщение Введите шаг Н и число С.Необходимо ввести такжеконкретные значения этих переменных. После этого программа начнет выполнениевычислительного процесса. В результате работы программы на экране появитсятекст

Произведение элементов массиваравно число.Лабораторные работы.Вариант 10.Тема 1. Задание 1. PROGRAM LR1 VAR A,B,D,P,G REAL BEGIN WRITE Введите через пробел значения a, b, d, p, g READ A,B,D,P,G Х A SIN SQR P B SQR COS P A D SQR P

SQR G WRITE X ,X 7 2 END.Тема 2. Задание 2. Составить структурную схему инаписать программу вычисления значения у х для любого значения аргумента х. y sin2 x cos x если x gt 5y x3 x2 1, если x 1PROGRAM LR2 VAR X,Y REAL BEGIN WRITELN Введите х READLN X IF X gt 5 THEN Y SQR SIN SQRT X COS SQRT X WRITE Y ,Y 8 2

ELSE IF X lt 1 THEN Y SQR X X SQR X 1 WRITE Y ,Y 2 ELSE WRITE Y не определено при данном значении Х END.Тема 3. Задание 3. Составить структурную схему ипрограмму для вычисления таблицы значений функции y f x на отрезке a,b , если х наэтом отрезке изменяется с шагом h.PROGRAM

LR3 VAR A,B,H,X,Y REAL BEGIITELN I X I Y I REPEAT Y X-SIN X LN 1 WRITELN I ,X 7 2, I ,Y 7 2, X Тема 4. Задание 5. Составить структурную схему ипрограмму с использованием одномерных массивов.

В заданной последовательности x1,x2,x3 xn отрицательные числа заменить наих квадраты.PROGRAM LR5 CONST N1 100 VAR K,N INTEGER X ARRAY 1 N1 OF REAL BEGIITELN Введите элементы последовательности FOR K 1 TO N DO BEGIN READ X K IF X K lt 0 THEN X K

SQR X K WRITELN X K END END.