Файл: LabsDelphi1.doc

V:=V+B;

V:=V*(1+p/100);

end;

Readln;

End.

Тесты

Тест 1.Входные данные:A=100;B=10;p=0;N=4.

Выходные данные:

i	V
1	100
2	110
3	120
4	130

Тест 2.Входные данные: A=100;B=10;p=1;N=3.

Ниже в фигурных скобках приведено значение V, полученное после вы­полнения оператора тела цикла для последовательных значенийi. Эти данные используются для проверки правильности программы с помощью трас­сировки.

i=1

writeln(i:7, V); {V=100}

V:=V+B; {V=110}

V:=V*(1+p/100); {V=111,1}

i=2

writeln(i:7, V); {V=111,1}

V:=V+B; {V=121,1}

V:=V*(1+p/100); {V=122,311}

i=3

writeln(i:7, V); {V=122,311}

V:=V+B; {V=132,311}

V:=V*(1+p/100); {V=133,63411}

Выходные данные:

i	V
1	100
2	111,1
3	122,311

Приложение 2. Пример проекта отчета по оконному приложению Условие

А—начальная стоимость оборудования. В первый год экс­плуата­ции стоимость оборудования снижается наВруб., а в каждый следую­щий год снижение стоимости уменьшается нар% (относительно предыду­щего года). Определить, через сколько лет стоимость обо­рудования станет меньшеА/2. Рассматривать срок не болееNлет.

Состав данных

Блок-схема алгоритма

Эскиз основной формы приложения

Программный код основного обработчика

Код приведен в лабораторной работе №5.

Тесты

Тест 1.Входные данные: A=100;B=20;p=1;N=5.

При трассировке тела цикла получим:

i=1

At:=At-Bt; {At=80}

Bt:=Bt-Bt*p/100; {Bt=19,8}

i=2

At:=At-Bt; {At= 60,2}

Bt:=Bt-Bt*p/100; {Bt= 19,602}

i=3

At:=At-Bt; {At= 40,598 – меньше A/2!}

Bt:=Bt-Bt*p/100; {Bt=19,40598}

Выходные данные: i=3.

Тест 2.Входные данные: A=100;B=20;p=1;N=2. Результат – фраза: "За 2 лет снижения нет".

БИБЛИОГРАФИЧЕСКИЙ СПИСОК

1. Зубов В.С., Батасова В.С. Сборник задач по базовой компьютерной подготовке: учебное пособие по курсу «Информатика»/ В.С. Зубов, В.С. Батасова. — М.: Издательский дом МЭИ, 2007.— 123 с.

2. Батасова В.С.Начальный курс программирования на основе алгоритмического языка Паскаль. Учебное пособие по курсу «Высокоуровневые методы информатики и программирования». – М.: Издательство МЭИ, 2006.–116 с.

3. Маран М.М.Delphi. Начальный курс: учебное пособие / М.М. Маран – М. изд-во МЭИ, 2002. – 100 с.

Содержание

Введение 3

Лабораторная работа №1. Реализация простейших циклических алгоритмов в консольном приложении среды Delphi 4

Лабораторная работа №2. Решение задач обработки массивов в консольном приложении среды Delphi 8

Лабораторная работа №3. Проектирование алгоритмов с использованием подпрограмм и их отладка в консольном приложении 10

Лабораторная работа №4. Решение задач с параметрами-подпрограммами и модулями в консольном приложении Delphi 11

Лабораторная работа №5. Разработка простейших оконных приложений в среде Delphi 12

Лабораторная работа №6. Создание оконных приложений обработки матриц в среде Delphi 15

Лабораторная работа №7. Программирование открытия и сохранения файлов с использованием стандартных диалоговых окон 19

Лабораторная работа №8. Разработка оконных приложений, использующих автономные модули 22

Лабораторная работа №9. Разработка оконных приложений, осуществляющих графический вывод 26

Лабораторная работа №10. Обработка исключительных ситуаций 32

Приложение 1. Пример проекта отчета по консольному приложению 33

Приложение 2. Пример проекта отчета по оконному приложению 38

БИБЛИОГРАФИЧЕСКИЙ СПИСОК 41

1Желающие узнать назначение этих файлов отсылаются к конспекту лекций или специальной литературе.

2Функции StrToFloat и FloatToStr работают с вещественными числами, для целых чисел надо использовать, соответственно, StrToInt и IntToStr.