518

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

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

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

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

Русский

2013-01-06

246 KB

30 чел.

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

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

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

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

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

Отчет

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

студента группы 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


 

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

77237. Борозды и извилины височной доли больших полушарий. Динамическая локализация 248.5 KB
  Височная доля: Борозды: Верхняя височная борозда Нижняя височная борозда Извилины: Верхняя височная извилина Средняя височная извилина Нижняя височная извилина Центры: Проекционный центр слуха ядро слухового анализатора g. temporlis superior Проекционный центр вкуса ядро вкусового анализатора prhippocmplis et incus Проекционный центр обоняния старый prhippocmplis et incus Проекционный центр висцероцепции нижняя треть постцентральной и предцентральной извилин Проекционный центр вестибулярных функций g....
77238. Желудочки головного мозга, их сообщения между собой и с подпаутинным пространстовм. Цистерны подпаутинного пространства. Третий желудочек, его стенки 504.84 KB
  Третий желудочек его стенки Желудочки Боковые желудочки ventriculi lterles полости конечного мозга полушарий большого мозга. III желудочек ventriculus tertius полость промежуточного мозга diencephlon Латеральная стенка: таламус thlmus Нижняя стенка: гипоталамус hypothlmus: tuber cinerum recessus infundibul chism opticum recessus opticus corpor mmmilri частично pedunculu cerebelli Задняя стенка: comissur posterior et recessus pinelis; Верхняя: tel choroide ventriculu tertii сосудистая оболочка III желудочка...
77240. КОРКОВО-СПИННОМОЗГОВЫЕ ПУТИ. ПОКАЗАТЬ ИХ НА ТАБЛИЦЕ, ПРЕПАРАТЕ 439.43 KB
  Также проводит тормозные импульсы от коры полушарий большого мозга к нейронам двигательных ядер передних рогов спинного мозга т. оказывает тормозное действие на сегментарный аппарат спинного мозга. Тракт идет в нисходящем направлении во внутреннюю капсулу занимая передние 2 3 задней ножки В стволе головного мозга тракт проходит в prs bsilris I зона и в пирамидах продолговатого мозга В области нижней границы продолговатого мозга большая часть волокон каждой пирамиды переходит на противоположную сторону 80 образуя с аналогичными...
77241. ПРОВОДЯЩИЙ ПУТЬ БОЛЕВЫХ И ТЕМПЕРАТУРНЫХ ИМПУЛЬСОВ 183.39 KB
  Spinothlmicus lterlis болевая и температурная чуствительность Tr. Spinothlmicus nterior тактильная чувствительность В СМ эти тракты проходят в боковом и переднем канатиках соответственно В продолговатом мозге латеральный и передний тракты объединяются в единый tr. Spinothlmicus lemniscus spinlis Спинноталамический тракт проходит в покрышке моста и среднего мозга II зона ствола и заканчивается на вентролатеральных ядрах таламуса Большая часть аксонов nuclei ventrolterles thlmi 3 нейроны в составе таламокоркового тракта через заднюю...
77242. Экстрапирамидная система. Современные представления о строении и связи с другими отделами ЦНС 16.55 KB
  Нейроны клетки коры полушарий мозжечка 2 нейроны клетки зубчатых ядер аксоны которых переходят на противоположную сторону в среднем мозге перекрёст Вернекинга и заканчиваются на нейронах красного ядра. Аксоны переходят на противоположную сторону decusstio tegmenti dorslis фонтановидный Мейнерта. rubrospinlis пучок Монакова обеспечивает выполнение сложных привычных движений ходьба бег делая их пластичными способствует длительному сохранению позы и поддержанию тонуса мускулатуры;...
77243. Оболочки головного мозга. Межоболочечные пространства. Их сообщение с полостями головного мозга. А.В.Н. твердой мозговой оболочки 16.3 KB
  Оболочки головного мозга. твердой мозговой оболочки. Оболочки головного мозга. Образует выросты грануляции паутинной оболочки Пахионовы grnultiones rchnoidles которые служат для оттока спиномозговой жидкости в кровеносное русло.
77245. Вспомогательный аппарат глаза 371.42 KB
  nulus tendineus communis Верхняя прямая мышца Нижняя прямая мышца Латеральная прямая Медиальная прямая Верхняя косая Нижняя косая Мышца поднимающая верхнее веко Бровь supercilium Веко plpebre защитная функция: plpebr superior plpebr inferior fcies nterior покрыта кожей fcies posterior покрыта хрящевой и орбитальной коньюктивой. Верхняя прямая мышца Нижняя прямая мышца Медиальная прямая Нижняя косая Мышца поднимающая верхнее веко. Латеральная прямая 6 пара ЧН отводящий Верхняя косая 4 пара ЧН блоковый Нервы слезной...