Написание программ на языке программирования Паскаль

Размещено на http://www.allbest.ru/

Федеральное агентство железнодорожного транспорта

Московский государственный университет путей сообщения

Нижегородский филиал

Контрольная работа

по дисциплине «Прикладное программирование»

на тему: «Написание программ на языке программирования Паскаль»

Выполнил: студент 2 курса

шифр 1360-сТПб-7166

Колосова С.С.

Проверил: Каспаров И.В.

Н. Новгород 2013 год



Общие указания

Контрольная работа представляется на проверку в электронном виде на CD диске или другом носителе информации и в распечатанном виде.

Пояснительная записка должна включать в себя:

1. Титульный лист, который должен содержать данные студента и его учебный шифр. Он представляется на проверку в напечатанном виде на стандартном листе формата А4;

2. Задание на контрольную работу;

3. Описание основных этапов решения задач;

4. Расчётные формулы и комментарии к ним и т.п.;

5. Список использованной литературы.



Задание и методические указания к выполнению контрольной работы

Контрольная работа выполняется в системе программирования Borland Pascal и содержит 4 задачи.

В 1-ой задаче предлагается вычислить приближённое значение функций, заданных бесконечными рядами, что широко используется при составлении всевозможных таблиц специальных функций.

Задачи 2 и 3 посвящены обработке матричной и символьной информации соответственно.

Задача 4 является ключевой, в ней создаётся меню, пункты которого вызывают предыдущие задачи.

Вариант 1-й и 3-й задачи выбирается по последней, а 2-й - по предпоследней цифрам учебного шифра студента. Вариант 4 задачи использует ранее выбранные.



Задача 1

Задание. Для функций, представленных ниже бесконечными рядами, вычислить их приближённые значения с точностью е=10^-3 в точке x=1,5.

Вариант 6

=.

Описание основных этапов решения задач.

При написании программы, я включила в нее следующие шаги:

1. Программа выполняет формулу, стоящую в правой части равенства, и выводит на экран ее значение при x=1,5;

2. Программа вычисляет приближенное значение бесконечного ряда, указанного в правой части равенства с точностью до члена ряда, меньшего е=10^-3 для x=1,5.

3. Программа находит разность между первым и вторым значениями и выводит ее на экран как погрешность.

Расчётные формулы и комментарии к ним.

Поскольку выражение для разложения бесконечного ряда содержит факториал, то для простоты вычисления я выразила к-ый член ряда через (к-1)-й.

матрица символ погрешность функция

Значение первого члена ряда я вычислила и задала до цикла с помощью оператора присваивания, а значения последующих членов - по формуле (1).

Текст программы.

Program vichislenie;

Uses crt;

Var

x,y:real;

exp,a,s,p:real;

k:integer;

begin

clrscr;

writeln;

write(`Вычислим значение функции y=(x+1)*e^x при x=1.5');

x:=1.5;

writeln;

y:=(1+x)*exp(x);

write(`y=');

writeln(y);

writeln(`Вычислим по-другому');

a:=1;

s:=0;

k:=0;

writeln(`Вычислим приближенное значение правой части равенства, представленной бесконечным рядом с точностью до exp=10^-3');

exp:=0.001;

while abs(a)>=eps do

begin

s:=s+a;

k:=k+1;

a:=a*x*(k+1)/(k*k);

end;

writeln(`сумма ряда=',s);

writeln(`вычислим погрешность');

p:=y-s;

writeln(`Погрешность равна',p);

readln;

end.

Задача 2

Задание. Составить и выполнить программу согласно своему шифру (см. указание к выполнению контрольной работы).

В а р и а н т 6

Для заданной вещественной матрицы размера 4Х4 найти ее максимальный элемент и указать строку и столбец, в которых он находится.

При написании программы я использовала цикл.

Текст программы.

Program matrix;

Var

A: array[1..4,1..4] of integer;

i,k:byte;

s:=integer;

begin

writeln;

writeln;

writeln(`Задача для обнаружения максимального элемента матрицы.');

writeln;

writeln(`Матрица размера 4х4 задается компьютером случайным образом:');

writeln;

randomize;

begin

for i:=1 to 4 do

begin

for k:=1 to 4 do

A[i,k]:=trunc(random*100)+1;

end;

end;

begin

for i:=1 to 4 do

begin

for k:=1 to 4 do

write(A[i;k]:7,' `);

writeln;

end;

writeln;

end;

writeln;

s:=A[1,1];

begin

for i:=1 to 4 do

begin

for k:=1 to 4 do

if A[i,k]>s then s:=A[i,k];

end;

end;

write(`Максимальный элемент матрицы `);

write(s);

writeln;

writeln;

begin

for i:=1 to 4 do

begin

for k:=1 to 4 do

if A[i,k]=s then

writeln(`Строка максимального элемента ',i,' Столбец максимального элемента ',k);

end;

end;

readln;

end.

Задача 3

Задание. Составить и выполнить программу согласно своему шифру (см. указание к выполнению контрольной работы).

В а р и а н т 6

Ввести произвольную символьную цепочку. Отсортировать её символы в порядке неубывания (по алфавиту) вывести символы полученной цепочки с нечётных мест.

Program stroke;

Var

s,sn:string;

i,j,k:integer;

c:char;

begin

writeln;

writeln;

writeln(`Введите произвольно несколько буквенных символов с клавиатуры');

write(`s=');

readln(s);

for i:=0 to length(s) do

for j:=0 to length(s)-1 do

if s[j]>s[j+1] then

begin

c:=s[j+1];

s[j+1]:=s[j];

s[j]:=c;

end;

writeln;

writeln;

writeln(`А это символы, которые располагаются в предыдущей цепочке на нечетных местах');

sn:=' `;

for i:=1 to length(s) do

if i mod 2=1 then sn:=sn+s[i];

for i:=1 to length(sn) do

write(sn[i]);

readln;

end.

Задача 5

Составить программу, меню которой содержит 3 пункта, каждый из которых вызывает соответствующую программу из разработанных ранее согласно своему варианту в задачах 1-3.

Текст программы.

program zapusk;

uses dos;

begin

writeln;

writeln(`Эта программа сейчас запустит все три программы, которые были написаны ранее. Нажмите Enter, чтобы начать');

readln;

exec(`c:/z1.exe',' `);

SwapVectors;

writeln(`Для запуска программы из задачи2 нажмите Enter');

readln;

exec(`c:\z2.exe',' `);

SwapVectors;

writeln(`И снова нажмите Enter, чтобы запустить третью задачу');

readln;

exec(`c:\z3.exe',' `);

SwapVectors;

end.



Литература

Только интернет-ресурсы (сайты и форумы):

1. http://baspas.narod.ru;

2. http://vbrus.narod.ru/PascalInfo3.htm;

3. http://www.cyberforum.ru/pascal/thread103265.html;

4. http://www.cyberforum.ru/pascalabc/thread423268.html;

Размещено на Allbest.ru