Referat.me

Название: Задачи по программированию

Вид работы: реферат

Рубрика: Информатика

Размер файла: 98.05 Kb

Скачать файл: referat.me-130999.docx

Краткое описание работы: СОДЕРЖАНИЕ ЗАДАНИЕ 1 Даны числа X и Y.Вычислить Z= f(T,P) (Линейный алгоритм) T= x+ ; P=e 1.1. Блок-схема 1.2. Текст программы и результат Sub zadanie1()

Задачи по программированию

СОДЕРЖАНИЕ

ЗАДАНИЕ 1

Даны числа X и Y.Вычислить Z= f(T,P) (Линейный алгоритм)

T= x+ ; P=e Z=

1.1. Блок-схема

1.2. Текст программы и результат

Sub zadanie1()

Dim X, Y, T, P, Z As Single

X = InputBox("Введите значение Х ", "Окно ввода")

Y = InputBox("Введите значение Y ", "Окно ввода")

T = X + (X ^ 2 + Y ^ 2) ^ (1 / 3)

P = Exp(X) + Exp(Y)

Z = P / T

T = Format(T, "###0.0")

P = Format(P, "###0.0")

Z = Format(Z, "###0.0")

MsgBox "X=" & X & ", Y=" & Y & (Chr(10) & Chr(13)) & _

"T =" & T & ", P = " & P & ", Z = " & Z, _

vblnformation, "Расчет по формулам: " & Date

End Sub

ЗАДАНИЕ 2

Даны две пары чисел А, В и С, Д. Если А*В>С*Д, то вывести среднее арифметическое этих чисел, в противном случае среднее геометрическое (Ветвящийся алгоритм)

2.1. Блок-схема

2.2. Текст программы и результат

Sub zadacha2()

Dim A, B, C, D As Integer

Dim S As Single

A = InputBox("Введите число А", "Окно ввода")

B = InputBox("Введите число В ", "Окно ввода")

C = InputBox("Введите число C", "Окно ввода")

D = InputBox("Введите число D", "Окно ввода")

If A * B > C * D Then S = (A + B + C + D) / 4 Else S = (A * B * C * D) ^ (1 / 4)

MsgBox "A = " & A & ", B = " & B & ", C = " & C & ", D = " & D & (Chr(10) & Chr(13)) & _

"Результат =" & S, _

vblnformation, "Окно вывода: " & Date

End Sub

ЗАДАНИЕ 3

Получить значения функции Y=F(x) с использованием цикла(do ..).

F(x)=cos (х+1/х-1) для х=1.5;1.6;….;2.5(Циклический алгоритм)

3.1. Блок-схема

3.2. Текст программы и результат

Sub zadanie3()

Dim X, Y As Single, S, s1

X = 1.5

Do While X <= 2.5

Y = Cos(X + 1 / X - 1)

Y = Format(Y, "###0.0#")

S = S & Str(Y) & ", "

s1 = s1 & Str(X) & ", "

X = X + 0.1

X = Format(X, "###0.0")

MsgBox "X = " & s1 & " " & (Chr(10) & Chr(13)) & _

"Y = " & S & " ", _

vblnformation, "Значения аргумента Х и функции Y "

Loop

End Sub

ЗАДАНИЕ 4

Дан массив F(10). Найти сумму и произведение его отрицательных элементов (Обработка массива)

4.1. Блок-схема

4.2. Текст программы и результат

Sub zadacha4()

Dim F(10) As Integer

Dim i, S, P As Integer, s1

S = 0

P = 1

s1 = ""

For i = 1 To 10

F(i) = InputBox("F[" + Str(i) + "] = ", "Ввод значений массива F ")

s1 = s1 & Str(F(i)) & "; "

If F(i) < 0 Then

S = S + F(i)

P = P * F(i)

End If

Next i

MsgBox " Массив F: " & s1 & " " & (Chr(10) & Chr(13)) & _

"Сумма отрицательных элементов = " & S & (Chr(10) & Chr(13)) & _

"Произведение отрицательных элементов = " & P, _

vblnformation, "Вывод результата "

End Sub

ЛИТЕРАТУРА

Абрамов, С.А. MS Access для пользователя / С.А. Абрамов. – СПб.: «Новый Век», 2002. – 673с.

Васильева, Н.И. Разработка баз данных: от теории к практике / Н.И. Васильева, Минск: «Народная асвета», 1999. - 571с.

Голованова, М.Д. Технологии обработки экономической информации в Microsoft Access 2003 / М.Д. Голованова. – СПб.: Питер, 2006 – 817 с.

Дейт, К. Введение в системы баз данных / К. Дейт. – М.: «Hаука», 1980. – 452с.

Дроботун Н. В., Хватова Ф. Л., Ермина М. А. Информатика. Часть 2. -СПб.: СПГУТД, 2004.

Дроботун Н. В., Хватова Ф. Л., Ермина М. А. Проектирование и управление базами данных: Метод. указания. -СПб.:СПГУТД, 2004.

9

Похожие работы

  • Программирование Рascal

    Вариант 2 Задания Дано c, d. Вычислить . Если , то вычислить и отпечатать . Если , напечатать «y=0», иначе вычислить Дано a. Вычислить значение функции изменяется в интервале от 0,8 до 2 с шагом 0,1. Вывести на печать значения функции

  • Решение задач на языке программирования Turbo Basik

    ВОСТОЧНАЯ ЭКОНОМИКО-ЮРИДИЧЕСКАЯ ГУМАНИТАРНАЯ АКАДЕМИЯ (Академия ВЭГУ) Стерлитамакский институт Пояснительная записка к контрольной работе «Решение задач на языке программирования Turbo Basik»

  • Решения задач на языке программирования Turbo Basic

    ВОСТОЧНЫЙ ИНСТИТУТ ЭКОНОМИКИ, ГУМАНИТАРНЫХ НАУК, УПРАВЛЕНИЯ И ПРАВА Пояснительная записка к контрольной работе «Решения задач на языке программирования Turbo Basic»

  • Основы программирования и алгоритмизации 2

    Министерство образования и науки РоссийскойФедерации Кафедра информатики Курсовая работа Основы программирования и алгоритмизации г.Челябинск

  • Нахождение корней уравнений различными методами

    Министерство Образования Российской Федерации Иркутский Государственный Технический Университет. Кафедра АПП. Курсовая работа по программированию

  • Отчет по программированию

    Пензенский государственный университет Кафедра "Информационно-вычислительные системы" ЗАПИСИ Отчет о лабораторной работе №1 по дисциплине «Информатика и программирование».

  • Программа решения трансцендентного уравнения на языке Pascal

    Министерство науки и образования РТ Казанский Государственный Технический Университет имени А.Н. Туполева Отчёт по расчетно-графической работ Выполнил студент гр. 3108

  • Программирование линейных алгоритмов

    Реферат по теме: «» Ученика 9-г класса средней школы №150 МОУ СОШ г. Челябинска Бологова Дениса 2011г. Содержание. Понятие алгоритмических структур.

  • Контрольная работа по Информатике 9

    Задание № 1 Вычислить функцию, используя стандартные функции (значения аргументов установить самостоятельно). Решение: =КОРЕНЬ(D4). =СТЕПЕНЬ(D4;2)+СТЕПЕНЬ(E4;2)-50+КОРЕНЬ(50)+D4-8.071+КОРЕНЬ(8.071).

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

    МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РФ ГОСУДАРСТВЕННОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ «Уфимский государственный авиационный технический университет»