Автор очень ответственно и профессионально подходит к выполнению заказов. Большое спасибо!
Информация о работе
Подробнее о работе
Лабораторные работы по программированию в Delphi
- 18 страниц
- 2016 год
- 0 просмотров
- 0 покупок
Гарантия сервиса Автор24
Уникальность не ниже 50%
Фрагменты работ
Лабораторная работа №1
1. Цель работы и задание
Написать программу, которая вычисляет сумму цифр трёхзначного числа, используя операторы div и mod.
2. Форма
3. Код программы
var
Form1: TForm1;
procedure TForm1.Button1Click(Sender: TObject);
var a, c, d, e, sum:integer;
begin
a:=StrToInt(edit1.text);
c:=a div 100;
d:=(a div 10) mod 10;
e:=a mod 10;
sum:=c+d+e;
label2.caption:=IntToStr(sum);
end;
1. Лабораторная работа №1
Написать программу, которая вычисляет сумму цифр трёхзначного числа, используя операторы div и mod.
2. Лабораторная работа №2
Написать программу, которая по заданным данным определяет время прибытия самолёта. Время отправления самолёта и время в пути задаются с клавиатуры. Время отправления задаётся в формате X часов Y минут Z секунд, время в пути задаётся в секундах.
3. Лабораторная работа №3
Написать программу, которая вычисляет дату следующего дня, используя оператор выбора case of. Исходные данные вводятся с клавиатуры.
4. Лабораторная работа №4
Составить программу, которая по числу n пар носков, которые хочет приобрести покупатель, рассчитывает наиболее выгодный вариант покупки: вычисляет кол-во коробок, связок и пар носков, которые ему следует купить. Все данные вводятся с клавиатуры.
5. Лабораторная работа №5
Создать матрицу 6x6 (данные вводятся с клавиатуры) и заменить диагональ матрицы на максимальные элементы в каждом столбце.
6. Лабораторная работа №6
Создать квадратную матрицу и заполнить её числами по спирали. Ранг матрицы (нечётное число) задаётся с клавиатуры.
Отчёт по лабораторным работам по программированию в Delphi (6 лабораторных работ). Отчёты содержат код и результаты работы программ.
Форма заказа новой работы
Не подошла эта работа?
Закажи новую работу, сделанную по твоим требованиям
