Контрольная по информатике

Категория реферата: Рефераты по информатике, программированию
Теги реферата: инновационный менеджмент, мировая торговля
Добавил(а) на сайт: Antipa.

Тема 1. Линейный вычислительный процесс.

Задание 1. Составить программу для вычисления значения х и произвести вычисления на компьютере.

[pic]

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. Составить структурную схему и написать программу вычисления значения у(х) для любого значения аргумента х. sin2?x+cos?x,, если x > 5 y = x3+x2+1, если x ? 1

PROGRAM_LR2;
VAR_X,Y:REAL;
BEGIN
WRITELN(’Введите х’);
READLN(X);
IF_X>5_THEN_Y:=SQR(SIN(SQRT(X)))+COS(SQRT(X));

WRITE(’Y=’,Y:8:2);

ELSE_IF_XB;
END.

Задание 4. Составить структурную схему и программу для вычисления значения функции:

PROGRAM_LR4;
VAR_K,M,N:INTEGER;

S,P:REAL;
BEGIN
WRITELN(’Введите m и n’);
READLN(M,N);
S:=0;
FOR_K:=M_TO_N_DO

BEGIN

P:=(SQR(K)+5)/(SQR(K)*K+K);

S:=S+P;

END;
WRITE(’S=’,S:10:4);
END.

Тема 4. Програмирование алгоритмов циклической структуры с использованием массивов.

Задание 5. Составить структурную схему и программу с использованием одномерных массивов.

В заданной последовательности x1,x2,x3,...,xn отрицательные числа заменить на их квадраты.

PROGRAM_LR5;
CONST_N1=100;
VAR_K,N:INTEGER;

X:ARRAY[1..N1]_OF_REAL;
BEGIN
WRITE(’Введите количество чисел в последовательности n=’);
READLN(N);
WRITELN(’Введите элементы последовательности’);
FOR_K:=1_TO_N_DO

BEGIN

READ(X[K]);

IF_X[K] 5

[pic]

Поделитесь этой записью или добавьте в закладки