 Помогите решить |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| KucerMD |
 26.04.2010 16:27
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 8 Пол: Мужской Реальное имя: Андрей Репутация:  0   |
1.. Дана скорость движения автомобиля. За какое время он проедет 300 километров.
2.Составить программу определяющую лежит ли точка с координатами x y на окружности радиуса R, центр окружности лежит в начале координат. 3.Дано n количество чисел, подсчитать среди них количество положительных и отрицательных. 4С помощью цикла Repeat написать программу суммы квадратов не чётных чисел от 1 до 300. |
   |
 
|
  |
Ответов
| Гость |
26.04.2010 20:52
Сообщение
#2
|
|
Гость |
1. а в чем проблема? t=s/v. Просто введи скорость с клавиатуры, подели и выведи ответ.
3. проходишь массив чисел поэлементно, если число >=0, то увеличиваешь количество положительных, если меньше, то отрицательных. (можно еще считать только положительные, а в конце просто отнять от n получившееся количество - это будут отрицательные) 4. цикл от 1 до 300, проверяешь число на нечетность (функция odd, как раз про нее рассказали), если true, то возводишь в квадрат и суммируешь. Все задачи очень легкие, попробуй сделать сам, почитай FAQ на форуме, там много полезного. |
|
|
|
Сообщений в этой теме
KucerMD Помогите решить 26.04.2010 16:27
TarasBer Тут нюанс есть только во втором задании: если числ... 26.04.2010 16:35 KucerMD Нам так учитель дал. 26.04.2010 16:48 Ozzя
Согласен. Хотя бы 1-ю? Там в 3 строки укладываетс... 26.04.2010 17:07 KucerMD Вот например 3.
If a/2 div 2 then writeln ('po... 26.04.2010 17:19 Ozzя Нет.
if odd(a) then
writeln ('necetnoe... 26.04.2010 17:21
KucerMD
Нет.
if odd(a) then
writeln ('necetnoe... 26.04.2010 17:25 Ozzя
Ты сам-то задание прочитал? Тебе в 3-м нужно - ... 26.04.2010 17:29 KucerMD А 2-ая правильно?
c:=a/2 26.04.2010 18:09 Ozzя Нет.
if sqr(x)+sqr(y)=sqr® then
WriteLn(... 26.04.2010 18:12 KucerMD
Нет.
if sqr(x)+sqr(y)=sqr® then
WriteLn('Ле... 26.04.2010 20:20 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 20.07.2025 16:24 |