Объект Свойство Значение Label1 Caption Моя первая программа



жүктеу/скачать 1.52 Mb.
бет5/23
Дата25.09.2023
өлшемі1.52 Mb.
#478523
түріПрограмма
1   2   3   4   5   6   7   8   9   ...   23
Лабораторные

Развитие задачи.

  1. Замените точечный график на линейный: вызовите опцию Edit Chart. Удалите набор данных Series1, вставьте новый набор Series1 и выберите для него линейный график (Line), запустите программу.

КОНТРОЛЬНЫЕ ЗДАНИЯ


  1. Сделайте параллельный ввод данных для двух наборов (серий), например, для оценок по двум предметам.

Создание текстового редактора, в который можно загрузить файл, отредактировать его и сохранить

  1. Вызвать текстовый редактор Блокнот и создать в нем текстовый файл My_text.txt с содержанием:

Button - кнопка
RadioButton - переключатель
Label - надпись
Edit - строка текста
Memo - редактор текста

  1. Сохранить файл в папку MEMO.

  2. Начать новый проект и сразу сохранить его в папке Memo.

  3. Поместить компонент Memo в форму и установить для свойства ScrollBars (линейки прокрутки) значение ssBorth, а для свойства Align (размещение) значение alLeft (левая часть формы).

  4. Записать код для загрузки файла при создании формы:

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.lines.LoadFromFile('My_text.txt');

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

procedure TForm1.FormClose…
begin
Memo1.lines.SaveToFile('My_text.txt');

  1. Запустить программу. Добавить что-нибудь в появившийся текст. Закрыть программу.

  2. Запустить ее еще раз и убедиться, что загружается откорректированный текст.

КОНТРОЛЬНЫЕ ЗДАНИЯ


  1. Добавить группу переключателей (RadioButton) для выбора цвета шрифта и записать соответствующий код.

  2. Добавить группу переключателей для выбора размера шрифта.

  3. Добавить группу переключателей для выбора вида шрифта.

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


  1. Ввести значение x и вычислить значения следующих математических функций:

Cos(x) Ln(x) Power(x,k) Sqr(x) Sqrt(x) Sin(x) Log10(x) Exp(x)

  1. Поместить компоненты Label и Edit в окно формы Form1 и установить их свойства.

  2. Записать код для обработки события OnClick на объекте Button1:

procedure TForm1.Button1Click(Sender: TObject);
Var x, y1, y2 : real;
begin
x := StrToFloat(Edit1.Text);
y1 := cos(x);
y2 := ln(x);
Edit2.text := FloatToStr(y1);
Edit3.text := FloatToStr(y2);
end;

  1. Добавить возможность вычисления остальных функций. Учесть, что для использования функций Log10 и Power необходимо в строке Uses добавить в перечень модуль Math.

ЛИТЕРАТУРА

    1. Delphi 5: учебный курс, С. Бобровский, Питер 2002 г.

    2. Аладьев В.З., Хунт Ю.Я., Шишаков М.Л., Основы информатики. Учебное пособие, М., Филин, 1998, 496с.

    3. Информатика. Учебник под ред. Проф. Н.В. Макаровой, Финансы и статистика, 2001, 768с.

    4. Балафанов Е.К., Бурибаев Б., Даулеткулов А.. 30 уроков по информатике, Алматы, Джагамбек, 1999г, 442с (на русском и казахском языках)

    5. Фигурнов В.З. IBM PC для пользователя, 7 изд., Москва, ИНФРА, 1998, 328с.

    6. Каймин В.А., Питеркин В.М., Уртминцев А.Г. Информатика. Учебное пособие, 1998, 208с.

    7. Кенин А.М., Печенкин Н. Окно в мир компьютеров, Екатеринбург, Деловая книга, 1996

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


Более сложные задачи
ЦЕЛЬ РАБОТЫ
Цель лабораторной работы – освоение студентами основных понятий программирования, интерфейса среды программирования методов управления свойствами компонент.
ПРИЁМЫ ПРОГРАММИРОВАНИЯ

  1. Откройте среду программирования Delphi

Создание Windows-приложения для вычисления случайного числа и сравнения его с числом, введенным пользователем.

  1. П о результатам сравнения выдается сообщения: "Вы угадали", "Число меньше искомого", "Число больше искомого", "Число вне диапазона"

  2. Код:

var
Form1: TForm1; m : integer; {Случайное число}
...
procedure TForm1.Button1Click(Sender: TObject);
Var n : integer; s : string;
begin
n := StrToInt(Edit1.Text);
If (n < 0) Or (n > 10) Then s := 'Число вне диапазона'
Else if n > m Then s := 'Число больше искомого'
Else If n < m Then s := 'Число меньше искомогоl'
Else If n = m Then s := 'Вы угадали';
Label2.Caption := s;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize; m := Random (10);
end;
Игра "15"



На экране находятся 16 клеток по 4 в ряд. В начале игры в 15 клетках высвечено случайное число в диапазоне 1...15. Последняя клетка не заполнена. Игрок должен за минимальное количество ходов расположить числа в порядке возрастания. Каждый ход заключается в щелчке по одной панели с цифрами, после чего она перемещается на пустую панель.

  1. Поместить на форму объекты Panel1,..., Panel16 и выделить их

  2. В окне Object Inspector выбрать страницу Events. Дважды щелкнуть на событии OnClick. Будет создан обработчик событий, общий для всех выделенных объектов.

  3. Записать код:

procedure TForm1.Panel1Click(Sender: TObject);
var T,L : integer;
begin
With ( Sender as TPanel ) do
begin
L := Panel16.Left;
T := Panel16.Top;
Panel16.Left := Left;
Panel16.Top := Top;
Left := L; Top := T;
end;
end;

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

  2. Добавьте в программу кнопку перемешивания чисел в случайном виде.

  3. Разберитесь, почему программа работает не правильно, и попробуйте улучшить алгоритм.

  4. Оформите программу в красивом виде.

Вывод результатов расчётов в таблицу


  1. По нажатию кнопки вычислить должно происходить вычисление значений функции sin x в пределах, указанных в первых двух полях с шагом, указанным в третьем поле.

  2. Результаты вычислений необходимо внести в таблицу. Основное свойство таблицы – это двухмерный массив Cell, позволяющий обращаться к содержимому ячеек и изменять их содержимое. Например:

StringGrid1.Cells[0,0]:=’x=’;

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

жүктеу/скачать 1.52 Mb.

Достарыңызбен бөлісу:
1   2   3   4   5   6   7   8   9   ...   23



©dereksiz.org 2024
әкімшілігінің қараңыз
    Басты бет