Автор работы: Пользователь скрыл имя, 20 Января 2012 в 04:38, контрольная работа
Краткое введение в программирование на языке Паскаль, три решенные задачи по варианту №3 РИИ ФЗФО.
1. Введение ------------------------------------------------------------------------ 3
1.1. Понятие алгоритма ------------------------------------------------------ 3
1.2. Алгоритмический язык PASCAL ------------------------------------- 4
1.2.1. Структура программы на языке PASCAL -------------------- 4
1.2.2. Типы данных ------------------------------------------------------- 5
1.2.3. Основные операторы PASCAL --------------------------------- 7
2. Выполненные задания -------------------------------------------------------- 9
2.1. Задание №1 ---------------------------------------------------------------- 9
2.2. Задание №2 ---------------------------------------------------------------- 11
2.3. Задание №3 ---------------------------------------------------------------- 13
3. Список литературы ----------------------------------------------------------- 15
A: STRING[<количество символов в строке>];
Ввод массивов осуществляется с применением циклов.
2.
Выполненные задания
2.1
Задание №1
Исходная задача:
Вычислить значение функции , где a=-4,2
Решение:
program Lab1;
var
a: Real;
x, y: Real;
begin
a := -4.2;
Write('Введите значение x: ');
Readln(x);
if x > 1 then
y := a * Ln(x) + Sqrt(x - 1)
else
y := 2 * a * Cos(Pi * x);
Writeln('y = ', y : 0 : 5);
end.
Контрольный
пример:
Результаты ручных вычислений:
Пусть , тогда
Пусть , тогда
Результат работы
программы:
X = 2
X = 0
2.2
Задание №2
Исходная
задача:
Вычислить значение
функции
на отрезке [-3;
3,4] с заданным шагом изменения аргумента
dx=0,4.
Решение:
program Lab2;
var
x, y: Real;
dx: Real;
begin
dx := 0.4;
x := -3;
while (x <= 3.4) do
begin
y := Sqr(x) * Sin(x - 3);
WriteLn('x = ', x : 5 : 2, ' y = ', y : 0 : 3);
x := x + dx;
end;
end.
Контрольный пример:
Результаты ручных вычислений:
X | Y |
-3 | 2.515 |
-2.6 | 4.267 |
-2.2 | 4.276 |
-1.8 | 3.228 |
-1.4 | 1.865 |
-1 | 0.757 |
-0.6 | 0.159 |
-0.2 | 0.002 |
0.2 | -0.013 |
0.6 | -0.243 |
1 | -0.909 |
1.4 | -1.959 |
1.8 | -3.020 |
2.2 | -3.472 |
2.6 | -2.632 |
X | Y |
3 | 0 |
3.4 | 4.502 |
Результат работы
программы:
2.3
Задание №3
Исходная
задача:
Дан одномерный
массив целых чисел. Поменять в нем знаки
всех чисел, значение которых больше -10.
Решение:
program Lab3;
var
a: array[1..100] of Integer;
n: Integer;
i: Integer;
begin
Write('Введите количество элементов: ');
Readln(n);
Write('Введите элементы: ');
for i := 1 to n do
Read(a[i]);
for i := 1 to n do
if a[i] > -10 then
a[i] := -a[i];
Write('Полученный массив: ');
for i := 1 to n do
Write(a[i], ' ');
end.
Контрольный
пример:
Результат ручных
вычислений:
Пусть дан массив [6; -11; -15; 0; -3]. После замены знаков у элементов, значение которых больше -10, получится массив [-6; -11; -15; 0; 3].
Результат работы
программы:
3.
Список литературы