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


 

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

83349. Написання не з дієсловами. Спостереження за зв’язком дієслова в реченні з іншими частинами мови 348.5 KB
  Чи любить Яринка прокидатися зранку Що вона запитала у дідуся Що порадив дідусь Чи послухає поради дідуся Яринка Давайте спробуємо сьогодні довести що праця навчання наполегливість необхідні в житті людини. Для початку з’ясуємо яка орфограма в імені Яринки велика буква Яким звуком починається слово...
83350. Повторення та узагальнення вивченого про дієслово як частину мови 154 KB
  Мета: Узагальнити знання про ознаки дієслова удосконалювати вміння розрізняти часові форми дієслова закріплювати навички правопису не з дієсловами. Вміння визначати до якої дієвідміни та особи належать дієслова. Обладнання: стіл накритий вишитою скатертиною на якому розміщені паска писанки...
83351. Вправи на вживання різних відмінкових форм прикметників 351 KB
  Мета: Закріпити знання про відмінювання прикметників у множині. Вчити школярів правильно вимовляти і записувати форми прикметників у множині, вживати на письмі закінчення прикметників, орієнтуючись на кінцевий приголосний звук основи.
83352. Закріплення знань про прислівник. Підготовка до контрольної роботи 121 KB
  Закріплювати та поглиблювати знання про прислівник як самостійну частину отриманні на уроках української мови; розвивати логічне мислення пам’ять мовлення учнів навички та уміння самоосвітньої діяльності з навчальним матеріалом; вчити бачити прекрасне у звичайному а із заняття винести любов до рідного слова.
83353. Роль прикметників у мовленні 296 KB
  Мета: повторити вживання апострофу, закріпити знання про прикметник як частину мови, актуалізувати його роль у мовленні; поглибити знання учнів про осінні явища, розкрити красу осінньої палітри природи; розвивати навички сприйняття, образне творче мислення, увагу, зв’язне мовлення...
83354. Урок розвитку зв’язного мовлення. Складання твору «Весна прийшла» 131 KB
  Мета. Формувати вміння та навички школярів складати текст-розповідь на визначену тему на основі власних спостережень використовуючи лексичні засоби; розвивати навички усного і писемного мовлення, уміння бачити і відчувати красу природи, заохочувати дітей до творчості, збагачувати словниковий запас...
83355. Перевірка орфограм у особових закінченнях, або ще раз про закон письма 105 KB
  Вчити школярів застосовувати алгоритм перевірки орфограм слабких позицій звуків у особових закінченнях дієслів; перевіряти орфограми слабких позицій звуків у різних частинах слів; вчити школярів обґрунтовувати свої думки; давати на запитання повні змістовні відповіді; робити висновки.
83356. Засоби зв’язку речень у тексті. Складання розповіді за малюнком і кінцівкою 39 KB
  Мета: узагальнити систематизувати знання учнів про текст розвивати уміння систематизувати зібраний матеріал добирати потрібні засоби для поширення речень вчити дітей уважно слухати і відповідати на питання; збагачувати словниковий запас розвивати зв’язки мовлення; виховувати любов до рідної природи...
83357. Написання стислого переказу «Старий пень» 54 KB
  Мета. Вдосконалювати вміння учнів послідовно і стисло передавати зміст тексту, виділяти головне, суттєве, усуваючи другорядні деталі. Розвивати навички мовленнєвої діяльності. Виховувати почуття дружби. Тип уроку: урок вдосконалення вмінь і навичок.