Технологии программирования

 

 

ФЕДЕРАЛЬНОЕ АГЕНТСТВО  ПО ОБРАЗОВАНИЮ 

Государственное образовательное  учреждение высшего профессионального  образования «ЧЕЛЯБИНСКИЙ ГОСУДАРСТВЕННЫЙ  ПЕДАГОГИЧЕСКИЙ УНИВЕРСИТЕТ»

Кафедра информатики и методики преподавания информатики

 

 

 

 

 

 

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

по  предмету

«Технологии программирования»

 

1 вариант

 

 

Исполнитель:

Яшукова О. В.

студентка  1 курса ОЗО факультета информатики

 

Проверил:

 

 

 

 

 

 

 

Челябинск, 2008

 

Простейшие программы

 

{Условие задачи:

Дана сторона равностороннего  треугольника. Найти площадь этого треугольника, радиусы вписанной и описанной окружностей.

Спецификация задачи:

Дано: сторона равностороннего  треугольника.

Найти: площадь треугольника, радиусы  вписанной и описанной окружности треугольника.}

 

program zadacha1;

 

{$APPTYPE CONSOLE}

 

uses

  SysUtils;

 

var

a,s,p:real;

r1,r2:real;

   {a – вводимое  значение стороны треугольника, p – полупериметр треугольника, s – площадь треугольника, r1 – радиус  вписанной окружности треугольника, r2 – радиус описанной окружности  треугольника.}

begin

  { TODO -oUser -cConsole Main : Insert code here }

// Вывод данных студента и краткого описания назначения программы

writeln('Romanov Ivan, 1 curs OZO "IT v obrazovanii"');

writeln('==============================================================');

writeln('Programma dlya rascheta parametrov ravnostoronnego treugolnika');

// Вывод пустой  строки

writeln;

// Вывод запроса  на введение значения стороны  треугольника

writeln('vvedite znachenie storoni treugolnika');

// Ввод значения стороны треугольника

readln(a);

// Присвоение  полупериметру значения переменной p

p:=p;

// Присвоение полупериметру нулевого значения

p:=0;

// Присвоение  полупериметру формулы расчета  его искомого значения

p:=3*a*0.5;

// Присвоение  площади значения переменной s

s:=s;

// Присвоение  площади нулевого значения

s:=0;

// Присвоение  площади формулы расчета ее искомого значения

s:=0.5*a*a*(sqrt(3)/2);

// Вывод искомого значения площади

writeln('ploschad=',s);

// Присвоение радиусу вписанной окружности значения переменной r1

r1:=r1;

// Присвоение радиусу вписанной окружности нулевого значения

r1:=0;

// Присвоение радиусу вписанной окружности формулы расчета ее искомого значения

r1:=s/p;

// Вывод искомого значения радиуса вписанной окружности

writeln('radius vpisannoy okrujnosty=',r1);

// Присвоение радиусу описанной окружности значения переменной r2

r2:=r2;

// Присвоение радиусу описанной окружности нулевого значения

r2:=0;

// Присвоение радиусу описанной окружности формулы расчета ее искомого значения

r2:=(a*a*a)/(4*s);

// Вывод искомого значения радиуса описанной окружности

writeln('radius opisannoy okrujnosty=',r2);

// Задержка экрана

readln;

end.

 

Объем оперативной памяти, необходимый для хранения данных:

5 переменных типа real × 4 байта = 20 байт

 

Тестирование программы

 

Исходное значение a	Прогноз работы программы				Результат работы программы				Совпадение
	p	s	r1	r2	p*	s	r1	r2
5	7,50	10,83	1,44	2,89	7,50	1,082×101	1,44	2,89	+
13	19,50	73,18	3,75	7,51	1,95×101	7,318×101	3,75	7,51	+
144	216,0	8978,95	41,57	83,14	2,160×102	8,97895×103	4,157×101	8,314×101	+
1000	1500	433012,70	288,68	577,35	1,500×103	4,3301270×105	2,8868×102	5,7735×102	+

Условный оператор

 

{Условие задачи:

Дано трехзначное число N. Проверить, будет ли сумма его цифр четным числом.

Спецификация задачи:

Дано: трехзначное число.

Найти: будет ли сумма цифр введенного числа четной.}

 

program zadacha2;

 

{$APPTYPE CONSOLE}

 

uses

  SysUtils;

 

var

   a,b,c,d,f,s:integer;

{ d – введенное трехзначное число,  a – первая цифра числа, b – вторая цифра числа, c – третья цифра числа, f – показатель четности суммы цифр числа, s – сумма цифр числа}

begin

// Вывод данных студента и краткого описания назначения программы

 writeln('Romanov Ivan, 1 curs OZO "IT v obrazovanii"');

 writeln('================================================================');

 writeln('Programma dlya opredeleniya chetnosty summy trehznachnogo chisla');

// Вывод пустой строки 

writeln;

//Вывод запроса о вводе трехзначного числа

writeln('Vvedite luboe trehznachnoe chislo:');

//Ввод числа 

readln(d);

//Находим первую  цифру этого числа 

a:=d  mod  10;

//Урезаем данное  число на 1 цифру справа

d:=d div 10;

//Находим вторую  цифру этого числа 

b:=d  mod 10;

//Урезаем оставшееся  число ещё на 1 цифру справа

d:=d div 10;

//Находим третью  цифру этого числа  

c:=d mod 10;

//Вычисляем сумму  цифр введенного трехзначного  числа

s:=a+b+c;

//Вывод суммы  на экран

write ('summa = ',s);

//Проверяем полученную  сумму на четность

f:=s mod 2;

//В зависимости  от результатов проверки выводим  результат

if f=0 then writeln(' - chetnaya summa') else writeln(' - NEchetnaya summa');

//Задержка экрана

readln;

end.

 

Объем оперативной памяти, необходимый  для хранения данных:

6 переменных типа integer × 4 байта = 24 байт

 

Тестирование программы

 

Исходное значение d	Прогноз работы программы	Результат работы программы	Совпадение
111	«summa = 3 - NEchetnaya summa»	«summa = 3 - NEchetnaya summa»	+
123	«summa = 6 - chetnaya summa»	«summa = 6 - chetnaya summa»	+
678	«summa = 21 - NEchetnaya summa»	«summa = 21 - NEchetnaya summa»	+
888	«summa = 24 - chetnaya summa»	«summa = 24 - chetnaya summa»	+

 

^* Определяется косвенно, за счет совпадения остальных значений переменных.