Банк рефератов содержит более 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)

Реферат: Лабораторные работы по информатике

Название: Лабораторные работы по информатике
Раздел: Рефераты по информатике, программированию
Тип: реферат Добавлен 00:30:39 16 июля 2005 Похожие работы
Просмотров: 892 Комментариев: 3 Оценило: 0 человек Средний балл: 0 Оценка: неизвестно     Скачать

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


Тема: «Разработка простейших программ линейных структур»


Под работы:

  1. Запись формул.

  2. Контрольный расчёт для индивидуального задания.

  3. Запись формул индивидуального задания на BASICе.

  4. Блок схема алгоритма.

  5. Программа.

  6. Таблица результатов расчётов по заданию.




первый набор данных второй набор данных
a 7.5 0.918
b 0.5 2.117
c 10 3.219



начало



ввод a,b,c



y=…



y



конец


INPUT “Введите a, b, c”; a, b, c

y=(a+b)/c+(SIN(b)^2+a+0.25+0.2c)^(1/3)

PRINT “y=”; y


(SIN(x+b)^a(c^2+x^0.7LOG(a))^(115))/(SQR(x+a)+1)

((a^(x+m)COS(x)+SQR((LOG(a+b)/LOG10)^2)/(1+(x+a)^(1/3))


контрольный расчёт первый машинный расчёт второй машинный расчёт
3.036 2.952986 2.307602

;


;

где: x=4, y=2



исходные данные для реального примера
x 3.916
y 1.612

a=(x^2+y+SIN(y/x))/(x+y^2)^(1/3)+x^y;


b=(x+6y)^(1/4)/SIN(1/y)



начало



ввод x,y



a=…



b=…



a



b



конец


INPUT “Введите x, y”; x, y

a=(x^2+y+SIN(y/x))/(SQR(x+y^2)+x^y)

b=(x+6y)^(1/4)/SIN(1/y)

PRINT “a=”; a

PRINT “b=”; b



контрольный расчёт первый машинный расчёт второй машинный расчёт
a 1.02 1.026635 1.591904
b 4 4.171659 3.302746

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


Тема: «Разработка разветвлённых программ»


Цель: Изучение методов составления блок-схем алгоритмов и программ с разветвлениями на BASICе.


Ход работы:

  1. Изучить основные сведения, необходимые для составления блок-схем алгоритмов с разветвлённой структурой.

  2. Изучить операторы условной и безусловной передачи управления.

  3. Изучить примеры, приведённые в описании данной работы.

  4. Ответить на контрольные вопросы.

  5. Составить блок-схему алгоритмов и программ на BASICе для решения следующих задач:

;



первый контрольный набор второй контрольный набор реальный набор
x 4 6 4.576
y 5 2 0.927

b=(ABS(x^3)+y)/(2y-x)



начало



ввод x,y



b=…

да

нет


x





a, b



конец


INPUT “Введите x, y”; x, y

b=(ABS(x^3)+y)/(2y-x)

IF x

a=x-b

ELSE

a=b-y

END IF

PRINT “a=”; a

PRINT “b=”; b



первый контрольный расчёт второй контрольный расчёт реальный расчёт
a 4.5 11877 1262.429
b 11.5 -109 -35.54277

в остальных случаях

;



начало



ввод x,a



-50x-30

или

-20x-10

y=x-x




-2x x=-5

или

1x10

y=LOG(ABS(x))

20x50

или

60x70

y=1/(x+a) y=SQR(x+a)





y=…



y



конец


INPUT “Введите x, a”; x, a

IF x>=-50 and x<=-30 or x>=-20 and x<=-10 THEN

y=x^2-x

ELSE IF x>=-2 and x<=-1 or x>=1 and x<=10 or x>=-5 THEN y=LOG(ABS(x))

ELSE IF x>=20 and x<=50 or x>=60 and x<=70 THEN y=SQR(x+a^2)

ELSE y=1/(x+a)

END IF

PRINT “x=”; x

PRINT “y=”; y




начало



ввод a, b, c


a=x


a



a a=x




a a=x



a a=x




b=x


b>x b=x




b>x b=x




b>x b=x




b>x b=x






c=x+x+x



c+x c= x+x




y=…



y



конец


INPUT “Введите a, b, c”; a, b, c

a=x

IF a THEN a=x

IF a THEN a=x

IF a THEN a=x

IF a THEN a=x

END IF

b=x

IF b>xTHEN b=x

IF b>x THEN b=x

IF b>x THEN b=x

IF b>x THEN b=x

END IF

c=x+x+x

IF c+x THEN c= x+x

END IF

y=(2aa+3b-c)/(b+c)

PRINT “y=”; y


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


М (x;y)

y


n=2 n=1

x

-1 +1

n=1 n=2


INPUT “Введите x, y, z”; x, y, z

IF x^2+y^2>R THEN

n=3

ELSE IF x+y>0 THEN

n=1

ELSE

n=2

END IF

PRINT “n=”; n


2x+1 e 3+1 a=2 b=6 n=20


INPUT “Ввести a, b, h, c, d”; a, b, h, c, d

x=a : y=-1E10 : y=1E10

DO

IF x<=c THEN

y=(EXP(x)(COS(x)^2)

ELSE IF x<=d THEN

y=(x^2)sin(x)

ELSE

y=LOG(x^2+1)COS(x)

END IF

PRINT “x=”; x, “y=”; y

IF y>y THEN y=y; x=x

IF y THEN y=y; x=x

x=x+h

IF x>b THEN EXIT DO

LOOP

P

y=729.9988 x=5.9

y=9 x=2

RINT “y=”; y, “x=”; x

PRINT “y=”; y, “x=”; x

END

3-COS2x a= b= n=20


INPUT “Введите a, b, n”; a, b, n

h=(b-a)/n

x=a : y=1E+10

DO

y=ABS(3-COS(2x)

IF y THEN y=y : x=x

x=x+h

LOOP UNTIL x>b

PRINT “x=”; x

END


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


Тема: «Составление циклических программ. Вычисление сумм и произведений»



контрольный пример Реальный пример
L=2 L=14


начало



ввод L



P=1; j=1



p=p(2j+L)/(j+2)



j=j+1





jM



y=p



y


конец


INPUT “Введите L”; L

P=1

FOR j=1 TO L

P=P(2j+l)/(j+2)

NEXT j

PRINT “P=”; P

END


контрольный пример реальный пример
P=2 P=1.5876


контрольный пример реальный пример
N=3 N=12
M=2 M=14
P=3 P=4.6

INPUT “Введите M, N, L”; M, N, L

P=1

FOR k=1 TO m

P=P((2k+L)/(L+k))

NEXT k

S=1

FOR k=1 TO m

S=S(k^2/(k^2+1))

NEXT k

Z=0

FOR i=1 TO n

Z=Z+(i^2+L)/(2Li)

NEXT i

y=P/(S+Z)

PRINT “y=”; y


контрольный пример реальный пример
y=1.553957 y=4.346143

ИДЗ №1

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


INPUT "Ввод массива"; N

FOR I = 1 TO N

PRINT "A("; I; ")=";

INPUT A(I)

NEXT I

S = 0: K = 0

FOR I = 2 TO N STEP 2

IF A(I) > -10 AND A(I) < 5 THEN

S = S + A(I)

K = K + 1

END IF

NEXT I

P = 0

FOR I = 1 TO N

IF A(I) > 0 THEN

P = P + A(I)

END IF

NEXT I

FOR I = 1 TO N

IF A(I) < 0 THEN

A(I) = A(I) / P

END IF

NEXT I

IF K = 0 THEN

PRINT "Деление на 0"

ELSE

SR = S / K

END IF

PRINT "Вывод нового массива"

FOR I = 1 TO N

PRINT "A("; I; ")="; A(I)

NEXT I

PRINT "Сумма положительных элементов="; P

PRINT "Средне арифметическое значение="; SR


N

X1

X2

X3

X4

X5

5 1

-2

3 4

-5


P=8 удовлетворяет условию



ИДЗ №2

Дан одномерный массив Все элементы с чётными номерами и принадлежащими интервалу от А до В записать в новый массив Y, а все отрицательные элементы с нечётными номерами, предварительно заменив их на модули, записать в массив Z. В массиве Y найти наименьший элемент, а в массиве Z последний нечётный элемент.


A

B

N

X1

X2

X3

X4

X5

X6

X7

X8

X9

X10

3 10 10 1

8

-4 -2 5

6

-1

7

-10

9

INPUT "B="; B

INPUT "A="; A

INPUT "N="; N

DIM X(N), Y(N)

FOR I = 1 TO N

PRINT "X("; I; ")=";

INPUT X(I)

NEXT I

K = 0

FOR I = 2 TO N STEP 2

IF X(I) > A AND X(I) < B THEN

K = K + 1

Y(K) = X(I)

END IF

NEXT I

J = 0

FOR I = 1 TO N STEP 2

IF X(I) < 0 THEN

J = J + 1

Z(J) = ABS(X(I))

END IF

NEXT I

IF K = 0 THEN

PRINT "Нет массива Y"

ELSE

MINY = Y(1)

FOR I = 2 TO K

IF Y(I) < MINY THEN

MINY = Y(I)

END IF

NEXT I

END IF

IF J = 0 THEN

PRINT "Нет массива Z"

ELSE

FOR I = 1 TO K

PRINT Y(I)

NEXT I

PRINT "MINY="; MINY

END IF

FOR I = 1 TO J

IF Z(I) MOD 2 <> 0 THEN

NPN = I

END IF

NEXT I

FOR I = 1 TO J

Y(N)

MINY

Z(K)

Z(NPN)

8,6,7,9 6 4,1,10 1
PRINT Z(I)

NEXT I

PRINT "Z(NPN)="; Z(NPN)

END



ИДЗ №1

Задана матрица В. найти минимальный элемент матрицы. Все элементы лежащие ниже главной диагонали, умножить на этот минимальный элемент.


INPUT "N,M"; N, M

DIM A(N, M)

PRINT "Ввод матрицы"

FOR I = 1 TO N

FOR J = 1 TO M

PRINT "A("; I; ")=";

INPUT A(I, J)

NEXT J

NEXT I

MIN = A(1, 1)

FOR I = 1 TO N

FOR J = 1 TO M

IF MIN > A(I, J) THEN

MIN = A(I, J)

END IF

NEXT J

NEXT I

FOR I = 2 TO N

FOR J = 1 TO I - 1

A(I, J) = A(I, J) * MIN

NEXT J

NEXT I

FOR I = 1 TO N

FOR J = 1 TO M

PRINT A(I, J);

NEXT J

PRINT

NEXT I

END


ИДЗ №2

Вычислить определитель треугольной матрицы.


INPUT "Введите кол-во строк и столбцов матрицы"; N

DIM A(N, N)

FOR I = 1 TO N

FOR J = 1 TO N

PRINT "A("; I; ","; J; ")=";

INPUT A(I, J)

NEXT J

NEXT I

P = 1

FOR I = 1 TO N

FOR J = 1 TO N

IF I = J THEN

P = P * A(I, J)

END IF

NEXT J

NEXT I

PRINT "Определитель треугольной матрицы="; P

END



INPUT "Ввести M,N"; M, N

P = 1: S = 0

FOR I = 1 TO N

P = P * (I / (2 + I))

FOR J = 1 TO M

S = S * (I + J)

NEXT j

NEXT I

Y = P + S

PRINT "Y="; Y


ОДЗ №1

Задан одномерный массив. Найти среднее арифметическое элементов, делящихся на 3 без остатка и количество положительных элементов с чётными номерами. Найденное среднее вычесть из значения последнего элемента.


INPUT "Ввести массив N="; N

DIM A(N)

FOR I = 1 TO N

PRINT "A("; I; ")=";

INPUT A(I)

NEXT I

S = 0: K = 0: L = 0

FOR I = 1 TO N

IF A(I) MOD 3 = 0 THEN

S = S + A(I)

K = K + 1

END IF

NEXT I

FOR I = 2 TO N STEP 2

IF A(I) > 0 THEN

L = L + 1

END IF

NEXT I

PRINT "L="; L

IF K = 0 THEN

PRINT "Нет среднего значения"

ELSE

SR = S / K

A(N) = A(N) - SR

FOR I = 1 TO N

PRINT "A("; I; ")="; A(I)

NEXT I

END IF


ОДЗ №2

Задан одномерный массив X(N). Первый положительный элемент записать на место максимального с чётным номером.


N

X1

X2

X3

X4

X5

5 -1

2

-3

6

8

INPUT "Ввести массив N="; N

DIM X(N)

FOR I = 1 TO N

INPUT X(I)

NEXT I

NPOL = 0

FOR I = 1 TO N

IF X(I) > 0 THEN

NPOL = I

EXIT FOR

END IF

NEXT I

IF NPOL = 0 THEN

PRINT "Нет положительных элементов"

ELSE

MAXX = X(2)

FOR I = 4 TO N STEP 2

IF X(I) > MAXX THEN

MAXX = X(I)

NMAXX = I

END IF

NEXT I

X(NMAXX) = X(NPOL)

FOR I = 1 TO N

PRINT X(I)

NEXT I

END IF

Новый массив

-1

2

-3

2

8

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Где скачать еще рефератов? Здесь: letsdoit777.blogspot.com
Евгений22:06:59 18 марта 2016
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
13:22:51 24 ноября 2015
за эту лабороторную работу оплата будет 500рублей!
олег14:23:12 02 февраля 2012

Работы, похожие на Реферат: Лабораторные работы по информатике

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

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



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

Рейтинг@Mail.ru