Лабораторные по Паскалю (WinWord)

---

запомнить в избранное   искать в этом разделе

---

ВНИМАНИЕ !!! Это сокращенная версия файла. Предназначена она только для того, чтобы вы могли предварительно ознакомиться с документом, перед тем как его скачать. Здесь нет картинок, не сохранен формат, шрифт, размеры и положение на странице.
Чтобы скачать полную версию, нажмите ссылки которые находятся чуть-чуть ниже (Info File Mail)

---

Info File Mail

Файл относится к разделу:
ПРОГРАММИРОВАHИЕ, БАЗЫ ДАHHЫХ

---

ЦЕЛЬ РАБОТЫ: ЗАКРЕПЛЕНИЕ НА ПРАКТИКЕ ЗНАНИЙ В ОБЛАСТИ ПРОГРАММИРОВАНИЯ НА
ЯЗЫКЕ PASCAL, ПОЛУЧЕННЫХ В ПРОЦЕССЕ ОБУЧЕНИЯ, И ПОЛУЧИТЬ ДОСТАТОЧНЫЕ ПРАКТИЧЕСКИЕ НАВЫКИ РАБОТЫ НА ЭВМ.
СОДЕРЖАНИЕ:
СОСТАВИТЬ ПАСКАЛЬ-ПРОГРАММЫ ДЛЯ СЛЕДУЮЩИХ ВЫЧИСЛЕНИЙ:
1. ПО ИСХОДНЫМ ДАННЫМ:
X = 0.532
Y = LN|X+1|
T = X + Sin(X)
ВЫЧИСЛИТЬ ЗНАЧЕНИЕ ФУНКЦИИ:
Z (2T+Y*Cos(T)/(Y+4.331)
2. ПО РЕЗУЛЬТАТАМ ВЫЧИСЛЕНИЙ:
ВЫЧИСЛИТЬ ЗНАЧЕНИЕ ФУНКЦИИ:
2.5*Sin(Ax- BXZ ПРИ X < A
Y = Z*Cos(AX+B+ Ln(ZX) ПРИ A <= X <= B
1 + ZABX ПРИ X > B
(ИНТЕРВАЛ A,B ПОДОБРАТЬ САМОСТОЯТЕЛЬНО)
3. ВЫПОЛНИТЬ РАСЧЕТ (ПРОИЗВЕСТИ ТАКЖЕ КОНТРОЛЬНЫЙ РАСЧЕТ ВРУЧНУЮ)
Y ( Ak
ГДЕ Ak = Xk/K
В ИНТЕРВАЛЕ K=1.5 ДЛЯ X=1
РЕАЛИЗАЦИЯ: IBM-СОВМЕСТИМЫЙ ПЕРСОНАЛЬНЫЙ КОМПЬЮТЕР, ОПЕРАЦИОННАЯ СИСТЕМА
MS-DOS 5.0 И ВЫШЕ (В ТОМ ЧИСЛЕ И ВЕРСИИ MS-DOS ПОД WINDOWS-98), ЯЗЫК ПРОГРАММИРОВАНИЯ BORLAND PASCAL 7.0 (ИСХОДНЫЙ ТЕКСТ СОВМЕСТИМ ТАКЖЕ С
TURBO PASCAL 6.0 И TURBO PASCAL 7.0. НИЖЕ ПРИВЕДЕН ЛИСТИНГ ИСХОДНОГО ТЕКСТА ПРОГРАММЫ С КОММЕНТАРИЯМИ. КОММЕНТАРИИ В ТЕКСТЕ КОНКРЕТИЗИРУЮТ АЛГОРИТМЫ.
{ ВЫПОЛНЕНИЕ ВАРИАНТА N% 1_1 }
{= }
Var
A, B,
X, Y, Z, T : REAL;
FT : TEXT;
PROCEDURE Step1; { Вычисление и вывод Z }
Begin
WriteLn('Вычисление функции Z ');
WriteLn('-');
WriteLn(FT, 'Вычисление функции Z ');
WriteLn(FT, '-');
X = 0.532;
Y = LN(Abs(X+1);
T = X + Sin(X);
Z (2*t+Y*Cos(t)/(Y+4.331);
WriteLn('Z=', Z:10:5);
WriteLn(FT, 'Z=', Z:10:5);
End;
PROCEDURE Step2; { Ветвящийся алгоритм }
Begin
WriteLn('Алгоритм с разветвлением');
WriteLn('-');
WriteLn(FT, 'Алгоритм с разветвлением');
WriteLn(FT, '-');
A = 0.2; B = 2.5;
X -1;
Repeat { Пошаговый прирост X до превышения значения 3 }
X = X + 0.5;
If X < A Then Y = 2.5 * Sin(A * x- B * X * Z Else
If X > B Then Y = 1 + Z * A * B * X Else
Y = Z * Cos(A * X + B+ Ln(Z * X); { A <= X <= B }
WriteLn('X = ', X : 4 : 1, ' Y = ', Y : 10 : 5);
WriteLn(FT, 'X = ', X : 4 : 1, ' Y = ', Y : 10 : 5);
Until X > 3;
End;
PROCEDURE Step3; { Определить сумму }
Const
N = 5; { Количество итераций }
Var
K, J : Integer;
S : Re

• подписаться на рассылку. • добавить в избранное. • нашли ошибки ?

Это место