ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выручите аграриев
18 сообщений из 18, страница 1 из 1
Выручите аграриев
    #37587570
Pimp10
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pimp10
Гость
Добрый вечер всем извините за глупые задачки но вы бы нам сильно помогли решив эти задачки:
1 В ЭВМ вводятся по очереди координаты N точек, расположенных на плоскости. Определить сколько из них принадлежит фигуре, ограниченной осью абсцисс и аркой синусоиды, построенной для аргумента от 0 до Пи.
2 В группе учится N студентов. В ЭВМ вводят по очереди оценки каждого студента по 3-м предметам. вычислить количество студентов, сдавших хотя бы один предмет на оценку 2.
Остальные задачи однотипные думаю справимся, получить бы образец... если кто из помошников будет из Кирова, пивом не обидим)))
Спасибо за внимание и помощь
...
Рейтинг: 0 / 0
21.12.2011, 18:26
| Ответить | Цитировать | Написать  
Выручите аграриев
    #37587594
Above273
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Above273
Гость
Pimp10В ЭВМ вводят по очереди оценки каждого студента по 3-м предметам куда именно вводятся?
...
Рейтинг: 0 / 0
21.12.2011, 18:38
| Ответить | Цитировать | Написать  
Выручите аграриев
    #37587606
Pimp10
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pimp10
Гость
как я понимаю:
For i = 1 To n
x = InputBox("Ââåäèòå 1-þ îöåíêó ñòóäåíòà ¹" & i)
y = InputBox("Ââåäèòå 2-þ îöåíêó ñòóäåíòà ¹ " & i)
z = InputBox("Ââåäèòå 3-þ îöåíêó ñòóäåíòà ¹ " & i)
Next i
...
Рейтинг: 0 / 0
21.12.2011, 18:44
| Ответить | Цитировать | Написать  
Выручите аграриев
    #37587623
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
По первому вопросу:
Просто проверяются координаты каждой точки по условиям:
1. Х >0 - ограниченной осью абсцисс
2. y < аркой синусоиды Y < Sin(x)
...
Рейтинг: 0 / 0
21.12.2011, 18:56
| Ответить | Цитировать | Написать  
Выручите аграриев
    #37587625
Pimp10
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pimp10
Гость
спасибо и на этом)) буду всегда рад помощи ну или могу по машинам рассказать
...
Рейтинг: 0 / 0
21.12.2011, 18:57
| Ответить | Цитировать | Написать  
Выручите аграриев
    #37587631
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
По второму вопросу - работа с массивами. Значит то, что вы написали раньше должно быть в цикле For i = 1 To N
...
Рейтинг: 0 / 0
21.12.2011, 19:00
| Ответить | Цитировать | Написать  
Выручите аграриев
    #37587637
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
После ввода 3 параметрв можно проверить даже без цикла типа:
Код: vbnet
1.
2.
3.
If X = 2 or Y= 2 or Z = 0 then 
сдавших_хотя_бы_один_предмет_на_оценку_2 = сдавших_хотя_бы_один_предмет_на_оценку_2 +1
end if
...
Рейтинг: 0 / 0
21.12.2011, 19:04
| Ответить | Цитировать | Написать  
Выручите аграриев
    #37587640
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
И при этом не забыть о типе переменных. InputBox по определению тектбокс и возвращает данные в текстовом формате.
но 2 <> "2"
...
Рейтинг: 0 / 0
21.12.2011, 19:06
| Ответить | Цитировать | Написать  
Выручите аграриев
    #37587643
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
авторесли кто из помошников будет из Кирова, пивом не обидим
Вот же БЛИН!!
Дочитал до конца сообщение - чуть слюной не подавился.
Так что? у живущих в Украине даже нет шансов??
...
Рейтинг: 0 / 0
21.12.2011, 19:10
| Ответить | Цитировать | Написать  
Выручите аграриев
    #37587646
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
авторили могу по машинам рассказать
Точно? 99 стала бензин храть как Боинг.
По городу до 11 литров.
Год назад по России на трассе было 5.8
...
Рейтинг: 0 / 0
21.12.2011, 19:13
| Ответить | Цитировать | Написать  
Выручите аграриев
    #37587653
Pimp10
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pimp10
Гость
alex77755 извиняюсь но пиво затратно до вас доставить, а по 99,инжектор у вас или карбюратор(если инжектор горит ли "чек"?) в первую очередь стоит проверить свечи, а так давно ли регулировали клапана...причин может быть много, но начинать надо с более дешевых: Проверка свечей, в/в проводов.....
...
Рейтинг: 0 / 0
21.12.2011, 19:23
| Ответить | Цитировать | Написать  
Выручите аграриев
    #37587690
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
автордо вас доставить
Не треба. Есть Web мани.
По остальным вопросам - боюсь забанят за флуд.
Инжектор. Свечи, датчик ХХ, датчик дроссельльной заслонки и ещё пару каких-то датчиков менял.
Форсунки ультразвуком чистил. Может пора менять прокладку?(между сиденьем и рулём)
...
Рейтинг: 0 / 0
21.12.2011, 20:03
| Ответить | Цитировать | Написать  
Выручите аграриев
    #37588011
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
 
alex77755По остальным вопросам - боюсь забанят за флуд.
раз автор не возражает против флуда в собственном топике - да пожалуйста. Если печетесь о приличиях - прячьте под спойлер
...
Рейтинг: 0 / 0
21.12.2011, 23:57
| Ответить | Цитировать | Написать  
Выручите аграриев
    #37588807
Pimp10
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pimp10
Гость
Private Sub CommandButton1_Click()
Dim n As Double
Dim x As Double
Dim y As Double
Dim z As Double
Dim a As Double
Dim i As Double
Dim f As Double
a = 0
n = InputBox("введите количество студентов")


For i = 1 To n
x = InputBox("1-я оценка студента № " & i)
y = InputBox("2-я оценка студента № " & i)
z = InputBox("2-я оценка студента № " & i)
Next i
If x = 2 Or y = 2 Or z = 2 Then
f = a + 1
End If
Print f, ("")
End Sub
...
Рейтинг: 0 / 0
22.12.2011, 13:23
| Ответить | Цитировать | Написать  
Выручите аграриев
    #37588840
Pimp10
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pimp10
Гость
Pimp10,
1-я)

Private Sub CommandButton1_Click()
Dim n As Integer
Dim x As Integer
Dim y As Integer
Dim z As Double
Dim a As Double
Dim i As Integer
Dim f As Double
a = 0
n = InputBox("Ââåäèòå êîëè÷åñòâî òî÷åê")
For i = 1 To n
x = InputBox("Ââåäèòå x òî÷êè ¹ " & i)
y = InputBox("Ââåäèòå y òî÷êè " & i)
Next i
If x > 0 And y < Sin(z) Then f = a + 1 Else: f = a
Print f, ("ñäàâøèõ_õîòÿ_áû_îäèí_ïðåäìåò_íà_îöåíêó_2 = ñäàâøèõ_õîòÿ_áû_îäèí_ïðåäìåò_íà_îöåíêó_2")
End Sub


Но ничего не работает(( а зачет уже завтра
...
Рейтинг: 0 / 0
22.12.2011, 13:31
| Ответить | Цитировать | Написать  
Выручите аграриев
    #37589845
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
Пива хоцца...
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Option Explicit
Private Sub Комманда1_Click()
Dim n As Double
Dim x As Double
Dim y As Double
Dim z As Double
Dim S As String
Dim i As Double
Dim D As String
n = InputBox("введите количество студентов", "Ввод данных", Int(15 * Rnd + 5))
For i = 1 To n
        x = InputBox("1-я оценка студента № " & i & " из " & n, "Ввод данных", Int(3 * Rnd + 2))
        y = InputBox("2-я оценка студента № " & i & " из " & n, "Ввод данных", Int(3 * Rnd + 2))
        z = InputBox("3-я оценка студента № " & i & " из " & n, "Ввод данных", Int(3 * Rnd + 2))
        S = IIf(S = "", "Студент № " & i & " имеет оценки: " & x & ", " & y & ", " & z, S & vbCrLf & "Студент № " & i & " имеет оценки: " & x & ", " & y & ", " & z)
                    If x = 2 Or y = 2 Or z = 2 Then
                            f = f + 1
                            D = IIf(D = "", "Студент № " & i & " имеет оценки: " & x & ", " & y & ", " & z, D & vbCrLf & "Студент № " & i & " имеет оценки: " & x & ", " & y & ", " & z)
                    End If
Next i
Cls
Print S & vbCrLf & " Двоечников:  " & f & vbCrLf & D
End Sub
...
Рейтинг: 0 / 0
22.12.2011, 21:11
| Ответить | Цитировать | Написать  
Выручите аграриев
    #37589853
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
Если студентов не более 255, то всё кроме String может быть и As Byte.
Но, вроде, Double обрабатываются быстрей всего. По крайней мере надо уметь ввернуть пару слов о типе данных.
Это часто даёт плюсы к оценке
...
Рейтинг: 0 / 0
22.12.2011, 21:16
| Ответить | Цитировать | Написать  
Выручите аграриев
    #37594460
Pimp10
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pimp10
Гость
было написано немного иначе, спасибо всем за участие...зачет все-таки сдал... и Алекс, будете в наших краях пивом я всегда напою))
...
Рейтинг: 0 / 0
26.12.2011, 23:32
| Ответить | Цитировать | Написать  
18 сообщений из 18, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выручите аграриев
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=88&tid=2158189]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 26ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 15ms
total:  134ms
созд. / загр.: 134ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]