Курсовая работа по дисциплине «Информатика»



страница26/29
Дата14.02.2020
Размер0.91 Mb.
Название файлаKursovaya_rabota.docx
Учебное заведениеОренбургский Государственный Университет
ТипКурсовая
1   ...   21   22   23   24   25   26   27   28   29

3.2 Lazarus


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

Задание 1. Составьте программу, которая создает файл из элементов типа Char с помощью цикла while. Признак выхода из цикла – буква «z». Присвойте файлу новое имя ‘D2.DOC’ и выведите его содержимое на экран.

Задание 2. Сформулируйте и выведите на экран по строкам двумерный массив целых чисел 5х5. Найдите максимальный элемент и укажите его положение в массиве.

Задание 3. Составьте программу, которая по числу <1000, написанному арабскими цифрами, формирует его название.

Задание 4. Дана вещественная матрица размером NxM. Упорядочить ее строки по неубыванию их наибольших элементов.

Задание 5. Вывести график функции на отрезке [m,n], значения m и n задаются пользователем. Для построения графика используется вся допустимая область формы, причем если во время работы программы пользователь изменит размер окна, то график должен быть, перерисован заново, с учетом разных размеров окна. Координатные оси OX и OY должны быть промаштабированы 10-ю точками каждая.





Ход работы

Задание 2.

Записываем программный код:

procedure TForm1.Button2Click(Sender: TObject);

var

a:array[1..5,1..5,1..5] of integer;



i,j,k,m,i1,j1,k1:integer;

begin


for i:=1 to 5 do for j:=1 to 5 do for k:=1 to 5 do a[i,j,k]:=random(100)+1;

Memo1.Clear;

Memo2.Clear;

Memo3.Clear;

for i:=1 to 5 do

begin


for j:=1 to 5 do

begin


for k:=1 to 5 do Memo3.Lines.Add(IntToStr(a[i,j,k]));

Memo2.Lines.Add(IntToStr(a[i,j,k]));

end;

Memo1.Lines.Add(IntToStr(a[i,j,k]));



end;

{for i:=1 to 5 do for j:=1 to 5 do for k:=1 to 5 do Memo1.Lines.Add(IntToStr(a[i,j,k])); }

m:=a[1,1,1];

for i:=1 to 5 do for j:=1 to 5 do for k:=1 to 5 do if a[i,j,k]>m then

begin

m:=a[i,j,k];



i1:=i;

j1:=j;


k1:=k;

end;


Label6.Caption:=IntToStr(m)+' положение = '+IntToStr(i1)+IntToStr(j1)+IntToStr(k1);

end;


Запускаем проект. (Рисунок 19) (см. приложение)

Задание 5.

Пишем программный код:

procedure TForm1.MenuItem13Click(Sender: TObject);

begin

{5 задание }



Label1.Visible:=false;

Label2.Visible:=false;

Label3.Visible:=true;

Label4.Visible:=true;

Label5.Visible:=true;

Label8.Visible:=true;

Label9.Visible:=true;

Label10.Visible:=true;

Button1.Visible:=true;

Edit1.Visible:=true;

Edit2.Visible:=true;

Edit3.Visible:=true;

Edit4.Visible:=true;

UpDown1.Visible:=true;

Chart1.Visible:=true;

Label3.Visible:=false;

Label6.Visible:=false;

Button2.Visible:=false;

Memo1.Visible:=false;

Memo2.Visible:=false;

Memo3.Visible:=false;

end;


Запускаем проект.(Рисунок 20) (см.приложение).



Поделитесь с Вашими друзьями:
1   ...   21   22   23   24   25   26   27   28   29


База данных защищена авторским правом ©genew.ru 2020
обратиться к администрации

    Главная страница
Контрольная работа
Курсовая работа
Лабораторная работа
Рабочая программа
Методические указания
Практическая работа
Методические рекомендации
Теоретические основы
Пояснительная записка
Общая характеристика
Учебное пособие
История развития
Общие сведения
Физическая культура
Теоретические аспекты
Практическое задание
Федеральное государственное
Направление подготовки
Теоретическая часть
Техническое задание
Самостоятельная работа
Дипломная работа
Общие положения
Методическая разработка
государственное бюджетное
Образовательная программа
квалификационная работа
Выпускная квалификационная
Технологическая карта
Техническое обслуживание
Решение задач
учебная программа
Методическое пособие
История возникновения
Краткая характеристика
Исследовательская работа
Рабочая учебная
Общие требования
Общая часть
История создания
Основная часть
Метрология стандартизация
Рабочая тетрадь
Название дисциплины
Техническая эксплуатация
Информационная безопасность
Современное состояние
Государственное регулирование
Математическое моделирование
Экономическая теория
Организация работы