Tomsk Sysadmins Forum
Windows => Программирование => Topic started by: Super on April 28, 2007, 19:45:13
-
Пожалуйста, нужна помощь в написании программ. 50 заданий, с 10-ю не могу справится.
Программы нужно написать на turbo pascal'e, используя циклы ( с пост условием, предусловием и т.п.).
Очень на вас надеюсь...
Если не трудно, то после написения программ выложите их с .pas расширением.
Вот задания:
1.Вывести таблицу квадратов первых десяти целых положительных чисел.
2.Найти сумму первых n членов ряда 1,3,5,7,…. Количество членов ряда задать самостоятельно.
3.Написать программу вычисления таблицы умножения на 7.
4.вычислить сумму и среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры .
5.Дана последовательность из N натуральных чисел, определяющих рост учеников в классе. Определить, выстроены ли ученики «по росту».
6.На спортивных соревнованиях 10 судей выставили свои оценки спортсменам. Итоговая оценка определилась так: самая наибольшая и самая наименьшая оценка из общей суммы удаляется (если таких несколько, то удаляется только одна), затем среди оставшихся подсчитывается среднее арифметическое. Вывести такую оценку.
7.В сказочном городе PRIMEFY на всех улицах номера домов были «простыми» числами На новой улице было всего 4 дома ( с номерами 2,3.5,7), затем построили еще 15 домов. Определите какие у них будут номера.
8.Сиропчик и Лимонадик покупали и пили кока – колу, пустые бутылки сдавали и снова покупали кока – колу, пока не закончились все деньги. Сколько литров выпил каждый их них, если у Сиропчика было s рублей, а у Лимончика L рублей. 1 бутылка кока-колы 0,6 л стоит 8 рублей. Пустые бутылки принимаются по 70 копеек.
9.В заколдованном замке пол выложен плитами (всего 100) с написанными на них натуральными числами. Чтобы пройти через главный зал и не провалиться, нужно отыскать такие плиты, на которых написаны числа. Сумма делителей, которых больше самого числа (например, число 12 – его сумма делителей равна 15, число 18 – его сумма делителей равна 20). Найти и напечатать, какие это числа.
10.В Системландии используются денежные купюры достоинством 1.2.4,8,16,32 и 64 ландика. Кто наименьшим количеством таких купюр (указать, сколько каких) выплатит сумму в N ландиков?
11.Начертить блок – схемы трех типов цикла.
-
Пожалуйста, нужна помощь в написании программ. 50 заданий, с 10-ю не могу справится.
http://www.slackware.tomsk.ru/docs/questions/ (http://www.slackware.tomsk.ru/docs/questions/)
Не задавайте вопросы из домашних заданий
Хакеры хорошо умеют отвечать на вопросы из домашних заданий - большинство из нас их делало самостоятельно. Эти вопросы заданы для работы вам, чтобы вы могли научиться на собственном опыте. Просить можно о подсказке, но не о полном решении.
-
сделайте исключение, я совершенно не могу справится
-
о господи...ужас какой...Это школьные задания что ли?!
ЗЫ: Любой каприз за ваши деньги...вам куда-нить туда, где занимаются решением ДЗ...
Сомневаюсь, что заданий было 50...
-
обратись на фтр
обычно здесь сидят люди которым уже (некогда|лень) заниматься такими мелочами
-
А с какими заданиями Вы справились?!
P.S. ГЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ=)))))))))))))
-
А с какими заданиями Вы справились?!
P.S. ГЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ=)))))))))))))
Судя по Вашей реакции на некоторые темы, Вы при выполнении этих заданий точно получили нервный срыв.
Подозреваю, что поможет только экстренная доза галоперидола и аминазина...
-
Подозреваю, что поможет только экстренная доза галоперидола и аминазина...
твердого аминазина
-
Умнег?
-
хахаха...но вот на счет 11 задания. Автор темы мог бы в свой самоучитель заглянуть что ли...
-
в 11 я ваще не вьехал
-
Пожалуйста, нужна помощь в написании программ. 50 заданий, с 10-ю не могу справится.
10.В Системландии используются денежные купюры достоинством 1.2.4,8,16,32 и 64 ландика. Кто наименьшим количеством таких купюр (указать, сколько каких) выплатит сумму в N ландиков?
На идею (синтаксис Паскаля забыл):
pow: Integer
x[7] : Integer - Это массив на 7 элементов - число купюр в каждой ячейке
Число купюр по 64 определяется простым сдвигом влево на 6 бит:
x[7] := N >> 6 Не знаю как в Паскале он обозначается.
Теперь остальные:
For pow:= 5 To 0 Степень двойки от 5 убывает до 0
x[pow+1] := (N >> pow) and 1
Next pow
Я не проверял, но это вроде должно работать, если поставить правильные операторы из Паскаля. Надеюсь для тебя это не Super проблема? В результате в массиве х должны лежать число купюр. 64-х может быть несколько, остальных максисум по одной.
P.S. Ты заметь, комментарии длинее.
-
в 11 я ваще не вьехал
Если я правильно понял, там не программировать, а рисовать надо уметь.
Написано ведь: "начертить блок–схемы"
-
На идею (синтаксис Паскаля забыл):
pow: Integer
x[7] : Integer - Это массив на 7 элементов - число купюр в каждой ячейке
Число купюр по 64 определяется простым сдвигом влево на 6 бит:
x[7] := N >> 6 Не знаю как в Паскале он обозначается.
Теперь остальные:
For pow:= 5 To 0 Степень двойки от 5 убывает до 0
x[pow+1] := (N >> pow) and 1
Next pow
Я не проверял, но это вроде должно работать, если поставить правильные операторы из Паскаля. Надеюсь для тебя это не Super проблема? В результате в массиве х должны лежать число купюр. 64-х может быть несколько, остальных максисум по одной.
P.S. Ты заметь, комментарии длинее.
спасибки
-
Тему в ЮМОР
-
На идею (синтаксис Паскаля забыл):
pow: Integer
x[7] : Integer - Это массив на 7 элементов - число купюр в каждой ячейке
Число купюр по 64 определяется простым сдвигом влево на 6 бит:
x[7] := N >> 6 Не знаю как в Паскале он обозначается.
Теперь остальные:
For pow:= 5 To 0 Степень двойки от 5 убывает до 0
x[pow+1] := (N >> pow) and 1
Next pow
Я не проверял, но это вроде должно работать, если поставить правильные операторы из Паскаля. Надеюсь для тебя это не Super проблема? В результате в массиве х должны лежать число купюр. 64-х может быть несколько, остальных максисум по одной.
P.S. Ты заметь, комментарии длинее.
не For pow:= 5 To 0 а for pow:=5 downto 0
-
закройте ее.все уже помогли
-
не For pow:= 5 To 0 а for pow:=5 downto 0
Да не помню я точно как на Pascale выражаться. Там еще сдвиг правый, а написал, что левый.