Помогите решить |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Помогите решить |
KucerMD |
Сообщение
#1
|
Группа: Пользователи Сообщений: 8 Пол: Мужской Реальное имя: Андрей Репутация: 0 |
1.. Дана скорость движения автомобиля. За какое время он проедет 300 километров.
2.Составить программу определяющую лежит ли точка с координатами x y на окружности радиуса R, центр окружности лежит в начале координат. 3.Дано n количество чисел, подсчитать среди них количество положительных и отрицательных. 4С помощью цикла Repeat написать программу суммы квадратов не чётных чисел от 1 до 300. |
TarasBer |
Сообщение
#2
|
Злостный любитель Группа: Пользователи Сообщений: 1 755 Пол: Мужской Репутация: 62 |
Тут нюанс есть только во втором задании: если числа вещественные, то просто приравнивать сумму квадратов нельзя - любая микропогрешность расчёта даст неравенство.
Так что сначала покажите то, что сами попытались сделать. -------------------- |
KucerMD |
Сообщение
#3
|
Группа: Пользователи Сообщений: 8 Пол: Мужской Реальное имя: Андрей Репутация: 0 |
Нам так учитель дал.
|
Ozzя |
Сообщение
#4
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Цитата Так что сначала покажите то, что сами попытались сделать. Согласен. Хотя бы 1-ю? Там в 3 строки укладывается. |
KucerMD |
Сообщение
#5
|
|||
Группа: Пользователи Сообщений: 8 Пол: Мужской Реальное имя: Андрей Репутация: 0 |
Вот например 3.
If a/2 div 2 then writeln ('polojit') else
Сообщение отредактировано: Lapp - |
|||
Ozzя |
Сообщение
#6
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Нет.
if odd(a) then |
KucerMD |
Сообщение
#7
|
Группа: Пользователи Сообщений: 8 Пол: Мужской Реальное имя: Андрей Репутация: 0 |
|
Ozzя |
Сообщение
#8
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Цитата Че так правильно? Ты сам-то задание прочитал? Тебе в 3-м нужно - "количество положительных и отрицательных". А ты четность/нечетность проверяешь. Перепиши для положительных и отрицательных Добавлено через 4 мин. If a/2 div 2 then {Что за условие? Проверяй на отрицательность/положительность!} |
KucerMD |
Сообщение
#9
|
Группа: Пользователи Сообщений: 8 Пол: Мужской Реальное имя: Андрей Репутация: 0 |
А 2-ая правильно?
c:=a/2 |
Ozzя |
Сообщение
#10
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Нет.
if sqr(x)+sqr(y)=sqr® then c учетом замечания от TarasBer. Добавлено через 1 мин. Хотя, уровень явно школьный. Начала программирования. Так что, сойдет, я думаю. |
KucerMD |
Сообщение
#11
|
Группа: Пользователи Сообщений: 8 Пол: Мужской Реальное имя: Андрей Репутация: 0 |
Нет. if sqr(x)+sqr(y)=sqr® then c учетом замечания от TarasBer. Добавлено через 1 мин. Хотя, уровень явно школьный. Начала программирования. Так что, сойдет, я думаю. Спасибо огромное Ozzя Добавлено через 5 мин. Помогите пожалуиста решить 1,3, и4. |
Гость |
Сообщение
#12
|
Гость |
1. а в чем проблема? t=s/v. Просто введи скорость с клавиатуры, подели и выведи ответ.
3. проходишь массив чисел поэлементно, если число >=0, то увеличиваешь количество положительных, если меньше, то отрицательных. (можно еще считать только положительные, а в конце просто отнять от n получившееся количество - это будут отрицательные) 4. цикл от 1 до 300, проверяешь число на нечетность (функция odd, как раз про нее рассказали), если true, то возводишь в квадрат и суммируешь. Все задачи очень легкие, попробуй сделать сам, почитай FAQ на форуме, там много полезного. |
Текстовая версия | 23.12.2024 19:26 |