- •Методические указания по выполнению лабораторно-практических работ
- •1 Решим простейший пример: найти сумму трех чисел.
- •Программирование циклических алгоритмов. Циклы «до» и «пока»
- •Лабораторная работа №10
- •Оператор параметрического цикла for
- •Работа с массивами
- •Оператор варианта
- •Работа со строками в объектно-ориентированном программировании. Оператор цикла с параметрами
- •Лабораторная работа №7
- •Процедуры и функции
- •Практические задания
- •Лабораторная работа №8
- •1. Программа, которая определяет, есть ли одинаковые числа в трехзначном числе.
- •2. В одномерном массиве вывести на экран четные числа и нечетные числа.
- •3. Из введенной последовательности символов, признаком конца которой является '0', сформировать множество заглавных и строчных латинских букв.
- •Множественный тип
- •Практические задания
- •Лабораторная работа №9
- •Label Edit Button Memo
- •Лабораторная работа №10
- •Лабораторная работа №11
- •Implementation
- •Лабораторная работа №12
- •Лабораторная работа №13
- •Лабораторная работа №14
- •Implementation
- •Практическая работа Случайный выбор из списка
- •Практическая работа «Тест»
- •Типы бд в Delphi
- •1. Создание каталога
- •2. Создание псевдонима
- •3. Создание таблицы
- •4. Разработка приложения, работающего с бд
- •Создание каталога и псевдонима
- •Создание таблицы
- •Создание формы
- •Вставка изображений в бд
- •Заключение
1 Решим простейший пример: найти сумму трех чисел.
Описываем после служебного слова VARнесколько переменных целого типа для удобства решения:Vara,b,c,s:integer;
На форму заводим 3 метки: Label1, Label2, Label3. У каждой из них в свойствеCaptionнаписать соответственно а=, в=, с=.
Наносим однострочные элементы управления Edit1, Edit2, Edit3. В них будем вводить числа. Для этого в свойствеTextнужно удалить надписи.
Заводим кнопку, которую называем Cумма
Наносим элемент управления Memo1и удаляем все надписи в многострочном редакторе. Для этого в окне Свойства объекта выбираем свойствоLinesи удаляем все надписи в нем.
Примерно ваша форма должна выглядеть так:
procedure TForm1.Button1Click(Sender: TObject);
Var a, b, c, s: integer;
begin
a:=StrToInt(Edit1.text);
b:=StrToInt(Edit2.text);
c:=StrToInt(Edit3.text);
s:=a+b+c;
Memo1.Text:=IntToStr(s);
end;
end.
Активируем двойным щелчком мыши кнопку. Появляется процедура TForm1.Button1Click(Sender: TObject);
В теле процедуры присваиваем заведенным переменным значения строк следующим образом a:=StrToInt(Edit1.text);(аналогично дляbиc)
Вычисляем сумму s:=a+b+c;
Выводим результат в Memo1. Для этого записываемMemo1.Text:=IntToStr(s);
Задания для самостоятельной работы:
1.Дано четырехзначное число А. Составить программу, которая бы выводила заданное число, записанное теми же цифрами но в обратном порядке.
var a1,b,c,d,a,r:integer;
begin
read(a);
a1:=a div 1000;
b:=a div 100 mod 10;
c:=a mod 100 div 10;
d:=a mod 10;
r:=d*1000+c*100+b*10+a1;
write®;
end.
2.Дано пятизначное число А. Составить программу, которая бы находила среднюю цифру и сумму первой, второй, четвертой и пятой цифры.
vara,r1,r2:integer;
begin
read(a);
r1:=a div 100 mod 10;
r2:=(a div 10000)+(a div 1000 mod 10)+(a mod 100 div 10)+(a mod 10);
write(r1,' ',r2);
end.
3.Вычислить сопротивление электрической цепи r, который состоит из двух параллельно соединенных элементов с сопротивлениямиr1,r2. Результат округлить до сотых.
varr1,r2,r:real;
begin
read(r1,r2);
r:=(r1*r2)/(r1+r2);
writeln(r:2:2);
end.
4.
5.
Контрольные вопросы:
Что такое переменные?
Виды типов переменных?
Понятие о вещественном типе?
Лабораторная работа №2.
Тема: Решение задач на работу с вещественным типом данных.
Цель: Ознакомить с основными операторами и их использование в программе.
Программирование циклических алгоритмов. Циклы «до» и «пока»
Как уже говорилось, известны три типа циклических алгоритмических структур. Была рассмотрена только одна из них – цикл с параметром. Поговорим об остальных:
цикл с предусловием
цикл с постусловием
Существуют операторы для их реализации.
1. Цикл с предусловием (цикл-«пока»)- наиболее универсальная циклическая структура. Реализуется операторомWhile. Формат оператора:
While <логическое выражение> do <тело цикла>
Пока значение логического выражения истинно (true), выполняется тело цикла, тело может быть простым или составным оператором.
2. Цикл с постусловием (цикл-«до») имеет формат
Repeat < тело цикла > until < логическое выражение >
Повторяется выполнение тело цикла. Цикл заканчивается, когда логическое выражение становится истинным. Тело цикла с постусловием выполняется хотя бы один раз. Использование операторных скобок для ограничения тела цикла не требуется.
Для гибкого управления циклическими операторами используют следующие процедуры:
Break – реализует немедленный выход из цикла
Continue – обеспечивает досрочное завершение очередного прохода цикла.