![](/user_photo/2706_HbeT2.jpg)
- •Методические указания по выполнению лабораторно-практических работ
- •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. Разработка приложения, работающего с бд
- •Создание каталога и псевдонима
- •Создание таблицы
- •Создание формы
- •Вставка изображений в бд
- •Заключение
Лабораторная работа №7
Тема: Решение задачи с применением операторов цикла итерационного типа.
Цель: Ознакомить с понятием локальные и глобальные переменные.
Процедуры и функции
Процедура Delete(St, poz, n)– удаление n символов строки St, начиная с позиции Poz.
Значение St |
Выражение |
Результат |
‘абвгде’ |
Delete(St, 4, 2); |
‘абве’ |
‘река Волга’ |
Delete(St, 1, 5); |
‘Волга’ |
Процедура Insert (S1, S2, Poz)– вставка строки S1 в строку S2, начиная с позиции Poz.
Значение S1 |
Значение S2 |
Оператор |
Результат |
‘ ЕС ’ |
‘ЭВМ1841’ |
Insert (S1, S2, 4); |
‘ЭВМ ЕС 1841’ |
‘ N’ |
‘ Рис. 2’ |
Insert (S1, S2, 6); |
‘ Рис. N2’ |
Процедура Str(N,St)– преобразование числового значения N в строковый и помещение результата в строку St.
Значение N |
Выражение |
Результат |
1500 |
Str (N:6,St); |
‘ 1500’ |
Процедура Val(St, N,Code)– преобразует значение St в величину целочисленного или вещественного типа и помещает результат в N. Code – целочисленная переменная. Если во время операции преобразования ошибки не обнаружено, значение Code равно 0, если же обнаружена ошибка, то Code будет содержать номер позиции первого ошибочного символа, а значение N не определено.
Значение St |
Выражение |
Результат |
‘1500’ |
Val(St, N,Code); |
Code=0 |
’14.2A+02 |
Val(St, N,Code); |
Code=5 |
Функция Copy(S, Poz, N)– выделяет из строки S подстроку длиной N символов, начиная с позиции Poz.
Значение S |
Выражение |
Результат |
‘Мама мыла раму’ |
Copy(S, 6, 4); |
‘мыла’ |
Функция Concat(S1,S2,…,Sn)– выполняет сцепление строк S1,S2,…,Sn в одну строку.
Выражение |
Результат |
Concat(‘Мама ’,’мыла ’,’раму’) |
‘Мама мыла раму’ |
Функция Length(S)– определяет текущую длину строки S.
Значение S |
Выражение |
Результат |
‘1500 символов’ |
Length(S) |
13 |
Функция Pos(S1,S2)– определяет первое появление в строке S2 подстроки S1.
Значение S2 |
Выражение |
Результат |
‘abcdef’ |
Pos(‘cd’,S2) |
3 |
‘abcdef’ |
Pos(‘k’,S2) |
0 |
Функция UpCase (ch)– преобразует строчную букву в прописную. Обрабатывает буквы только латинского алфавита.
Значение Ch |
Выражение |
Результат |
‘d’ |
UpCase (ch) |
‘D’ |
Практические задания
Даны строки S1 иS2. Проверить, содержится ли строкаS2 в строкеS1. Если содержится, то вывестиTrue, если не содержится, то вывестиFalse.
Дана сторона квадрата a. Найти его периметр
Даны стороны прямоугольника aиb. Найти его площадь
и периметр
Дан диаметр окружности d. Найти его длину
Даны длины ребер a,b,cпрямоугольного параллелепипеда. Найти его объем
и площадь его поверхности
Даны катеты прямоугольного треугольника aиb. Найти его гипотенузуcи периметрP:
,
Даны два числа aиb. Найти их среднее арифметическое:
Даны два ненулевых числа. Найти сумму, разность, произведение и частное их квадратов.
Найти сумму цифр трехзначного числа.
Дано натуральное число. Поменять его знак на противоположный.