518

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

Отчет о прохождении практики

Информатика, кибернетика и программирование

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

Русский

2013-01-06

246 KB

29 чел.

Департамент образования Краснодарского края

Государственное бюджетное образовательное учреждение

среднего профессионального образования

«Новороссийский колледж радиоэлектронного приборостроения»

Краснодарского края

Отчет

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

студента группы 2П1

Ашурова Вячеслава

Преподаватель Николаенко Т.П.

Новороссийск

2012

ВАРИАНТ №2

Задача №1 (52)

Написать программу вычисления объема параллелепипеда.

Private Sub Command1_Click()

Dim A, B, C, V

A = Val(Text1.Text)

B = Val(Text2.Text)

C = Val(Text3.Text)

V = A * B * C

Text4.Text = V

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Command3_Click()

Text1.Text = clean

Text2.Text = clean

Text3.Text = clean

Text4.Text = clean

End Sub

Задача №2 (67)

Написать программу вычисления площади поверхности цилиндра.

Private Sub Command1_Click()

Dim a, b, pi As Variant

pi = 3.14

a = Val(Text1.Text)

b = Val(Text2.Text)

S = 2 * pi * a * (a + b)

Text3.Text = S

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Command3_Click()

Text1.Text = clean

Text2.Text = clean

Text3.Text = clean

End Sub

Задача №3 (57)

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

Private Sub Command1_Click()

Dim a, b, c, S As Variant

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

S = (a * c) + (b * c)

Text4.Text = S

End Sub

Задача №4 (77)

Написать программу вычисления площади кольца.

Private Sub Command1_Click()

Dim A, B, S

A = Val(Text1.Text)

B = Val(Text2.Text)

If B > A Then MsgBox ("Ошибка! Радиус отверстия не может быть больше радиуса кольца.")

S = 2 * 3.14 * (A - B)

Text3.Text = S

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Command3_Click()

Text1.Text = clean

Text2.Text = clean

Text3.Text = clean

End Sub

Задача №5 (92)

Написать программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным и выдает рекомендацию о необходимости поправиться или похудеть. Оптимальный вес вычисляется по формуле: рост (в сантиметрах)—100.

Private Sub Command1_Click()

Dim A, B, C, D, E

A = Val(Text1.Text)

B = Val(Text2.Text)

E = Val(Text5.Text)

C = B - 100

Text3.Text = C

If A < C Then D = C - A

Text4.Text = D

If A > C Then E = C - A

Text5.Text = E

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Command3_Click()

Text1.Text = clean

Text2.Text = clean

Text3.Text = clean

Text4.Text = clean

Text5.Text = clean

End Sub

Задача №6 (90)

Написать программу, которая проверяет, делится ли на три целое число, введенное с клавиатуры.

Private Sub Command1_Click()

Dim A As Integer

A = Val(Text1.Text)

If A Mod 3 = 0 Then Print MsgBox("Yes") Else Print MsgBox("No")

End Sub

Задача №7 (94)

Написать программу, которая запрашивает у пользователя номер дня недели и выводит одно из сообщений: "Рабочий день", "Суббота" или "Воскресенье".

Private Sub Command1_Click()

Dim A As Integer

A = Val(Text1.Text)

If A = 1 Then Print MsgBox("Rab. Den")

If A = 2 Then Print MsgBox("Rab. Den")

If A = 3 Then Print MsgBox("Rab. Den")

If A = 4 Then Print MsgBox("Rab. Den")

If A = 5 Then Print MsgBox("Rab. Den")

If A = 6 Then Print MsgBox("Subbota")

If A = 7 Then Print MsgBox("Voskresenie")

If A < 1 Then Print MsgBox("Error")

If A > 7 Then Print MsgBox("Error")

End Sub

Задача №8 (100)

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

Private Sub Command1_Click()

Dim N As Integer

Picture1.Cls

Picture1.Print "Tablica kvadratov"

Picture1.Print

For N = 1 To 10

Picture1.Print N, N ^ 2

Next N

End Sub

Задача №9 (115)

Написать программу, которая выводит на экран таблицу стоимости, например, яблок в диапазоне от 100 г до 1 кг с шагом 100.

Private Sub Command1_Click()

Dim Z As Variant

Z = Val(Text1.Text)

otvet = ""

c = Z / 1000

For i = 100 To 1000 Step 100

otvet = otvet & i & " g. stoyat " & i * c & " rub. " & vbCrLf

Next i

Picture1.Print otvet

End Sub

Задача №10 (102)

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

Private Sub Command1_Click()

Dim n, S As Variant

n = Val(Text1.Text)

S=((1+n)/2)*n

Form1.Print S

End Sub

Задача №11 (117)

Написать программу, которая выводит таблицу значений функции у =|х + 2|. Диапазон изменения аргумента — от -4 до 4, шаг приращения аргумента — 0,5.

Private Sub Command1_Click()

Dim x As Variant

For x = -4 To 4 Step 0.5

y = Abs(x) + 2

Picture1.Print "y="; y

Next

End Sub

Задача №12 (131)

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

Private Sub Command1_Click()

Dim a As Integer

Dim b As Integer

Dim c As Integer

Dim Max As Integer

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

Max = 0

If a > b And a > c Then

Max = a

Text4.Text = "Maximalnoe=" & " " & Str(Max)

ElseIf b > c And b > a Then

Max = b

Text4.Text = "Maximalnoe=" & " " & Str(Max)

Else: Max = c

Text4.Text = "Maximalnoe=" & " " & Str(Max)

End If

End Sub

Задача №13 (140)

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

program proga;

var

sim: char;

code: integer;

Begin

writeln('VVedite simvol i najmite <Enter>.');

writeln('Dlya zaversheniya programmi vvedite tochku.');

repeat

write('->'); readln(sim) ; code:=Ord(sim);

writeln('Simvol:', sim , 'Code:', code); until sim = '.';

end.

Задача №14 (146)

Написать программу, которая проверяет, является ли введенная с клавиатуры строка шестнадцатеричным числом.

uses crt;

var st:string;

i:integer;

f:boolean;

begin

clrscr;

write('-> ');

readln(st);

f:=true;

for i:=1 to length(st) do if not(st[i] in ['0'..'9','A'..'F','a'..'f']) then

begin

 f:=false;

 break;

end;

if f then write('YES') else write('NO');

 readln;

end.

Задача №15 (177)

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

Sub MinMax(x, y)

   Dim z

   If x > y Then

       z = x

       x = y

       y = z

   End If

End Sub

Private Sub Command1_Click()

Dim x, y

   

   x = Val(Text1.Text)

   y = Val(Text2.Text)

   Call MinMax(x, y)

   

   MsgBox " max = " & y

End Sub

Задача №16 (191)

Написать процедуру, которая выводит строку, состоящую из одинаковых символов. Длина строки и символ являются параметрами процедуры.

Private Sub Command1_Click()

Dim z, s As String

Dim n As Integer

z = Text1.Text

n = Val(Text2.Text)

Call nom(s, n, z)

Label3.Caption = s

End Sub

Sub nom(s, n, z)

For i = 1 To n

s = s + z

Next

End Sub


 

А также другие работы, которые могут Вас заинтересовать

41721. ДИОДНЫЕ ОГРАНИЧИТЕЛИ И ФИКСАТОРЫ УРОВНЯ 340.36 KB
  В зависимости от схемы включения и режима работы нелинейного элемента ограничителя различают 3 вида ограничения: по максимуму ограничение сверху рис.5 Диод ограничителя включается между входом и выходом схемы последовательно с нагрузкой. Если напряжение входного сигнала Uвх меньше напряжения смещения Е диод работает на обратной ветви характеристики где его внутреннее сопротивление велико и разделяет вход схемы от выхода. Форма напряжений на входе и выходе схемы иллюстрируется на рис.
41722. Подготовка и проведение измерений с помощью электронного мультиметра 200.19 KB
  Испытание однофазного трансформатора при работе под нагрузкой Методическое указание Самара Самарский государственный технический университет 2008 Печатается по решению Редакционно-издательского совета СамГТУ УДК621. 313 Испытание однофазного трансформатора при работе под нагрузкой: метод. Содержат практические рекомендации по экспериментальным методам определения основных характеристик однофазного трансформатора по обработке опытных данных и оформлению отчетов а также контрольные вопросы. Этот процесс...
41723. Создание и редактирование таблиц, построение диаграмм 601.37 KB
  Рассмотрим некоторые особенности ввода текста в ячейки рабочего листа. Текст "Наименование", который вводится в ячейку А1, целиком в этой ячейке не помещается и занимает еще и ячейку В1 (рис. 2.3). Поскольку в ячейку В1 не было введено никакой информации, текст виден полностью. При вводе в ячейку В1 текста "Стоимость", текст в А1 будет виден частично, в пределах границ столбца А.Среднее количество проданного товара каждого наименования за текущий год. Общее количество проданных товаров за каждый месяц. Минимальное и максимальное количество товаров за полугодие количество максимальных продаж. Вклад в продажи сахара в общее количество проданного товара за...
41724. Частотные характеристики типовых звеньев систем автоматического управления 1.47 MB
  Построение частных характеристик типовых звеньев средствами математического пакета MATLAB и изучение зависимости этих характеристик от параметров входящих в состав передаточной функции.Построить следующие частотные характеристики: ЛАЧХ; ФЧХ; АФЧХ. Увеличив значение T в 10 раз определить как изменятся частотные характеристики. Задание 1 Используя пакет MTLB получим частотные характеристики.
41726. Исследование электрической цепи с последовательным и параллельным соединениями приёмников электрической энергии 349.01 KB
  Проверка на опыте особенностей последовательного и параллельного соединения резисторовэ,и при этом образуется неразветвленная цепь или участок цепи. Для последовательного соединения характерно то что во всех этих резисторах возникает одинаковый ток а падения напряжения на них пропорциональны сопротивлениям: Каждое сопротивление может быть найдено по формулам: Падение напряжения на всем участке цепи равно сумме падений напряжений на каждом резисторе: Эквивалентное сопротивление участка цепи равно сумме сопротивлений каждого резистора: Если же к концам участка вместо трех резисторов подключить эквивалентный...
41727. Органолептическая оценка качества сырья и приготовление полуфабрикатов из мяса и домашней птицы 101.48 KB
  Организация рабочего места используемые технологическое оборудование посуда инвентарь из мясного цеха Органолептическая оценка мяса. Признаки свежести мяса. Полуфабрикаты из мяса приготовление котлетной массы.
41728. Решение оптимизационных задач с помощью надстройки Excel «Поиск решения» 21.87 MB
  Ниже перечислены основные правила которыми следует руководствоваться чтобы создать качественную модель на основе электронных таблиц: необходимо четко обозначить все переменные; следует четко обозначить входы модели переменные решения и параметры; надо указать критерии эффективности и выходные переменные; не следует жестко привязывать значения параметров к формулам параметры должны храниться в отдельных ячейках рабочего листа для удобства документирования и анализа; если это возможно надо отделять переменные представляющие...