сервис вопросов и ответовПомогите,пожалуйста!!! Очень прошу. Написать программу на Бейсике
5-9 класс|
|
Прикрепленные изображения
NataM07
08 апр. 2015 г., 6:51:42 (9 лет назад)
56zofesu
08 апр. 2015 г., 7:40:53 (9 лет назад)
Sub Ab()
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim b1 As Integer
Dim b2 As Integer
Dim s As String
Dim a(500) As String
n = InputBox("Число абитуриентов")
For i = 1 To n
s = InputBox("Данные абитуриента")
b1 = Right(s, 5)
b2 = Right(s, 2)
b1 = Left(b1, 2)
If b1 >= 30 And b2 >= 30 Then a(i) = s
Next i
s = ""For i = 1 To n
If a(i) > "" Then
For j = i + 1 To n
If a(j) < a(i) Then
s = a(i)
a(i) = a(j)
a(j) = s
End If
Next j
End If
Next i
s = ""For i = 1 To n
If a(i) > "" Then s = s & a(i) & Chr(13)
Next i
MsgBox (s)
End Sub
Anyta4ka100
08 апр. 2015 г., 11:02:46 (9 лет назад)
Они так не классифицируются)) Спроси название бейсика у учителя.
DanFromMoskow
08 апр. 2015 г., 14:54:53 (9 лет назад)
Вот, уже теплее. Осталось уточнить: VB6, VBNET, VBA? Хотя для простых задач разницы у них почти нет. Ладно, если будет время, посмотрю сегодня. Или уже не нужно?
Lerunda12
08 апр. 2015 г., 16:43:22 (9 лет назад)
огромнейшее спасибо) очень выручили!
Ответить
Другие вопросы из категории
Определить названия этих
классификаций.1)Волк,лиса,медведь,заяц)2)Платье,пиджак,рубашка,брюки.3)Кино,пальто,радио,шоссе.4)Береза,тополь,рябина,липа.4)Лиственница,кедр,ель,сосна.5)Яблоня,груша,слива,Вишня.6)Молоко,кефир,творог,сметана.7)Молоток,клещи,топор,пила.8)Смородина,крыжовник,малина.9)Корабль,колокол,колесо,корова.10)Печь,речь,дочь,ночь.11)Луч,меч,плащ,овощ.12)Нуль,сто,пятьдесят,тысяча.13)Минута,секунда,час,сутки.13)Февраль,май,август,сентябрь.14)май,август,октябрь,декабрь.15)1,2,5,9.16)10,25,40,4117)1,2,11,29(Спасибо)
В текстовом режиме экран монитора компьютера обычно разбивается на 25 строк по 80 символов в строке. Определите объём текстовой информаций,занимающей
весь экран монитора, в кодировке КОИ-8
Читайте также
Помогите пожалуйсто решить прошу очень срочно!!!!
1. Чему равны значения переменных r, a, d?
a:=5; b:=20; c:=-7;
d:=2.5;
r := a+(4*b+c)*d;
a:= a+4;
d:=a*7;
2. В пяти тестовых опросах мальчик получил оценки. Составьте программу, которая определит среднее значение оценок, полученных мальчиком в пяти опросах.
3*. Задача. «Покупка в магазине»
Человек делает в магазине покупки. Определите сколько денег у него останется после покупки в магазине перчаток стоимостью А руб., портфеля стоимостью B руб. и галстука стоимостью D руб. Все исходные данные задаются с клавиатуры.
Исходные данные.
a — стоимость перчаток;
b — стоимость портфеля;
d — стоимость галстука;
dengi — количество денег у человека.
Все эти переменные будут вещественного типа.
Результат.
ostatok — количество денег, которое останется у человек (вещественный тип).
Метод решения.
ostatok = dengi – a – b – d
Написать программу, реализующую данную задачу
Помогите пожалуйсто решить очень срочно!!!!!!
Пожалуйста помогите создать какую нибудь полезную программу на паскаль , срочно нужно до понедельника, чтобы в этой программе были все темы за 8 класс,
read.writeln.else.to.if и тд которые сможете
Вот пример идеи для программы, в академию поступают какое то количество учеников, нужно написать сколько учеников сдали документы, сколько пришли на экзамен, и сколько учеников кто прошло и не прошло
возможно не возможно создать программу на этой идее, тогда прделагайте свои со своими программами , пожалуйста помогите!
помогите пожалуйста..очень надо....что нибудь из этих задач..1)написать программу которая поменяет местами первую и последнюю букву в слове. 2)написать
программу которая вставит между буквами веденного слова пробелы 3)написать программу вывода на экран деление двух чисел
Два солдата подошли к реке, по которой на лодке катаются двое детей перевозчика.Опишите алгоритм,как солдатам переправится на другой берег, если лодка
вмещает только одного солдата(либо двоих детей),а солдата и ребенка уже не вмещает?помогите пожалуйста очень прошу на завтра задали
Помогите пожалуйста очень прошу вас добрые вы люди .-. Даны три числа a,b,c если они положительные то найти их сумму,а если отрицательные то поменять
знаки и затем найти сумму Помогите алгоритм составить в Паскале .
Вы находитесь на странице вопроса "Помогите,пожалуйста!!! Очень прошу. Написать программу на Бейсике", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.