Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364150
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62792)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21320)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21697)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8694)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3463)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20645)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

Отчет по практике: Основы программирования

Название: Основы программирования
Раздел: Рефераты по информатике, программированию
Тип: отчет по практике Добавлен 03:30:04 28 января 2011 Похожие работы
Просмотров: 86 Комментариев: 2 Оценило: 0 человек Средний балл: 0 Оценка: неизвестно     Скачать

МОН РК

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

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

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

Отчет

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


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 ниже.

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Где скачать еще рефератов? Здесь: letsdoit777.blogspot.com
Евгений07:59:11 19 марта 2016
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
09:20:57 29 ноября 2015

Работы, похожие на Отчет по практике: Основы программирования

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

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



Результаты(151188)
Комментарии (1843)
Copyright © 2005-2016 BestReferat.ru bestreferat@mail.ru       реклама на сайте

Рейтинг@Mail.ru