Министерство рф по связи и информатизации Поволжский государственный университет телекоммуникаций и информатики
Сдана на проверку Допустить к защите
«_____»___________ 2012г. «_____»___________2012г.
Защищена с оценкой
«_____»___________2012г.
КОНТРОЛЬНАЯ РАБОТА ПО ПРОГРАММИРОВАНИЮ
Программирование основных алгоритмических структур на языке Free Pascal
Пояснительная записка
на ____листах
Студент(ка) группы _____________ Богодяж А.Д.
№ зач. кн. 113483
Руководитель Стефанова И.А
Самара
2012 г.
Оглавление
1 |
Рецензия |
|
|||
2 |
Оглавление |
|
|||
3 |
Выполнение заданий |
|
|||
|
3.1 |
Задание 1 |
|
||
|
3.2 |
Задание 2 |
|
||
|
3.3 |
Задание 3 |
|
||
|
3.4 |
Задание 4 |
|
||
|
3.5 |
Задание 5 |
|
||
4 |
|
Вывод по работе |
|
||
|
|
|
|||
3 Выполнение заданий
3.1 Задание 1
Вычислить значение переменных s и w, используя значения входных данных и расчетные формулы:
где х = 1,825, y = 18, z = -3.298
Теперь составим блок-схему алгоритма (рис. 1)
Расчет w
Напишем программу:
program Zadacha1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
const
x=1.825; y=18; z=-3.298;
var s,w:real;
begin
writeln ('x=',x:6:2,'y=',y:6, 'z=',z:6:2);
s:=abs(x*(y/x)-sqrt(y/x));
w:=(y-x)*(y-x/(y-x)/1+(y-x)*(y-x));
writeln('Result');
writeln;
writeln('s=',s:8:3,'w=',w:8:3);
readln
end.
Результаты выполнения задачи:
х = 1,825, y = 18, z = -3.298
Result
s = 14.859, w = 4521.200.
Замечания.
1. В программе предусмотрен форматный вывод вещественных переменных y и p, который устанавливает при выводе на печать 8 символов, 3 из которых отведены для дробной части.