Tomsk Sysadmins Forum

Windows => Программирование => Topic started by: Super on April 28, 2007, 19:45:13

Title: Помогите написать программы
Post 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.Начертить блок – схемы трех типов цикла.
Title: Помогите написать программы
Post by: demiurg on April 28, 2007, 22:44:19
Quote from: Super
Пожалуйста, нужна помощь в написании программ. 50 заданий, с 10-ю не могу справится.
http://www.slackware.tomsk.ru/docs/questions/ (http://www.slackware.tomsk.ru/docs/questions/)
Quote
Не задавайте вопросы из домашних заданий
Хакеры хорошо умеют отвечать на вопросы из домашних заданий - большинство из нас их делало самостоятельно. Эти вопросы заданы для работы вам, чтобы вы могли научиться на собственном опыте. Просить можно о подсказке, но не о полном решении.
Title: Помогите написать программы
Post by: Super on April 28, 2007, 22:56:08
сделайте исключение, я совершенно не могу справится
Title: Помогите написать программы
Post by: liloo on April 29, 2007, 01:11:25
о господи...ужас какой...Это школьные задания что ли?!  

ЗЫ: Любой каприз за ваши деньги...вам куда-нить туда, где занимаются решением ДЗ...

Сомневаюсь, что заданий было 50...
Title: Помогите написать программы
Post by: mars on April 29, 2007, 09:28:18
обратись на фтр
обычно здесь сидят люди которым уже (некогда|лень) заниматься такими мелочами
Title: Помогите написать программы
Post by: John_84 on April 30, 2007, 21:25:18
А с какими заданиями Вы справились?!
P.S. ГЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ=)))))))))))))
Title: Помогите написать программы
Post by: demiurg on April 30, 2007, 22:24:03
Quote from: John_84
А с какими заданиями Вы справились?!
P.S. ГЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ=)))))))))))))
Судя по Вашей реакции на некоторые темы, Вы при выполнении этих заданий точно получили нервный срыв.
Подозреваю, что поможет только экстренная доза галоперидола и аминазина...
Title: Помогите написать программы
Post by: mars on May 01, 2007, 00:22:27
Quote from: demiurg
Подозреваю, что поможет только экстренная доза галоперидола и аминазина...
твердого аминазина      
Title: Помогите написать программы
Post by: John_84 on May 01, 2007, 01:12:25
Умнег?
Title: Помогите написать программы
Post by: liloo on May 01, 2007, 17:00:13
хахаха...но вот на счет 11 задания. Автор темы мог бы в свой самоучитель заглянуть что ли...
Title: Помогите написать программы
Post by: Super on May 01, 2007, 21:40:58
 в 11 я ваще не вьехал
Title: Помогите написать программы
Post by: twobrothers on May 02, 2007, 09:37:00
Quote from: Super
Пожалуйста, нужна помощь в написании программ. 50 заданий, с 10-ю не могу справится.
10.В Системландии используются денежные купюры достоинством 1.2.4,8,16,32 и 64 ландика. Кто наименьшим количеством таких купюр (указать, сколько каких) выплатит сумму в N ландиков?

На идею (синтаксис Паскаля забыл):

Code: [Select]
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. Ты заметь, комментарии длинее.
Title: Помогите написать программы
Post by: Safir on May 02, 2007, 10:19:05
Quote from: Super
в 11 я ваще не вьехал
Если я правильно понял, там не программировать, а рисовать надо уметь.
Написано ведь: "начертить блок–схемы"
Title: Помогите написать программы
Post by: Super on May 02, 2007, 16:09:44
Quote from: twobrothers
На идею (синтаксис Паскаля забыл):

Code: [Select]
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. Ты заметь, комментарии длинее.
спасибки  
Title: Помогите написать программы
Post by: HotIce on May 03, 2007, 02:14:24
Тему в ЮМОР
Title: Помогите написать программы
Post by: zhenya on May 03, 2007, 16:11:15
Quote from: twobrothers
На идею (синтаксис Паскаля забыл):

Code: [Select]
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
Title: Помогите написать программы
Post by: Super on May 03, 2007, 16:28:08
закройте ее.все уже помогли
Title: Помогите написать программы
Post by: twobrothers on May 04, 2007, 14:51:41
Quote from: zhenya
не For pow:= 5 To 0 а for pow:=5 downto 0

Да не помню я точно как на Pascale выражаться. Там еще сдвиг правый, а написал, что левый.