Программирование на языках высокого уровня (2)
Департамент образования Краснодарского края
Государственное бюджетное образовательное учреждение
среднего профессионального образования
«Новороссийский колледж радиоэлектронного приборостроения»
Краснодарского края
Отчет
по практике «Программирование на языках высокого уровня»
студента группы 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 |
- Программное обеспечения информационных технологий
- Производственная практика в туристическом агентстве
- Производственная практика на предприятии (3)
- Производственная структура автоколонны
- Производственный анализ СПК Октябрьский Волотовского района
- Психокоррекция школьной тревожности
- Психологическая служба дошкольного учреждения
- Похід по урочищу Феофанія
- Правила безопасности при работах на технологических участках телефонных и телеграфных станций
- Практика по внеклассной воспитательной работе
- Преддипломная практика в Сбербанке
- Применение автоматизированных систем управления технологическими процессами в Корпорации РусАЛ
- Природные ресурсы Волгоградской области (на примере защитных лесонасаждений)
- Проведение выездной налоговой проверки