Циклическая базовая конструкция

Тема: «Проект «Мой калькулятор»»

Цель работы

Развить навыки составления, отладки и запуска проектов системе программирования DELPHI.

Задание: Создать проект своего калькулятора, выполняющего четыре арифметических действия и вычисления с памятью: накапливание результатов, вычитание результатов.

В проекте предусмотреть вывод индикатора работы с памятью в виде символа «П».

Методические указания

1.Создать новый проект.

2. Поместить на форму компонент Edit1, который будет табло калькулятора и настроить его.

3. На форму поместить кнопку (Button), установить размер в виде клавиши набора цифры, выбрать размер и цвет шрифта, скопировать клавишу и вставить 20 копий.

4. Объявить глобально переменные:

Chislo: shortstring; // для запоминания первого числа вычислений

Vibor: integer; // для запоминания знака действия

Result: double; // для запоминания результата вычислений

Memory: double; // для вычислений в памяти калькулятора

5. Для события OnClick каждой кнопки прописать действие:

Edit1.Text: = Edit1.Text+’Символ на кнопке’;

Например:

Edit1.Text: = Edit1.Text+’1’; // для клавиши с цифрой 1

6. Для события OnClick кнопки с символом знака действия записать код:

Chislo: =edit1.text; // запоминаем первое число

Vibor: = 1; // для знака плюс, для минуса 2, для умножения 3, для деления 4

Edit1.Text: =’’; // очистка табло

7. Для события OnClick кнопки с символом «=», получения результата записать код:

Case vibor of

1: Result: =strtoint(chislo)+strtoint(edit1.text);

2: Result: =strtoint(chislo)-strtoint(edit1.text);

3: Result: =strtoint(chislo)*strtoint(edit1.text);

4: Result: =strtoint(chislo)/strtoint(edit1.text);

End;

Edit1.text: =floattostr(Result);

8. Для работы с памятью поместить на форму метку, в свойстве Caption набрать символ «П». Свойство Visible установить в значение «false». Поместить метку рядом с табло.

9. При нажатии на кнопки П+(сложение в памяти) или П-(вычитание памяти)

Записать:

Label1.visible: =true; // Признак работы с памятью

10. Для события OnClick кнопки с символом «П+» записать:

Memory: =memory + strtofloat(Edit1.text);

11. Для события OnClick кнопки с символом «П-» записать:

Memory: =memory - strtofloat(Edit1.text);

12. Для события OnClick кнопки с символом «П -> X» записать:

Edit1.text: = floattostr(memory);

13. Для события OnClick кнопки с символом «X -> П» записать:

Memory: =strtofloat(Edit1.text);

14. Очистка памяти:

Memory: =0;

15. Для события OnCreate Формы записать очистку памяти:

Memory: =0;

16. Запустите проект

СРСП(3 часа)

Задание 1.

Создайте калькулятор инженерного типа. Организуйте самостоятельно вычисление стандартных функций.

СРС(3 часа)

Задание 2. Решить задачи и создать проекты для реализации решения задач дополнительного задания.

Дополнительное задание

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

1. Найти сумму цифр заданного числа
2. Найти произведение цифр заданного числа.
3. Определить число, полученное выписыванием в обратном порядке цифр заданного трехзначного числа.

Лабораторная работа №6

Цели работы

 Получить навыки в использовании оператора условия при решении задач

 Научиться работать с составным оператором

Общий вид оператора цикла с параметром:

For i: =A to B do

Begin

Тело цикла;

End;

Переменные i, А, В должны быть порядкового (целого, символьного, логического, типа-диапазон, перечислимого) типа.

i - называют параметром цикла. При каждом выполнении цикла значение параметра увеличивается на 1. Последнее выполнение цикла при i =В.

Если А> В, цикл не выполняется ни разу.

Существует второй вид оператора цикла с параметром:

For i: =A downto B do

Begin

Тело цикла;

End;

Этот вид цикла отличается тем, что при каждом выполнении цикла значение параметра уменьшается на 1.

Постановка задачи

Составить программу для решения каждой из следующих задач:

1. Дано натуральное n. Вычислить:
1. 
2. 
3. 

СРСП

1. Даны натуральное число n, действительное число x. Вычислить
2. Получить таблицу температур по Цельсию от 0 до 100 градусов и их эквивалентов по шкале Фаренгейта, используя для перевода формулу: .

СРС

Дополнительное задание

1. Вычислить значение выражения для a = 1, 2, …, 100.

Лабораторная работа №7(СРСП, СРС)

Цели работы

 Углубить знания о циклических операторах

 Развивать умение правильно выбирать циклический оператор для решения конкретной задачи

число Фибоначчи определяется формулой f(n)=f(n-1)+f(n-2)
где f(0)=1, f(1)=1

Постановка задачи

Составить программу и блок-схему для решения каждой из следующих задач:

1. Подсчитать сумму цифр в десятичной записи целого неотрицательного числа num.

2. Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить порядковый номер наименьшего из них.

3. Найти первое число Фиббоначчи, большее m (m> 1).

4. Цилиндр объема единица, имеет высоту h. Определить радиус основания цилиндра для значений h, равных 0.5, 1, 1.5, …, 5.

Дополнительное задание

1. Найти число, полученное выписыванием в обратном порядке цифр заданного натурального числа num.

2. Указать сороковое число Фиббоначчи.

Лабораторная работа №8

Цели работы

 Закрепить умение работы с одномерными массивами

 Научиться определять необходимость применения массивов при решении задач

 Продолжить формирование логического и аналитического мышления, умения сравнивать факты и делать выводы

Методический материал

Массивы представляют собой совокупность однотипных элементов. При описании массива указывается его имя, размерность и тип элементов массива.

Например:

Type

Mas = array[1..1000] of integer;

Var

Voprosy, prav_otv: array[1..300] of shortstring;

otvety: array[1..300, 1..5] of shortstring;

fix, ans: Mas;

В приведенном притмере описания описаны тип массива под названием Mas, одномерные массивы Voprosy, prav_otv, двумерный массив otvety строкового типа и два массива fix, ans с элементами целого типа. Подобное описание можно использовать при создании проекта «Программа тестирования». Массивы Voprosy, otvety, prav_otv могут быть использованы для размещения в программе вопросов, вариантов ответов и правильных ответов в тестах для тестирования. Массивы fix, ans используются для определения случайного порядка вопросов, отобранных для тестирования. Элементы в этих массивах не повторяются по значению.

Пример. Создадим проект, в котором определяются два массива.

Первый массив типа, описанного выше Mas представляет собой массив случайных неповторяющихся целых чисел. Для этого массива через поля ввода задаются его размерность, т.е число элементов и максимальное значение для этих элементов. Например, в базе для тестирования имеются 500 вопросов, из них случайным образом отбираются 25. Тогда число элементов массива будет 25, а максимальное значение для элементов будет равно 500.

Второй массив получается из первого путем сортировки (например, методом пузырьковой сортировки).

Выполним команду создания нового проекта. На форму разместим метки для соответствующих надписей, два поля ввода, два Мемо-поля, в которые будем выводить найденные массивы, и три кнопки. Первая с надписью «Найти массив» будет определять массив случайных неповторяющихся чисел. Вторая с надписью «Сортировать» будет отсортировывать элементы массива в порядке возрастания их значений. Такой массив позволяет нам убедиться в том, элементы массива не повторяются по значению. Третья кнопка предназначена для закрытия проекта.

Опишем в разделе типов тип Mas.

Глобально объявим переменные:

fix: mas; // массив случайных не повторяющихся чисел

rmax, ksl: integer;

// rmax – число элементов массива; ksl – максимальное значение элементов массива

Код кнопки «Найти массив»:

Var I, j, n: integer;

Yes: Boolean;

Begin

Memo1.clear;

rmax: =strtoint(edit1.text);

ksl: = strtoint(edit2.text);

for i: = 1 to rmax do

fix[i]: =0;

i = 1;

While i < =rmax do begin

n: = random(ksl) +1; // 1 прибавляется для исключения значения 0

yes: =false;

for j: =1 to I do

if fix[j]=n then begin

yes: =true; break;

end; //if

if not yes then begin

fix[i]: =n;

memo1.Lines.Add(inttostr(fix[i]));

inc(i);

end;

end; //while

end; // proc end; //if

Сортировка будет выполняться «пузырьковым» способом. При каждом проходе попарно сравниваются два рядом стоящих элемента. Если они не удовлетворяют условиям сортировки, то они меняются местами. Сортировка будет завершена, если при очередном проходе не было выполнено ни одной перестановки.

Код кнопки «Сортировать»:

Var

i, j, k: integer;

yes: Boolean;

begin

memo2.clear;

repeat

yes: =true; // Массив отсортирован

for i: = 1 to rmax-1 do

if fix[i] > fix [i+1] then

begin

yes: =false;

k: =fix[i];

fix[i]: =fix[i+1];

fix[i+1]: = k;

end; //if

until yes;

for i: = 1 to rmax-1 do

memo2.Lines.Add(inttostr(fix[i]));

end; // proc

СРСП

Добавьте в проект третье Мемо-поле и еще одну кнопку с надписью «Линейная сортировка». Выполните линейную сортировку массива. Суть линейной сортировки заключается в определении минимального (максимального) элемента, перемещении его на первое место и отсечении найденного элемента. В оставшейся части массива повторяется тот же самый процесс.

Рисунок 8

СРСП(3 часа)

Задание 1. Решить задачи и создать проекты для реализации решения задач.

Постановка задачи

Составить программу и блок-схему для решения каждой из следующих задач:

1. Вывести на экран только отрицательные элементы одномерного массива и подсчитать их количество.

2. В последовательности чисел подсчитать количество элементов равных первому; последнему.

3. Даны два одномерных массива одинаковой длины. Получить третий массив сложение соответствующих элементов первых двух массивов.

СРС(3 часа)

Задание 2. Решить задачи и создать проекты для реализации решения задач дополнительного задания.

Дополнительное задание

Подсчитать сколько элементов одномерного массива не превосходят среднего значения всех элементов.

Лабораторная работа №9 (СРСП, СРС)

Цели работы

 Закрепить умение работы с двумерными массивами

 Научиться определять необходимость применения массивов при решении задач

 Продолжить формирование логического и аналитического мышления, умения сравнивать факты и делать выводы

Постановка задачи

Составить программу и блок-схему для решения каждой из следующих задач:

1. Вывести на экран только четные строки двумерного массива.

2. Найти произведение всех элементов, которые не меньше элемента, стоящего во втором столбце и второй строке.

3. Дана действительная матрица размера 6х9. Найти среднее арифметическое наибольшего и наименьшего значений ее элементов.

Дополнительное задание

Найти сумму элементов квадратной матрицы, которые лежат выше главной диагонали.

Цели работы

 Закрепить умение работы со строками

 Сравнить работу со строками и работу с массивами

 Продолжить формирование логического и аналитического мышления, умения сравнивать факты и делать выводы

Методический материал

Для работы со строками используйте функции:

Length(s); - возвращает длину строки в символа, т.е. число символов в строке.

Например, если n: = Length (‘Иванов’); , то значение n будет равно 6.

Copy(s, k, n); - копирует из строки s символы, начиная с k-го, всего – n символов.

Например, если s1: = Copy(‘Иванов’, 2, 3); , то значение s1 = ‘ван’.

Pos(s1, s); - возвращает номер позиции вхождения сочетания символов s1 в s.

Например, если n: = pos(‘до’, ’Сидоров’); Значение n будет равно 3, так как с третьей позиции сочетание символов ‘до’ входит в строку.

Процедура Delete(s, k, n); - удаляет из строки s символы, начиная с k-го, всего – n символов.

Например, если s1: = delete(‘Иванов’, 2, 3); , то значение s1 = ‘Иов’.

В приведенных примерах вместо символьных констант могут быть указаны строковые переменные.

Постановка задачи

Составить программу и блок-схему для решения каждой из следующих задач:

1) Дана строка, состоящая из нескольких слов. За последним словом – точка.

a) Удалить из строки лишние пробелы между словами, т.е. оставить только по одному пробелу, если их несколько.

b) Разделить строку на слова и найти самое короткое слово в массиве.

Дополнительное задание

Подсчитать, сколько раз в строке встречается первое слово.

Лабораторная работа №11

Тема: «Процедуры и функции»

Цели работы

 Закрепить навыки написания и использования процедур и функций

 Содействовать познавательному интересу к изучаемому предмету

 Продолжить формирование логического и аналитического мышления, умения сравнивать, делать выводы.

Методический материал

Задание 1. В проекте определения массива случайных неповторяющихся чисел (лабораторная работа № 8) объявить в интерфейсной части модуля описания главной формы процедуру

Procedure sluch (var fix: mas; rmax, ksl: integer);

А затем описать ее в выполняемой части модуля.

Procedure sluch (var fix: mas; rmax, ksl: integer);

Var I, j, n: integer;

Yes: Boolean;

Begin

rmax: =strtoint(edit1.text);

ksl: = strtoint(edit2.text);

for I: = 1 to rmax do

fix[I]: =0;

I: =1;

while I< = rmax do begin

n: = random(ksl) +1; // 1 прибавляется для исключения значения 0

yes: =false;

for j: =1 to I do

if fix[j]=n then begin

yes: =true; break;

end; //if

if not yes then begin

fix[I]: =n;

inc(i);

end;

end; //while

end; // proc

В коде кнопки «Найти массив» организовать вызов процедуры sluch и вывод элементов полученного массива в Мемо1.

Var I: integer;

Begin

Memo1.Clear;

rmax: =strtoint(edit1.text);

ksl: = strtoint(edit2.text);

sluch(fix, rmax, ksl); // вызов процедуры

for I: = 1 to rmax do

memo1.Lines.Add(inttostr(fix[I]));

end; // proc

Постановка задачи

Составить программу и блок-схему для решения каждой из следующих задач:

Написать программы с применением процедур:

1. Вывести на экран строку из повторяющегося заданного символа заданной длины.

2. Вывести на экран все простые числа из заданного диапазона.

3. Вывести на экран заданный массив по 6 чисел в строке.

Дополнительное задание

1. Написать процедуру, которая вычисляем максимальный элемент массива и меняют его местами с первым элементом.
2. Написать программу, которая заменяет все отрицательные элементы массива нулями.

Составить программу и блок-схему для решения каждой из следующих задач:

3. Даны длины a, b и c сторон некоторого треугольника. Найти медианы треугольника. (Замечание: длина медианы, проведенной к стороне а, равна .)

4. Даны координаты вершин двух треугольников. Определить, какой из них имеет наибольшую площадь.

5. Даны два двумерных массива 10-порядка. Напечатать тот из них, у которого наименьший след (сумма диагональных элементов), считая, что такой массив один.

6. Для одномерного массива определить значение наибольшего элемента. Использовать подпрограмму-функцию.

Лабораторная работа №12

Цели работы

 Выработать умения, навыки работы с комбинированными типами

 Научить работать с типом Запись

 Развивать аналитическое и логическое мышление

Постановка задачи

Составить программу и блок-схему для решения каждой из следующих задач:

Задать тип-запись для реализации записной книжки: фамилия, имя, отчество, дата рождения, адрес, телефон.

Осуществить поиск в массиве из 10 записей по:

А) фамилии

Б) по любому полю записи

Дополнительное задание

Разработать самим некоторый тип запись и написать программу для задания массива таких записей и вывода их на экран в табличной форме.

Лабораторная работа №13, 14

Тема: «Текстовые файлы»

Цели работы

 Закрепить умения и навыки работы с текстовыми файлами

 Углубить знания о файлах

 Развивать логическое и аналитическое мышление

 Развивать умение сравнивать факты, делать выводы

Методический материал

Рассмотрим пример использования текстовых файлов в проекте «Программа тестирования» в простейшем варианте.

Рисунок 10. Основная форма

2. Объявите глобальные переменные после строки Form1: Tform1;:

vopros: array[1..100] of shortstring; // массив для записи вопросов в тесте

otvet: array[1..1000, 1..5] of shortstring; // массив для записи ответов в тесте

prav_otv: array[1..1000] of shortstring; // массив для записи правильных ответов

reiting: integer; // переменная для подсчета рейтинга

rmax, ksl: integer; // переменные передаваемые в процедуру sluch для выбора случайным //образом rmax вопросов для тестирования из числа имеющихся ksl.

rmax1, ksl1: integer; // для перемешивания вариантов ответа

fix: mas; // массив для запоминания номеров вопросов используемых в тесте

answer: mas; // массив для запоминания номеров ответов в случайном порядке num_vopr: integer; // номер вопроса

3. Подсоедините к проекту модуль mylib, содержащий процедуру sluch (см. лаб. работу 11).

Procedure sluch (var fix: mas; rmax, ksl: integer);

Код формы с организацией тестирования:

unit Unittest;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, mylib,

StdCtrls, ExtCtrls, Buttons;

type

TForm1 = class(TForm)

Label1: TLabel;

RadioGroup1: TRadioGroup;

Label2: TLabel;

Label3: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Label4: TLabel;

Image1: TImage;

Label5: TLabel;

procedure FormCreate(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

vopros: array[1..100] of shortstring; // массив для записи вопросов в тесте

otvet: array[1..1000, 1..5] of shortstring; // массив для записи ответов в тесте

prav_otv: array[1..1000] of shortstring; // массив для записи правильных ответов

reiting: integer; // переменная для подсчета рейтинга

rmax, ksl: integer; // переменные передаваемые в процедуру sluch для выбора случайным //образом rmax вопросов для тестирования из числа имеющихся ksl.

rmax1, ksl1: integer; // для перемешивания вариантов ответа

fix: mas; // массив для запоминания номеров вопросов используемых в тесте

answer: mas; // массив для запоминания номеров ответов в случайном порядке num_vopr: integer; // номер вопроса