Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выручите аграриев / 18 сообщений из 18, страница 1 из 1
21.12.2011, 18:26
    #37587570
Pimp10
Pimp10
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выручите аграриев
Добрый вечер всем извините за глупые задачки но вы бы нам сильно помогли решив эти задачки:
1 В ЭВМ вводятся по очереди координаты N точек, расположенных на плоскости. Определить сколько из них принадлежит фигуре, ограниченной осью абсцисс и аркой синусоиды, построенной для аргумента от 0 до Пи.
2 В группе учится N студентов. В ЭВМ вводят по очереди оценки каждого студента по 3-м предметам. вычислить количество студентов, сдавших хотя бы один предмет на оценку 2.
Остальные задачи однотипные думаю справимся, получить бы образец... если кто из помошников будет из Кирова, пивом не обидим)))
Спасибо за внимание и помощь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2011, 18:38
    #37587594
Above273
Above273
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выручите аграриев
Pimp10В ЭВМ вводят по очереди оценки каждого студента по 3-м предметам куда именно вводятся?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2011, 18:44
    #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:56
    #37587623
alex77755
alex77755
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выручите аграриев
По первому вопросу:
Просто проверяются координаты каждой точки по условиям:
1. Х >0 - ограниченной осью абсцисс
2. y < аркой синусоиды Y < Sin(x)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2011, 18:57
    #37587625
Pimp10
Pimp10
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выручите аграриев
спасибо и на этом)) буду всегда рад помощи ну или могу по машинам рассказать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2011, 19:00
    #37587631
alex77755
alex77755
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выручите аграриев
По второму вопросу - работа с массивами. Значит то, что вы написали раньше должно быть в цикле For i = 1 To N
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2011, 19:04
    #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:06
    #37587640
alex77755
alex77755
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выручите аграриев
И при этом не забыть о типе переменных. InputBox по определению тектбокс и возвращает данные в текстовом формате.
но 2 <> "2"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2011, 19:10
    #37587643
alex77755
alex77755
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выручите аграриев
авторесли кто из помошников будет из Кирова, пивом не обидим
Вот же БЛИН!!
Дочитал до конца сообщение - чуть слюной не подавился.
Так что? у живущих в Украине даже нет шансов??
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2011, 19:13
    #37587646
alex77755
alex77755
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выручите аграриев
авторили могу по машинам рассказать
Точно? 99 стала бензин храть как Боинг.
По городу до 11 литров.
Год назад по России на трассе было 5.8
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2011, 19:23
    #37587653
Pimp10
Pimp10
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выручите аграриев
alex77755 извиняюсь но пиво затратно до вас доставить, а по 99,инжектор у вас или карбюратор(если инжектор горит ли "чек"?) в первую очередь стоит проверить свечи, а так давно ли регулировали клапана...причин может быть много, но начинать надо с более дешевых: Проверка свечей, в/в проводов.....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2011, 20:03
    #37587690
alex77755
alex77755
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выручите аграриев
автордо вас доставить
Не треба. Есть Web мани.
По остальным вопросам - боюсь забанят за флуд.
Инжектор. Свечи, датчик ХХ, датчик дроссельльной заслонки и ещё пару каких-то датчиков менял.
Форсунки ультразвуком чистил. Может пора менять прокладку?(между сиденьем и рулём)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2011, 23:57
    #37588011
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выручите аграриев
 
alex77755По остальным вопросам - боюсь забанят за флуд.
раз автор не возражает против флуда в собственном топике - да пожалуйста. Если печетесь о приличиях - прячьте под спойлер
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2011, 13:23
    #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:31
    #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, 21:11
    #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:16
    #37589853
alex77755
alex77755
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выручите аграриев
Если студентов не более 255, то всё кроме String может быть и As Byte.
Но, вроде, Double обрабатываются быстрей всего. По крайней мере надо уметь ввернуть пару слов о типе данных.
Это часто даёт плюсы к оценке
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.12.2011, 23:32
    #37594460
Pimp10
Pimp10
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выручите аграриев
было написано немного иначе, спасибо всем за участие...зачет все-таки сдал... и Алекс, будете в наших краях пивом я всегда напою))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выручите аграриев / 18 сообщений из 18, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 128ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2158189]:
 0ms
get settings:
 7ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 37ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 10ms
total:  128ms
x
x
Закрыть


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