Вычисления в Паскаль
Задание №1
а) перевести числа из десятичной системы счисления в двоичную;
= 1011000102
: 2 = 177 (0)
: 2 = 88 (1)
: 2 = 44 (0)
: 2 = 22 (0)
: 2 = 11 (0)
: 2 = 5 (1)
: 2 = 2 (1)
: 2 = 1 (0)
: 2 = 0 (1)
,71610 = 0,10110112
,716 * 2 =1,432
,432 * 2 = 0,864
,854 * 2 = 1,728
,728 * 2 = 1,456
,456 * 2 = 0,912
,912 * 2 = 1,824
,824 * 2 = 1,628
б) определить результат выполнения в TURBO PASKAL следующих функций и операций
Int (17.95) (функция) - возвращает целую часть параметра
Div 7 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 программу вычисления значений функции:
=
KR2;PRINTER;F, X.Y, A.B, N: REAL;
BEGIN(Введите значения Х,Y,A,B,N);(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);( X=, X:8:2, Y =, Y:8:2, A= , A:8:2, B=, B:8:2, N=, N:8:2);(F = , F:8:2);(LST, X= , X:8:2, Y=, Y:8:2, A=, A:8:2,(LST,F=, F:8:2)
END.
Задание № 3
Составить программу вычисления функции на языке PASKA
KR3;PRINTER;X,Y: REAL;(ВВОД X);(X);X? = 0 THEN Y: = EXP (3 * LN(X)) + 7 ELSEX ? 2 THEN Y: = EXP (5 * LN(X)) ELSE Y: = 1 - EXP(4 * LN(X));
WRITELN (X = , X:9:3, Y = , Y:9:3);(LST, X = , X:9:3, Y = , Y:9:3).
БЛОК СХЕМА
Задание № 4
Составить на алгоритмическом языке PASKAL программу вычисления значений функций Z = при этом x с шагом 0,125 используя, оператор FOR.
KR4;PRINTER;X,Y,Z: REAL; I: INTEGER;
BEGIN(ВВЕДИТЕ ЗНАЧЕНИЯ Y);
READLN (Y);: = 1;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 + 0.125;.
БЛОК СХЕМА FOR
Задание №5
Написать программу на алгоритмическом языке PASKAL с использованием любого оператора цикла
PROGRAM KR5;PRINTER;X;H;Y: REAL;
BEGIN( ВВЕДИТЕ ЗНАЧЕНИЕ H);(H);(H = , H:8:2);(LST, H = , H:8:2);: = -1.3;X ? = 1.8 DO BEGIN
IF X ? = 0 THEN Y: = H + X ELSEX ? 1 THEN Y: = LN (X) ELSE Y: = 4 * SIN (X + 1);
WRITELN (X = , X:8:2, Z = , Z:8:2, Y = , Y:8:2);(LST, X = , X:8:2, Z = , Z:8:2, Y = , Y:8:2);
X: = X+0.2;.
БЛОК СХЕМА WHILE
Задание №6
счисление паскаль функция массив
Вычислить сумму и произведение всех элементов массива T(10) (= T(10))
PROGRAM KR6;PRINTER;M;I: = 1 TO 10 DO READLN (T[I]);
WRITELN (ИСХОДНЫЙ МАССИВ А);(LST, И ИСХОДНЫЙ МАССИВ А);
S: = 0;: = 1; I: = 1 TO 10 DO S: = S + T[I] AND P: = P * T[I];(S = , S);(P = P);.
Больше работ по теме:
Предмет: Информационное обеспечение, программирование
Тип работы: Контрольная работа
Новости образования
КОНТАКТНЫЙ EMAIL: [email protected]
Скачать реферат © 2017 | Пользовательское соглашение
ПРОФЕССИОНАЛЬНАЯ ПОМОЩЬ СТУДЕНТАМ