Поиск

Полнотекстовый поиск:
Где искать:
везде
только в названии
только в тексте
Выводить:
описание
слова в тексте
только заголовок

Рекомендуем ознакомиться

Информатика->Реферат
Средства связи - технические и программные средства, используемые для формирования, приема, обработки, хранения, передачи, доставки сообщений электрос...полностью>>
Информатика->Реферат
Данная база данных была разработана нами в СУБД MS Access, как курсовой проект на тему «Агентства частного сыска». Курсовой проект предназначена для с...полностью>>
Информатика->Реферат
Проблема защиты информации существовала всегда, но в настоящее время из-за огромного скачка научно-технического прогресса она прибрела особую актуальн...полностью>>
Информатика->Реферат
При создании программ вы можете поместить в исходном файле замечания, которые объясняют работу программы. Такие замечания (называемые комментариями) н...полностью>>

Главная > Реферат >Информатика

Сохрани ссылку в одной из сетей:

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РФ

ГОСУДАРСТВЕННОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ

ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

«Уфимский государственный авиационный технический университет»

ФИЛИАЛ В ГОРОДЕ СТЕРЛИТАМАКЕ

КАФЕДРА ЕСТЕСТВЕННО-НАУЧНЫХ И ОБЩЕПРОФЕССИОНАЛЬНЫХ ДИСЦИПЛИН

ПОЯСНИТЕЛЬНАЯ ЗАПИСКА

к расчетно-графической работе по Информатике

«Программирование на языке высокого уровня»

2403.402103.000ПЗ

(обозначение документа)

Группа СПС-102з

Фамилия И.О.

Подпись

Дата

Оценка

Студент

Камалеев Э.С.

Проверил

Стерлитамак 2010 г.

Содержание

1 Задание 1 2

1.1 Постановка задачи 2

1.2 Блок-схема программы 2

1.3 Исходные данные для отладки и тестирования программы 4

1.4 Исходный текст программы 4

1.5 Экранная форма программы 4

2 Задание 2 6

2.1 Постановка задачи 6

2.2 Блок – схема программы 6

2.3 Исходные данные для отладки и тестирования программы 8

2.4 Исходные данные программы 8

2.5 Экранная форма программы 9

3 Задание 3 10

3.1 Постановка задачи 10

3.2 Блок-схема программы 10

3.3 Исходные данные для отладки и тестирования программы 12

3.4 Исходный текст программы 12

3.5 Экранная форма программы 13

1Задание 1

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

Даны действительные числа х и у, не равные друг другу. Меньшее из этих двух чисел заменить половиной их суммы, а большее – их удвоенным произведением.

1.2Блок-схема программы

+

-


Числа равны! Введите разные числа.


+

-


Рисунок 1. Блок-схема действий над числами

Продолжение рис.1.

+

-

c, d


Рисунок 1. Блок-схема действий над числами

1.3Исходные данные для отладки и тестирования программы

В качестве исходных данных выберем произвольные 2 действительных числа a, b и проверим работу программы, нажав на кнопку «Выполнить».

Результаты можно посмотреть в рабочем окне программы на рис.2.

1.4Исходный текст программы

procedure TForm1.Button1Click(Sender: TObject);

var a,b,c,d:real;

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

if (a=b) then ShowMessage('Числа равны! Введите разные числа.');

if (a>b) then begin

c:=2*a*b;

d:=(a+b)/2;

end ;

if (a

begin

c:=(a+b)/2;

d:=2*a*b;

end;

Edit3.Text:=FloatToStr(c);

Edit4.Text:=FloatToStr(d);

end;

1.5Экранная форма программы

Рисунок 2. Результат выполнения программы

2Задание 2

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

Протабулировать функцию заданной формулой:

где с=4, a=2.8, b=-0.3, , h=0.05.

2.2Блок – схема программы

-


-

+


+


конец


Рисунок 3. Блок-схема табулирования функции

Продолжение Рис.3.

Рисунок 3. Блок-схема табулирования функции

2.3Исходные данные для отладки и тестирования программы

В качестве исходных данных выберем значения a=1, b=2, h=0.05 и проверим работу программы, нажав кнопку «Табулировать».

Результаты можно посмотреть в рабочем окне программы рис.4.

2.4Исходные данные программы

procedure TForm1.Button1Click(Sender: TObject);

var

a,b,a1,b1,c1,h,x,y:extended;

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

h:=StrToFloat(Edit3.Text);

a1:=2.8;

b1:=-0.3;

c1:=4;

x:=a;

Memo1.Clear;

Memo1.Lines[0]:=' x | y ';

Memo1.Lines.Add('----------');

while x<=b do begin

if (x<1.2) then y:=a1*x*x+b1*x+c1;

if (x=1.2) then y:=a1/x+sqrt(x*x+1);

if (x>1.2) then y:=(a1+b1*x)/sqrt(x*x+1);

Memo1.Lines.Add(FloatToStrf(x,fffixed,5,2)+'|'+FloatToStrf(y,fffixed,5,2));

x:=x+h;

end;

end;

2.5Экранная форма программы

Рисунок 4. Результат выполнения программы

3Задание 3

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

1.  Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-10,20]. Найти сумму элементов, имеющих нечетные индексы.

2.  Подсчитать количество элементов массива, значения которых больше заданного числа А и кратных 5.

3.Найти номер первого отрицательного элемента, делящегося на 5 с остатком 2.

3.2Блок-схема программы

Рисунок 5. Блок-схема процедуры заполнения массива случайными числами

-


Рисунок 6. Блок-схема процедуры для необходимых вычислений и вывода результатов на экран

3.3Исходные данные для отладки и тестирования программы

В качестве исходных данных вводим любое целое число n – количество элементов массива и, нажав на кнопку «Создать массив», формируем одномерный массив, заполненный случайным образом целыми числами из промежутка [-10,20].

При нажатии на кнопку «Выполнить» происходит вычисление, заданные в задании.

Результаты можно посмотреть в рабочем окне программы рис. 7

3.4Исходный текст программы

Описание глобальных переменных

var

Form1: TForm1;

n:integer;

a:array of integer;

Текст процедуры для задания массива случайными числами.

procedure TForm1.Button1Click(Sender: TObject);

var

i:integer;

begin

Randomize;

n:=StrToInt(Edit1.Text);

SetLength(a,n);

Edit2.Clear;

for i:=1 to n do

begin

a[i]:=Random(30)-10;

Edit2.Text:=Edit2.Text+' '+IntToStr(a[i]);

end;

end;

Текст процедуры для вычислений и вывода результатов на экране

procedure TForm1.Button2Click(Sender: TObject);

var

sum,i,k,l,a1:integer;

begin

Edit3.Clear;

Edit4.Clear;

Edit5.Clear;

a1:=StrToInt(Edit6.Text);

sum:=0;

k:=0;

For i:=1 to n do

if (i mod 2<>0) then sum:=sum+a[i];

If CheckBox1.Checked then Edit3.Text:=IntToStr(sum);

For i:= 1 to n do begin

if (a[i]>a1) and (a[i] mod 5=0) then k:=k+1;

end;

if CheckBox2.Checked then Edit4.Text:=IntToStr(k);

l:=0;

for i:=n downto 1 do begin

if (a[i]<0) and (abs(a[i]) mod 5 = 2) then l:=i;

end;

If CheckBox3.Checked then Edit5.Text:=IntToStr(l);

end;

3.5Экранная форма программы

Рисунок 7. Результат выполнения программы

Список использованной литературы

  1. http://wiki.lazarus.freepascal.org - Lazarus wiki энциклопедия по Free Pascal Compiler/Lazarus

  2. http://lazarus.freepascal.org - Официальный сайт проекта Lazarus

  3. Бобровский С.И.,lazarus. Учебный курс (пособие для самообразования), 2005г.

  4. Информатика: Учебник для вузов.- / Под ред. С.В. Симоновича. – СПб.: Питер, 2008.


Загрузить файл

Похожие страницы:

  1. Программирование на языке высокого уровня (3)

    Курсовая работа >> Информатика
    ... работы Курсовая работа Название дисциплины Программирование на языке высокого уровня Тема создайте программу ведения базы ... программного продукта под Windows. Краткость языка, легкость программирования на нем, мобильность написанных программ ...
  2. Программирование на языке высокого уровня (1)

    Контрольная работа >> Информатика
    ... Федерации Контрольная работа По дисциплине "Программирование на языке высокого уровня" 2010 год СОДЕРЖАНИЕ Введение 1. ... . СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ и литературы Архангельский А.Я. Программирование в С++ Builder 6. [Текст] / А.Я.Архангельский. – М.: ...
  3. Программирование на языках высокого уровня (3)

    Задача >> Информатика
    Программирование на языках высокого уровня ч2 Лабораторная №1 Задача 1 Составить программу на языке С/С++, содержащую: - объявления и инициализацию указателей на различные типы ...
  4. Программирование на языках высокого уровня (4)

    Книга >> Информатика, программирование
    ... теоретических основ первой части курса "Программирование на языках высокого уровня", включающей алгоритмизацию задач и изучение ... подмножества языка Си в средах программирования Borland C++ и Microsoft Visual C++, а ...
  5. Программирование на языках высокого уровня (2)

    Отчет о прохождении практики >> Информатика, программирование
    ... края Отчет по практике «Программирование на языках высокого уровня» студента группы 2П1 Ашурова Вячеслава ... , которая проверяет, делится ли на три целое число, введенное с ... (115) Написать программу, которая выводит на экран таблицу стоимости, например, яблок ...

Хочу больше похожих работ...

Generated in 0.0016651153564453