Відправлено: 29.04.06 05:47. Заголовок: Програмування

Паскаль ( Turbo Pascal ). Задачі по програмуванню .
Тут можна розміщувати задачі, які варто вміти розв'язувати, та розв'язки задач. Розмістіть тут незрозумілу Вам задачу - і її допоможуть Вам розв'язати.

 Відправлено: 05.04.07 15:26. Заголовок: Re:

SoNik - Закрой рот.
Нашолся тут остроумный!

 Відправлено: 05.04.07 15:57. Заголовок: Re:

Допомогти можна, якщо знати, який масив повинен утворитись в результаті:
1) всі елементи (зліва направо і зверху вниз монотонно зростають чи спадають); 2)монотонно змінюються лише елементи кожної стрічки; 3)монотонно змінюються лише елементи кожного стовпця? Опиши детальніше вимоги до відсортованого масиву (якщо мова йде справді про двохмірний масив).

Перепитаю: двійкову систему розуміти як двохмірний масив (бо насправді це трішечки не те )?

 Відправлено: 05.04.07 17:55. Заголовок: Re:

Та ну, стрiчки чи стовпця, це i так ясно. Менi б i те i те.
Доречi, цiкава задача з одномiрних масивiв:
"Переставити масив а1,а2,а3,..,а18 в масив а1,а18,а2,а17,..."
Класна задача, двi години формули виводив :)

 Відправлено: 08.05.07 01:23. Заголовок: Re:

Vit пишет:

цитата:

Доречi, цiкава задача з одномiрних масивiв: "Переставити масив а1,а2,а3,..,а18 в масив а1,а18,а2,а17,..."

Спосіб перший (симпатичний, з двома масивами):
...
j:=1;
while j<18 do
begin
nom:=j - j div 2; b[j]:=a[n]; b[j+1]:=a[19-n]; j:=j + 2
end;
for j:=1 to 18 do a[j]:=b[j];
...

Спосіб другий (з прокруткою масиву):
...
j:=1;
while j<18 do
begin
buffer:=a[18];
for k:=18 downto j+2 do a[k]:=a[k-1];
a[k+1]:=buffer;
j:=j+2
end;
...

Спосіб третій (найзрозуміліший):
...
for j:=1 to 18 do if odd(j) then b[j]:=a[j] else b[j]:=a[19-j];
for j:=1 to 18 do a[j]:=b[j];
...

Хто більше ?

 Відправлено: 06.04.07 01:06. Заголовок: Re:

Перепитаю ще раз . Маємо масив:
54 03 14 78 25
15 05 55 90 18
22 99 44 04 46
Який масив ти хочеш отримати після сортування?

Вар.1:
03 04 05 14 15
18 22 25 44 46
54 55 78 90 99

Вар.2
03 14 25 54 78
05 15 18 55 90
04 22 44 46 99

Чи якийсь інший варіант?

 Відправлено: 06.04.07 06:41. Заголовок: Re:

Хм, прочитайте щераз i уважнiше моє повiдомлення:

цитата:

Менi б i те i те

Треба вiдсортувати i в стовпчик i в рядок.
Щось обидва варiанти недуже вiдсортованi.
Хоча нi... Блiн, я сам не знаю чого хочу!
Так, ладно, в лiцеї розберусь. Дякую за пiдтримку.
Доречi нам дали класнi задачки, 15 вапiантiв, по двi задачки(одна з одновимiрних, iнша з двовимiрних масивiв) i не простi, а такi, дебелi :) Навiть я в кожну задачу з одномiрних масивiв довго в'їжав! Спробуйте вирiшети ту, що я дав.

 Відправлено: 21.09.07 08:58. Заголовок: Re:

Хтось знає де взяти он-лайн книжечку по мобiльнiй мовi програмування Java (J2ME)?

 Відправлено: 22.09.07 00:26. Заголовок: Re:

Я знаю - вдома.

 Відправлено: 23.09.07 09:07. Заголовок: Re:

Вдома довго мороки з переводом з pdf на бумагу.
А он-лайн софтову лiтературу хтось знає де дiстати?

 Відправлено: 23.09.07 09:51. Заголовок: Re:

Кажуть, що pdfFactory PRO - просто классс!!!
В мене самого ніяк руки не доходять перевірити...
Скачаєш... сподобається - напиши, ні - також...
Якщо не підійде, скажи... Здається ще щось десь валялося...

 Відправлено: 23.09.07 14:36. Заголовок: Re:

Я живу в общазi, дома тiльки один день на тиждень. В мене є доступ до Iнтернету з телефону i бажання вивчати цю довбану мову. Я б можливо i взявся друкувати книжку, та якби не вимушена переустановка Вiндовса...
Тому програму твою протестувати не можу.
Так хтось знає якусь комп'ютерну он-лайн лiтературу?

 Відправлено: 23.09.07 15:01. Заголовок: Re:

Вибач... просто довго шукав путящий сайт...
Як на мене, руль тут належить ЇМ...
Почитай... Знайду ще щось нормальне - повідомлю...

 Відправлено: 23.09.07 15:17. Заголовок: Re:

Не грав би ігри - мав би більше часу .

ОСЬ ТУТ є багато літератури в тому форматі, який тебе цікавить (твій розділ - "Программирование для Интернет"). Невеликі архіви, в які запаковані HTML-сторінки. Якщо тобі потрібні розпаковані HTML чи ТХТ, я зможу виставити їх на твій SEMEN42186. Є там і Джава, і СРР.

Напиши в приват чи передзвони, який формат тобі потрібен, при потребі конвертую. До речі, вдома спокійнісінько лежали програми PDF2WORD, PDF2HTM, PDF Export Kit (який, до речі, переводить PDF у ТХТ, HTML, DOC) ...

А ще вдома лежить книжечка "Програмування ігр для мобільних телефонів" в DJVU чи PDF . Тільки хтось лопухає...

 Відправлено: 07.10.07 18:20. Заголовок: Re:

Якщо комусь треба, нам на домашню задали тести в HTML та Java-скриптах... ось, може комусь треба буде, жміть сюди, чи сюди.
А не треба, то не жміть

 Відправлено: 25.04.08 03:14. Заголовок: Кара, доця, з тебе п..

Кара, доця, з тебе пиво!

========================================================================
{впорядкування трьох чисел A B C за зростанням}
Program sort3;
uses Crt;
var a,b,c,x1,x2,x3:integer;
Begin
Writeln('введіть цілі А В С');
readln(A,B,C);

if A<=B then begin X1:=A; X2:=B end else begin X1:=B; X2:=A end;
{в Х1- менше з А В, в Х2 - більше}

if C>X2 then X3:=C
{якщо С найбільше - в кінець}
else begin
X3:=X2; {якщо С не найбільше, то найбільше - в Х2, тоді його - в кінець}
if C>X1 then X2:=C else begin X2:=X1; X1:=C end;
end;

writeln ('За зростанням: ',X1,' ',X2,' ',X3)
End.

========================================================================
{обчислення S=1 - 2x + 3x^2 - 4x^3 + 5x^4}
Program P2;
uses Crt;
var x,y,S:integer; i:byte;
Begin
Writeln('введіть X');
readln(X);

S:=1;
y:=1; {змінна У містить доданок}

for i:=1 to 4 do
begin
y:=y*(-x)
S:=S+y*(i+1);
end;

writeln('S=',S)
End.
========================================================================
{добуток відємних елементів масиву}
Program p3;
uses Crt;
const N=20;
var i:byte; A:array [1..N] of real; D:real;
Begin
for i:=1 to N do readln A;

D:=1;
for i:=1 to N do if A<0 then D:=D*A;

writeln ('Результат ',D)
End.
========================================================================