Вычисления в Паскаль

Задание № 1

а) перевести числа из десятичной системы счисления в двоичную;

35 410 = 1 011 000 102

354: 2 = 177 (0)

177: 2 = 88 (1)

88: 2 = 44 (0)

44: 2 = 22 (0)

22: 2 = 11 (0)

11: 2 = 5 (1)

5: 2 = 2 (1)

2: 2 = 1 (0)

1: 2 = 0 (1)

0,71 610 = 0,10 110 112

0,716 * 2 =1,432

0,432 * 2 = 0,864

0,854 * 2 = 1,728

0,728 * 2 = 1,456

0,456 * 2 = 0,912

0,912 * 2 = 1,824

0,824 * 2 = 1,628

б) определить результат выполнения в TURBO PASKAL следующих функций и операций

Int (17.95)

Int (функция) — возвращает целую часть параметра

10 Div 7

C Div B — деление целых чисел в) записать на языке программирования PASKAL выражение

(X*SIN (Y+1)*SIN (Y+1)/(COS (Y+1)*COS (Y+1))+EXP (7*LN (LN (V)))-SQRT (SIN (X)))/(SQRT (2*B*Z+EXP (5*LN (Y)))+ABS (A-B-EXP (F)))

Задание № 2

Составить на языке PASKAL программу вычисления значений функции:

F =

PROGRAM KR2;

USES PRINTER;

VAR F, X. Y, A. B, N: REAL;

BEGIN

WRITELN (`Введите значения Х, Y, A, B, N');

READLN (X, Y, A. B, N);

F: COS (EXP ((A-B)*LN (X)))/(ABS (EXP (4*LN (Y)) — EXP (5*LN (B))) + 5.4) + SQR (N);

WRITELN (`X=', X:8:2, `Y =', Y:8:2, `A= `, A:8:2, `B=', B:8:2, `N=', N:8:2);

WRITELN (`F = `, F:8:2);

WRITELN (LST, ` X= `, X:8:2, `Y=', Y:8:2, `A=', A:8:2,

WRITELN (LST,'F=', F:8:2)

END.

Задание № 3

Составить программу вычисления функции на языке PASKA

PROGRAM KR3;

USES PRINTER;

VAR X, Y: REAL;

BEGIN

WRITELN (`ВВОД X');

READLN (X);

IF X? = 0 THEN Y: = EXP (3 * LN (X)) + 7 ELSE

IF X? 2 THEN Y: = EXP (5 * LN (X)) ELSE Y: = 1 — EXP (4 * LN (X));

WRITELN (`X = `, X:9:3, `Y = `, Y:9:3);

WRITELN (LST, `X = `, X:9:3, `Y = `, Y:9:3)

END.

БЛОК СХЕМА Задание № 4

Составить на алгоритмическом языке PASKAL программу вычисления значений функций Z = при этом x с шагом 0,125 используя, оператор FOR.

PROGRAM KR4;

USES PRINTER;

VAR X, Y, Z: REAL; I: INTEGER;

BEGIN

WRITELN (`ВВЕДИТЕ ЗНАЧЕНИЯ Y');

READLN (Y);

X: = 1;

FOR I: = 1 TO 17 DO BEGIN

Z: = SQR (Y) * LN (X) + 1;

WRITELN (`X = `, X:8:1, `Y = `, Y:8:1, `Z = `, Z:8:1);

WRITELN (LST,'X = `, X:8:1, `Y = ` Y:8:1, `Z = `, Z:8:1);

X: = X + 0.125

END;

END.

БЛОК СХЕМА «FOR»

Задание № 5

Написать программу на алгоритмическом языке PASKAL с использованием любого оператора цикла

PROGRAM KR5;

USES PRINTER;

VAR X;H;Y: REAL;

BEGIN

WRITE (` ВВЕДИТЕ ЗНАЧЕНИЕ H');

READ (H);

WRITELN (`H = `, H:8:2);

WRITELN (LST, `H = `, H:8:2);

X: = -1.3;

WHILE X? = 1.8 DO BEGIN

IF X? = 0 THEN Y: = H + X ELSE

IF X? 1 THEN Y: = LN (X) ELSE Y: = 4 * SIN (X + 1);

WRITELN (`X = `, X:8:2, `Z = `, Z:8:2, `Y = `, Y:8:2);

WRITELN (LST, `X = `, X:8:2, `Z = `, Z:8:2, `Y = `, Y:8:2);

X: = X+0.2

END;

END.

БЛОК СХЕМА «WHILE»

Задание № 6

счисление паскаль функция массив Вычислить сумму и произведение всех элементов массива T (10) (= T (10))

PROGRAM KR6;

USES PRINTER;

LABEI M;

VAR I: = 1 TO 10 DO READLN (T[I]);

WRITELN (`ИСХОДНЫЙ МАССИВ А');

WRITELN (LST, И ИСХОДНЫЙ МАССИВ А');

S: = 0;

P: = 1;

FOR I: = 1 TO 10 DO S: = S + T[I] AND P: = P * T[I];

WRITELN (`S = `, S);

WRITELN (`P = ` P);

END.

www.