Author Topic: Помогите написать программы  (Read 11294 times)

0 Members and 1 Guest are viewing this topic.

Offline Super

  • Newbie
  • *
  • Posts: 11
  • Karma: +0/-0
Помогите написать программы
« 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.Начертить блок – схемы трех типов цикла.

Offline demiurg

  • Hero Member
  • *****
  • Posts: 1014
  • Karma: +0/-0
    • http://larin.tomsk.ru
Помогите написать программы
« Reply #1 on: April 28, 2007, 22:44:19 »
Quote from: Super
Пожалуйста, нужна помощь в написании программ. 50 заданий, с 10-ю не могу справится.
http://www.slackware.tomsk.ru/docs/questions/
Quote
Не задавайте вопросы из домашних заданий
Хакеры хорошо умеют отвечать на вопросы из домашних заданий - большинство из нас их делало самостоятельно. Эти вопросы заданы для работы вам, чтобы вы могли научиться на собственном опыте. Просить можно о подсказке, но не о полном решении.

Offline Super

  • Newbie
  • *
  • Posts: 11
  • Karma: +0/-0
Помогите написать программы
« Reply #2 on: April 28, 2007, 22:56:08 »
сделайте исключение, я совершенно не могу справится

Offline liloo

  • Newbie
  • *
  • Posts: 9
  • Karma: +0/-0
    • http://
Помогите написать программы
« Reply #3 on: April 29, 2007, 01:11:25 »
о господи...ужас какой...Это школьные задания что ли?!  

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

Сомневаюсь, что заданий было 50...
« Last Edit: April 29, 2007, 01:13:03 by liloo »

Offline mars

  • Sr. Member
  • ****
  • Posts: 302
  • Karma: +0/-0
Помогите написать программы
« Reply #4 on: April 29, 2007, 09:28:18 »
обратись на фтр
обычно здесь сидят люди которым уже (некогда|лень) заниматься такими мелочами

Offline John_84

  • Newbie
  • *
  • Posts: 38
  • Karma: +0/-0
    • http://
Помогите написать программы
« Reply #5 on: April 30, 2007, 21:25:18 »
А с какими заданиями Вы справились?!
P.S. ГЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ=)))))))))))))

Offline demiurg

  • Hero Member
  • *****
  • Posts: 1014
  • Karma: +0/-0
    • http://larin.tomsk.ru
Помогите написать программы
« Reply #6 on: April 30, 2007, 22:24:03 »
Quote from: John_84
А с какими заданиями Вы справились?!
P.S. ГЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ=)))))))))))))
Судя по Вашей реакции на некоторые темы, Вы при выполнении этих заданий точно получили нервный срыв.
Подозреваю, что поможет только экстренная доза галоперидола и аминазина...
« Last Edit: April 30, 2007, 22:26:35 by demiurg »

Offline mars

  • Sr. Member
  • ****
  • Posts: 302
  • Karma: +0/-0
Помогите написать программы
« Reply #7 on: May 01, 2007, 00:22:27 »
Quote from: demiurg
Подозреваю, что поможет только экстренная доза галоперидола и аминазина...
твердого аминазина      

Offline John_84

  • Newbie
  • *
  • Posts: 38
  • Karma: +0/-0
    • http://
Помогите написать программы
« Reply #8 on: May 01, 2007, 01:12:25 »
Умнег?

Offline liloo

  • Newbie
  • *
  • Posts: 9
  • Karma: +0/-0
    • http://
Помогите написать программы
« Reply #9 on: May 01, 2007, 17:00:13 »
хахаха...но вот на счет 11 задания. Автор темы мог бы в свой самоучитель заглянуть что ли...

Offline Super

  • Newbie
  • *
  • Posts: 11
  • Karma: +0/-0
Помогите написать программы
« Reply #10 on: May 01, 2007, 21:40:58 »
 в 11 я ваще не вьехал

Offline twobrothers

  • Full Member
  • ***
  • Posts: 118
  • Karma: +0/-0
Помогите написать программы
« Reply #11 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. Ты заметь, комментарии длинее.
« Last Edit: May 02, 2007, 09:41:26 by twobrothers »
Вредоносней пользователя вируса нет!

Offline Safir

  • Sr. Member
  • ****
  • Posts: 402
  • Karma: +0/-0
    • http://
Помогите написать программы
« Reply #12 on: May 02, 2007, 10:19:05 »
Quote from: Super
в 11 я ваще не вьехал
Если я правильно понял, там не программировать, а рисовать надо уметь.
Написано ведь: "начертить блок–схемы"

Offline Super

  • Newbie
  • *
  • Posts: 11
  • Karma: +0/-0
Помогите написать программы
« Reply #13 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. Ты заметь, комментарии длинее.
спасибки  

Offline HotIce

  • Sr. Member
  • ****
  • Posts: 339
  • Karma: +0/-0
    • http://
Помогите написать программы
« Reply #14 on: May 03, 2007, 02:14:24 »
Тему в ЮМОР
Полного ответа могу не дать... но на мысль натолкну...

Offline zhenya

  • Administrator
  • Full Member
  • *****
  • Posts: 215
  • Karma: +14/-5
Помогите написать программы
« Reply #15 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

Offline Super

  • Newbie
  • *
  • Posts: 11
  • Karma: +0/-0
Помогите написать программы
« Reply #16 on: May 03, 2007, 16:28:08 »
закройте ее.все уже помогли

Offline twobrothers

  • Full Member
  • ***
  • Posts: 118
  • Karma: +0/-0
Помогите написать программы
« Reply #17 on: May 04, 2007, 14:51:41 »
Quote from: zhenya
не For pow:= 5 To 0 а for pow:=5 downto 0

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