IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Много разных задач., Помогите решить....
-Slim-
сообщение 20.04.2005 11:46
Сообщение #1


Гость






Помогите решить несколько простеньких(для вас, а не для меня) задач....
Вот задания:

1)Границы промежутка заданы случайными числами. Проверить существование данного промежутка. На данном промежутке найти все числа, кратные числу с и их количество.
Последовательность решения:
1. Описать переменные a, b, c как integer.
2. Задать с клавиатуры коэффициент кратности c.
3. Задать промежуток:
randomize; {подключение генератора случайных чисел}
a:=random(50); {задание случайного числа в пределах от 1 до 50}
в:=random(100); {задание случайного числа в пределах от 1 до 100}
4. Проанализировать существование промежутка: если a>b, то промежуток не существует.
5. Организовать цикл от a до b и найти все кратные числа:
for i:= а to в do {задание границ промежутка случайными числами }
if int(i/2)=i/2 then begin write( i, ’ ‘); k:=k+1; end;
6. Проанализировать значение счетчика к и выдать соответствующее сообщение.
7. Осуществить задержку результата на экране.
---------------------------------------------------------------------------------------------
2). Даны натуральные числа А и В. Определить их наименьшее общее кратное.
Последовательность решения:
• формируем тело программы и описываем переменные:
a,b,c,d,NOD-как integer; NOK – как real;
• вводим натуральные числа А и В;
• запоминаем их в ячейках C и D;
• находим НОД чисел А и В;
• запоминаем его в ячейке NOD;
• вычисляем НОК по формуле: NOK = C*D / NOD;
• выводим результат.
• Подбираем контрольный пример для проверки программы.
---------------------------------------------------------------------------------------------
3)Составить программу вычисления корней квадратного уравнения вида a x 2 + b x + c = 0

Последовательность действий:
1. Описать переменные a, b, c, d, x1,x2 как REAL.
2. Задать с клавиатуры коэффициенты a, b, c.
3. Вычислить значение дискриминанта d = b 2 – 4 a c
4. Вывести значение дискриминанта на экран
5. Проверить значение дискриминанта:
• Если дискриминант меньше нуля, то нет решения
• Если дискриминант больше или равен нулю, то вычислить
значения x1 и x2

Заранее спасибо.
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
-Slim-
сообщение 28.04.2005 8:49
Сообщение #2


Гость






Объясните что это значит:

вводим натуральные числа А и В;
запоминаем их в ячейках C и D;

Как их запомнить в ячейках???????
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 20.07.2025 9:35
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"