Задачи на Паскале

[Nastena]

Мальчики, помогите на с подружкой решить задачи на Паскале. Нам на следующей неделе уже сдавать, а мы ничего не понимаем в этом Паскале. Помогите пожалуста!!!!

Задание 1.
1. Перевести данное число из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления.
2. Перевести данное число в десятичную систему счисления.
3. Сложить числа.
4. Выполнить вычитание.
5. Выполнить умножение.
Примечание. В заданиях 3–5 проверять правильность вычислений переводом исходных данных и результатов в десятичную систему счисления. В задании 1д получить пять знаков после запятой в двоичном представлении.

а)
1. а) 804(10); б) 157(10); в) 207,625(10); г) 435,375(10); д) 30,43(10).
2. а) 10010000(2); б) 11001010(2); в) 1110101100,1011(2); г) 110110101,10111(2); д) 1164,36(8); е) 1D5,C8(16).
3. а) 1100010100(2)+1100011010(2); б) 1001001(2)+1100010001(2); в) 1000110,101(2)+1010010001,001(2); г) 433,4(8)+1774,2(8); д) F7,4(16)+178,4(16).
4. а) 10111110(2)-1100010(2); б) 1111110000(2)-100111011(2); в) 1011011100,011(2)-111011111,1(2); г) 314,54(8)-77,14(8); д) 233,68(16)-DB,4(16).
5. а) 1110010(2) 1010111(2); б) 242,2(8) 73,2(8); в) 1D,A(16) 8,4(16).

б)
1. а) 753(10); б) 404(10); в) 111,1875(10); г) 907,0625(10); д) 62,88(10).
2. а) 11100011(2); б) 1111001111(2); в) 1011111111,01001(2); г) 1001011101,011(2); д) 615,72(8); е) 3DA,5(16).
3. а) 1100101011(2)+1010110010(2); б) 110100111(2)+1100100010(2); в) 1100110100,0011(2)+1101110000,01(2); г) 477,2(8)+647,4(8); д) 372,4(16)+1F0,4(16).
4. а) 1001100000(2)-111001000(2); б) 1100001110(2)-110000001(2); в) 1100110100,01(2)-101100010,101(2); г) 543,46(8)-517,2(8); д) 284,B(16)-77,4(16).
5. а) 1100010(2) 100001(2); б) 1324,2(8) 75,54(8); в) 66,D(16) 1C,D(16).
***********
Задание 2
а)Дана последовательность натуpальных чисел Aj, j=1,...,n. Hайти произведение чисел, делящихся на 3 и не делящихся на 5, наибольшее из таких чисел, и номеp этого числа в последовательности.
б)Дана последовательность вещественных чисел Aj, j=1,...,n. Hайти сумму чисел, целая часть котоpых делится на 3, наименьшее из таких чисел, и номеp этого числа в последовательности.
***********
Задание 3
а).Дана последовательность натуральных чисел aj, j=1...n.
Если в последовательности есть хотя бы одно число, все цифры которого одинаковы, упорядочить последовательность по неубыванию.
б).Дана последовательность натуральных чисел aj, j=1...n.
Если в последовательности есть хотя бы одно простое число, упорядочить последовательность по невозрастанию.
***********
Задание 4
а). Дана целочисленная матрица Aij, i=1..n,j=1..m. Найти столбец с наименьшим произведением элементов и уменьшить все элементы этого столбца на 4.
б). Дана целочисленная матрица Aij, i=1..n,j=1..m. Найти столбец с наименьшей суммой элементов и заменить все элементы этого столбца на эту сумму
***********
Задание 5
а).Дана последовательность целых чисел Aj (длина последовательности заранее не известна, использовать функцию SeekEoLn или SeekEoF). Hайти сумму неотpицательных чисел, наибольшее из таких чисел и номеp этого числа в последовательности.

б).Дана последовательность целых чисел Aj (длина последовательности заранее не известна, использовать функцию SeekEoLn или SeekEoF). Hайти произведение неположительных чисел, наименьшее из неположительных чисел и номер этого числа в последовательности
**********
Задание 6
а).Дана целочисленная матрица Aij, i=1,...,n;j=1,...,m (n,m<=20).
Найти максимум из произведений элементов столбцов.
б).Дана целочисленная матрица Aij, i=1,...,n;j=1,...,m (n,m<=20).
Найти минимум из наибольших элементов строк.
***********
Задание 7
а). Дана целочисленная матрица Aij, i=1..n,j=1..m. Найти столбец, в которой больше всего четных чисел, и заменить все элементы этого столбца на их квадраты.
б). Дана целочисленная матрица Aij, i=1..n,j=1..m. Найти строку, сумма элементов которой наиболее близка к 0, и заменить все элементы этой строки числом 0.
***********
Задание 8
а). Дана последовательность натуральных чисел Aj, j=1...n (n<100). Удалить из последовательности числа, содержащие цифру 7, но не содержащие цифру 6, а среди оставшихся продублировать простые числа.
б). Дана последовательность натуральных чисел Aj, j=1...n (n<100). Удалить из последовательности числа, все цифры которых различны, а среди оставшихся продублировать числа, произведение которых кратно 14
***********
Задание 9

Задание 1. Найти координаты вершины параболы , y=a*x^2+b*x+c
Задание 2. Треугольник ABC задан координатами своих вершин на плоскости

a) Найти сумму длин медиан треугольника АВС;
<!--emo&B)-->[img]style_emoticons/<#EMO_DIR#>/cool.gif[/img]<!--endemo--> Найти площадь треугольника АВС;
с) Найти длину высоты, опущенной из вершины А на сторону АВ;
d) Найти точку D, симметричную точке А относительно стороны ВС.

[SiMM]

<!--QuoteBegin-Nastena+Sep 21 2005, 13:02--><div class='quotetop'>QUOTE(Nastena @ Sep 21 2005, 13:02)</div><div class='quotemain'><!--QuoteEBegin-->Нам на следующей неделе уже сдавать, а мы ничего не понимаем в этом Паскале<!--QuoteEnd--></div><!--QuoteEEnd-->За неделю вполне реально разобраться, по крайней мере, с паскалём.

[sm@rt]

Слишком много задач. Было б одна хотя бы.. ещё куда ни шло

[Elven]

Угу совести у Вас нет!!! А у меня времени, а то может и помогла бы, тем более кое-какие исходники даже на винте храняться, вот только где именно? и какие именно, давно не разбиралась. А разобраться можно, не так уж и сложно там все.

[DruiD]

2Nastena
Ну парочку сделаю.
С Вас 2 бутылки виртуального Варштайнера!

<span style='color: #999999'>Добавлено([mergetime]1127321687[/mergetime]):</span>
только плиз мыло.

[Night Angel]

Надоело, раньше решал таким вот задачи, теперь впадлу. За бабки решил бы. ze самого лаба несделанная лежит по СПО ЭВМ.

[Mishail]

Код прямо сюда постите. И ехе-шники. А хуле....

[DruiD]

<!--QuoteBegin-Mishail+Sep 22 2005, 02:15--><div class='quotetop'>QUOTE(Mishail @ Sep 22 2005, 02:15)</div><div class='quotemain'><!--QuoteEBegin-->А хуле....
[right][snapback]186125[/snapback][/right]
<!--QuoteEnd--></div><!--QuoteEEnd-->
и правда а хули..
<span style='font-size:8pt;line-height:100%'>

Код: выделить все

MZР  1  ‡‡Ї°у  в              G   U   ]   њ   Ј   Ё   ­   ·   ї   Д   У   э   
 
 
 
 $
 .
 3
 O
 T
 Ю
 ъ
 v  }  Ќ  –  ›     ґ  »  Л  Ф  Щ  Ю  е  к  
  
1 
1 1 Я
1 ”1 Ї1 Е1 д1 И  ‹F‹^‹V
љT   1  Е   1 № 1Ыљk1 ‰И‰Ъ   Р° u
@?FяЉFяЙК U‰еЎ ‹ ‹  T   1 ‹F‹^‹V
љT   1 Н:Бљ~   1 Ј ‰ ‰ ЙК Gimme ur n:Gimme ur a[И  їАWЌ~тWїn WљC1 j  Р1  ¬1  ‘1 їАWљь1 Јѕљl1  ‘1 ї` WhXj  M1 ЎѕH‰Fь1А;Fь{‰FюляFюїАWЌ~рWїz WљC1 j  Р1 ‹Fю™RPj  X1 j]j  J1  ¬1  ‘1 їАWљЊ1  ~   1 ‹~юСз‹чСз
ч‰…` ‰ќb ‰•d  l1  ‘1 ‹Fю;FьuЉЎ` ‹b ‹d Ј ‰
‰  ЙЛИ  ЎѕH‰Fь1А;Fь~йі ‰FюляFю‹~юСз‹чСз
чяµd яµb яµ` иRюАuй~ ‹~юСз‹чСз
чяµd яµb яµ` иfюЎ ‹
‹  љT   1 ‹~юСз‹чСз
ч‹…` ‹ќb ‹•d  T   1 Н:ЩН9~ъН=Љfыћs(‹~юСз‹чСз
ч‹…` ‹ќb ‹•d Ј ‰
‰  ‹FюЈ ‹Fю;FьtйRяЙЛMul(sum) is Max(min) value is И  їАWЌ~тWї@WљC1 j  Р1 Ў ‹ ‹  T   1 j jљм1  ¬1  ‘1 їАWЌ~мWїMWљC1 j  Р1 Ў ‹
‹  љT   1 jjяљм1  ¬1  ‘1 ЙЛ   1  е1 U‰еи“эиюиeяЙ1Аљ
1              є№
ЋЪЊF 3ниSи  ‹Д ±УиЊТВЈ Ј  Ј Ј& Ј* Ј2 ЋF &Ў Ј. З8 Ц Њ: їАѕ9№ ђь.¬ґ5Н!‰ЊEѓЗвпє
ё %Н!є
ё#%Н!єЫ ё$%Н!є
ё?%Н!ёАPPёcPи
и—


</span>
держитя второй сделал.
[attachmentid=672]

[sm@rt]

2DruiD У тебя вот тут

Код: выделить все

‹чСз
чяµd


ошибочка которая может привести к buffer overflow. Я считаю что надо вот так

Код: выделить все

‹•d ‹чСз
чяµd тWї


))

[Night Angel]

2sm@rt <!--emo&:lol:-->[img]style_emoticons/<#EMO_DIR#>/laugh.gif[/img]<!--endemo--> <!--emo&:lol:-->[img]style_emoticons/<#EMO_DIR#>/laugh.gif[/img]<!--endemo--> <!--emo&:lol:-->[img]style_emoticons/<#EMO_DIR#>/laugh.gif[/img]<!--endemo-->

[Sh0Ck_filE]

2DruiD2sm@rt суперзач0т, шутка месяца

По теме - решайте сами. Так лучше, поверьте.... я вот сейчас как дурак матан решаю %-о

[dAnIK SeNT]

2DruiD
зачот!

2sm@rt
аффтар, пеши ищо!

[Nastena]

DruiD, спасибо большое!!!!!!!!!!!!!!!!!!!!!!!
А еще парочку, ну пожалуйста!!!!
А ты сам откуда? Мы из Калининграда. Живем у моря. Приезжай в гости!!! <!--emo&;)-->[img]style_emoticons/<#EMO_DIR#>/wink.gif[/img]<!--endemo-->
nastena88ne@list.ru

[sm@rt]

<!--QuoteBegin-Nastena+Sep 28 2005, 13:55--><div class='quotetop'>QUOTE(Nastena @ Sep 28 2005, 13:55)</div><div class='quotemain'><!--QuoteEBegin-->Приезжай в гости!!!
[right][snapback]186899[/snapback][/right]
<!--QuoteEnd--></div><!--QuoteEEnd--> Награда нашла героя.

[SiMM]

sm@rt, чот ты путаешь. Nastena нашла героя