Основы программирования

МОН РК

КГУ им. Ш. Уалиханова

Физико-математический факультет

Кафедра Информационных систем и Вычислительной техники

Отчет

По вычислительной практике

1. Процедуры программ

Программа нахождения большего из четырех чисел, используя подпрограмму нахождения большего из двух чисел.

Var a, b,c, d,res1,res2,res3:integer;

Procedure Poisk(Var c1,c2:integer; var Res:integer);

Begin

If c1>c2 then res:=c1

Else

Res:=c2;

End;

Begin

Write(‘Введите 1-ечисло: ‘);

Readln(a);

Write(‘Введите 2-ечисло: ‘);

Readln(b);

Write(‘Введите 3-е число: ‘);

Readln(c);

Write(‘Введите 4-е число: ‘);

Readln(d);

Poisk(a, b,res1);

Poisk(c, d,res2);

Poisk(res1,res2,res3);

Writeln(‘Результат = ‘,res3);

End.

2. Цикл с параметром.

Ввести натуральное число N. Получить все его натуральные делители.

Program p1;

Label 1;

Var i, n:integer;

Prod:char;

Begin

1:write(‘N= ‘); readln(n);

Writeln(‘Vse ego naturalinye deliteli:’);

For i:=1 to n do

If n mod i=0 then writeln(i);

Write(‘Vi xotite prodoljiti? (y/n) ‘); readln(prod);

If prod=’y’ then goto 1;

Readln;

End.

3. Цикл пока.

Программа, используя оператор WHILE, которая выводит все четные числа в диапазоне от 2 до 100 включительно и вычисляет их сумму.

Uses crt;

Var a, s:integer;

Begin

Clrscr;

A:=0;

S:=0;

While a<100 do

Begin

A:=a+2;

Write(a,’ ‘);

S:=s+a;

End;

Writeln;

Write(‘Summa chetnih chisel ot 2 do 100=’,s);

Readln

End.

Практическая работа №2.

1. Одномерные массивы.

2. Двумерные массивы.

3. Функции.

4. Практические навыки работы в MSExcel

5. СУБД Access

1. Одномерные массивы.

Заменить каждый элемент массива средним арифметическим всех предшествующих ему элементов. Числоэлементов N >=100.

Program dfh;

Var A, B:array[1..100] of real;

I, n:integer;

F:text;

Function sr(n:integer):real;

Var i:integer; sum:real;

Begin

Sum:=0;

For i:=1 to n-1 do sum:=sum+A[i];

Sr:=(sum)/(n-1);

End;

Begin

Write (‘Vvedite razmer massiva A: ‘);

Readln (n);

For i:=1 to n do begin

Write (‘A[‘,i,’]=’); readln (A[i]); end;

Write (‘Vot vvedennyy vami massiv A:’);

For i:=1 to n do write (A[i]:0:2,’ ‘);

Writeln;

{***}

B[1]:=A[1];

For i:=2 to n do B[i]:=sr(i);

{***}

Write (‘Vot preobrazovanyi massiv A:’);

For i:=1 to n do write (B[i]:0:2,’ ‘);

Assign(f,’rezult. txt’); rewrite(f);

For i:=1 to n do writeln (f, B[i]:0:2);

Close(f);

Readln;

End.

2. Двумерные массивы

Заменить все отрицательные элементы массива К (n, m) на их квадраты, положительные – на корень из данного числа.

Uses

Crt;

Type

mas=array [1..100,1..100] of real;

Var

A:mas;

I, j:integer;

Procedure VVod(var a:mas);

Var

I, j,n, m:integer;

Begin

Randomize;

Write(‘Kolichestvo strok: ‘);

Readln(n);

Write(‘Kolichestvo stolbcov:’);

Readln(m);

For i:=1 to n do

For j:=1 to m do

Begin

A[i, j]:=random(10)-5;

End;

End;

Procedure ViVod(var a:mas);

Var

I, j,n, m:integer;

Begin

Writeln(‘Ishodniy massiv: ‘);

For i:=1 to n do

Begin

For j:=1 to m do

Write(a[i, j]:3:0,’ ‘);

Writeln

End;

End;

Procedure W(Var a:mas);

Var

I, j,n, m:integer;

Begin

For i:=1 to n do

Begin

For j:=1 to m do

If a[i, j]<0 then

Begin

A[i, j]:=sqr(a[i, j]);

End

Else

If a[i, j]>0 then

Begin

A[i, j]:=sqrt(a[i, j]);

End;

End;

End;

Procedure ViVod2(var a:mas);

Var

I, j,n, m:integer;

Begin

Writeln(‘Rezultiryushiy massiv: ‘);

For i:=1 to n do

Begin

For j:=1 to m do

Write(a[i, j]:3:0,’ ‘);

Writeln

End;

End;

Begin

Vvod(a);

Vivod(a);

W(a);

Vivod2(a);

End.

3. Функции

Установить, к чему ближе по абсолютной величине наименьшее из двух чисел – к их среднему арифметическому или среднему геометрическому.

Var a, b : real;

Average : real;

Geometricmean : real;

Minstr : string;

Function min(a, b : real) :real;

Begin

Min := a;

Minstr := ‘Pervoe’;

If (b < a) then

Begin

Min := b;

Minstr := ‘Vtoroe’;

End;

End;

Begin

Write(‘Vvedite 1-e chslo: ‘);

Readln(a);

Write(‘Vvedite 2-e chslo: ‘);

Readln(b);

Average := (a + b) / 2;

Geometricmean := sqrt(a*a + b*b);

A := min(a, b);

Writeln(‘Naimenshee chislo – ‘,minstr,’ (‘,a:0:3,’)’);

Write(‘Blize k srednemu ‘);

If (abs(average – a) < abs(geometricmean – a)) then

Begin

Writeln(‘arifmeticheskomu (‘,average:0:3,’)’);

End

Else

Begin

Writeln(‘geometricheskomu (‘,geometricmean:0:3,’)’);

End;

Readln;

End.

4. Практические навыки работы в MS Excel

Программа Microsoft Excel относится к классу программ, называемых электронными таблицами. Электронные таблицы ориентированы, прежде всего, на решение экономических и инженерных задач, позволяют систематизировать данные из любой сферы деятельности.

Программа Microsoft Excel позволяет:

– сформировать данные в виде таблиц;

– рассчитать содержимое ячеек по формулам, при этом возможно использование более 150 встроенных функций;

– представить данные из таблиц в графическом виде;

– организовать данные в конструкции, близкие по возможностям к базе данных.

Пример работы в MSExcel:

Закрепим полученные знания в практической работе. Будем вести работу по следующей теме: “Расчет себестоимости товара”.

Себестоимость товара – один из основных показателей эффективности хозяйственной деятельности предприятия. От качества расчета себестоимости зависит обоснованность цен. Себестоимость не только включает затраты на производство и реализацию товара, но и раскрывает экономический механизм возмещения этих затрат.

Материальные затраты включают в себя затраты:

– собственно материалов;

– сырья;

– полуфабрикатов;

– энергии.

К примеру, рассчитаем сырьевую себестоимость одного пирожка. Для этого создаем таблицу с исходными данными. Исходная таблица представлена на рисунке 1. Расчет материальных затрат (МЗ).

Получение конечной стоимости товара мы получили при помощи следующей формулы:

В ячейку E5 записать формулу: =C5*E5;

В ячейку Е10: = СУММ(E4 : E9).

Расчет затрат на электроэнергию удобнее проводить не для единицы товара, а для целой партии изготавливаемых товаров. Рассмотрим изготовление партии в 200 пирожков (за одну смену). Общая стоимость = Цена за 1кВт х Мощность эл. плиты х Время изготовления

Для расчета стоимости электроэнергии (ЦЭ) создаем следующую таблицу,

Для выполнения расчетов в MS Exсel в ячейку H7 записать формулу: = H4 * H5 * H6, а в ячейку H8 формулу: = H7/200.

МЗ= ЦМ + ЦЭ

Для выполнения расчетов в ячейку E13 записать формулу: = E10 + H8

На рисунке 3 показана сумма материальных затрат для приготовления одного пирожка.

5. СУБД Access

Теоретическая часть

Хранение информации – одна из важнейших функций компьютера. Одним из распространенных средств такого хранения являются базы данных. База данных – это файл специального формата, содержащий информацию, структурированную заданным образом.

Базы данных играют особую роль в современном мире. Все с чем мы ежедневно сталкиваемся в жизни, скорее всего, зарегистрировано в той или иной базе. Умение работать с базами данных сегодня является одним из важнейших навыков в работе с компьютером, а специалисты в этой области никогда не окажутся безработными.

Структура базы данных

Большинство баз данных имеют табличную структуру, состоящую из многих вязанных таблиц. Такие базы данных называются реляционными. Как вы знаете в таблице адрес данных определяется пересечением строе и столбцов. В базе данных столбцы называются полями, а строки – записями. Поля образуют структуру базы данных, а записи составляют информацию, которая в ней содержится.

В процессе создания таблицы, вы встретились с понятием ключа. Первичный ключ (в последующем будем называть просто ключом) – одно или несколько полей, совокупность которых однозначно определяет любую запись таблицы.

В нашем варианте ключевым является поле Адресат. В таблице видно, что это поле – счетчик, т. е. нумерует записи в порядке ввода. Заполнять поле Адресат не нужно, счетчик срабатывает автоматически, как только заполнена хоть одна ячейка строки таблицы.

Любая таблица Microsoft Access 2003 может быть представлена в двух режимах:

– режиме таблицы, предназначенном для ввода данных, их просмотра и редактирования;

– режиме конструктора, предназначенном для создания и изменения таблицы.

Маска ввода – это шаблон, позволяющий вводить в поле значения, имеющие одинаковый формат. Маска ввода автоматически изображает в поле постоянные символы. При вводе данных в поле нет необходимости набирать эти постоянные символы, даже если они должны быть включены в значение поля; достаточно заполнить пустые позиции в маске ввода. Кроме того, Microsoft Access 2003 не позволит ввести в поле значения, не вписывающиеся в определенную для этого поля маску ввода.

Для того чтобы изменить маску ввода для телефона, следует переключиться в режим конструктора таблицы. Это можно сделать, выбрав команду Конструктор меню Вид или при помощи кнопки панели инструментов.

Окно конструктора содержит таблицу, в первом столбце которой перечислены поля, а во втором типы данных (форматы).

1. Зададим маску ввода для полей Домашний Телефон и Сотовый Телефон. Для этого установим текстовый курсор в имя поля Домашний телефон в нижнем поле Общие напротив Маски ввода и создаем шаблон в окне Создание масок щелкнем Список введем в поле Описание – Номер телефона, Маска ввода – 0 00 00, Образцы данных – 2-66-34 и щелкнем по кнопке Вперед на 1 запись . Создаем маску ввода для номера сотового телефона: Описание – Номер телефона, Маска ввода – 000-000-00-00, Образец данных – 902-275-78-33 щелчок по И Закрыть.

2. В окне Создание масок ввода щелкнем по полю Номер телефона 2-66-34 – Далее – Готово.

3. Щелкнув по строке Конструктора Сотовый телефон, изменим для него маску ввода на десятизначный номер из созданного шаблона. Переходим из режима Конструктора в режим Таблицы, для этого выполняем команду Вид – Таблица или нажмите кнопку на панели инструментов. На вопрос о сохранении таблицы отвечаем Да. Далее заполнение номеров телефонов заключается в вводе в каждую ячейку цифр, перемещая курсор из ячейки в ячейку.

4. Вернемся в таблицу и заполним поле Адрес. Введем данные в поле Адрес. Изменим ширину столбцов таблицы по аналогии с электронными таблицами. Приблизительный вид таблица показан на рисунке 3 ниже.


1 Star2 Stars3 Stars4 Stars5 Stars (No Ratings Yet)
Loading...
Основы программирования