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

---

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

---

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

---

Info File Mail

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

---

ЦЕЛЬ РАБОТЫ: ЗАКРЕПЛЕНИЕ НА ПРАКТИКЕ ЗНАНИЙ В ОБЛАСТИ ПРОГРАММИРОВАНИЯ НА
ЯЗЫКЕ PASCAL, ПОЛУЧЕННЫХ В ПРОЦЕССЕ ОБУЧЕНИЯ, И ПОЛУЧИТЬ ДОСТАТОЧНЫЕ ПРАКТИЧЕСКИЕ НАВЫКИ РАБОТЫ НА ЭВМ.
СОДЕРЖАНИЕ:
СОСТАВИТЬ ПАСКАЛЬ-ПРОГРАММЫ ДЛЯ СЛЕДУЮЩИХ ВЫЧИСЛЕНИЙ:
1. ПО ИСХОДНЫМ ДАННЫМ:
X = 0.532
Y = LN|X+1|
T = X + Cos(X)
ВЫЧИСЛИТЬ ЗНАЧЕНИЕ ФУНКЦИИ:
Z = Y (0.5T+4.8)/Sin(Y)
2. ПО РЕЗУЛЬТАТАМ ВЫЧИСЛЕНИЙ:
ВЫЧИСЛИТЬ ЗНАЧЕНИЕ ФУНКЦИИ:
(AX + BZ+ AX ПРИ X < A
Y = A*Sin(bZx+ Z ПРИ A <= X <= B
AX + BZX + Sin(Zx) ПРИ X > B
(ИНТЕРВАЛ A,B ПОДОБРАТЬ САМОСТОЯТЕЛЬНО)
3. ВЫПОЛНИТЬ РАСЧЕТ (ПРОИЗВЕСТИ ТАКЖЕ КОНТРОЛЬНЫЙ РАСЧЕТ ВРУЧНУЮ)
Y ( Ak
ГДЕ Ak = Cos(KX)/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_2 }
{= }
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 + Cos(X);
Z = Y (0.5*t+4.8)/Sin(Y);
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 (A * X + B * Z+ A * X Else
If X > B Then Y = A * X + B * Z * X + Sin(Z * X) Else
Y = A * Sin(B * Z * X+ Z; { 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 :

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

Это место