Не зареєстрований
Зареєстрований: 01.01.70
Рейтинг:
0
Відправлено: 29.04.06 05:47. Заголовок: Програмування
Паскаль ( Turbo Pascal ). Задачі по програмуванню . Тут можна розміщувати задачі, які варто вміти розв'язувати, та розв'язки задач. Розмістіть тут незрозумілу Вам задачу - і її допоможуть Вам розв'язати.
Не зареєстрований
Зареєстрований: 17.02.11
Рейтинг:
0
Відправлено: 17.02.11 14:01. Заголовок: Операції над множинами
Допоможіть написати програму на Delphi, яка дозволяє розв’язувати наступну задачу: 1. Реалізувати операції not A , A∪ B(обєднання), A∩ B(перетин) , A \ B(А без В) , B \ A(В без А) поданням заданих множин A та B , які є підмножинами n - елементної універсальної множини. 2. З допомогою бітових рядків виконати обчислення складних виразів з множинами. Для обчислення складних виразів з множинами використати побудовані операції.
універсальна множина містить n-елементів, U = {а1,а2, .., а(n-1), аn} Підмножина А має зображатися бітовим рядком, що складається з 0 та 1 і має довжину n.
Не зареєстрований
Зареєстрований: 01.01.70
Рейтинг:
0
Відправлено: 30.04.06 05:33. Заголовок: Re:
Привіт, кучерявенькі! Хочу до свят побалувати вас приємним подарунком:
ЗАДАЧІ ПО ТЕМІ "РЯДКОВІ ВЕЛИЧИНИ" (на яких раджу тренуватись)
1. У введеному користувачем тексті підрахувати: а)скільки разів зустрічається буква “м”; б) кількість цифр “2”; в) кількість пробілів; г) кількість цифр; д) кількість цифр "0", "5" і "9" (окремо); е) кількість голосних букв Е і Є (разом); є) кількість малих англійських букв;
2. У введеному користувачем тексті замінити: а) цифру “8” числом “88”; б) словосполучення “ма” словосполученням “мама”; в) слово “так” словом “ні”; г) одну букву А двома;
3. Для введеного користувачем тексту надрукувати: а) четверте слово; б) частину тексту від початку до першої цифри “1”; в) частину тексту від першого знаку “,” до кінця; г) частину тексту між другою і третьою буквою “я”.
4. Для введеного користувачем тексту: а) вивести третє слово, змінивши у ньому порядок символів на зворотній; б) об’єднати передостаннє і останнє слово і вивести його на екран; в) обчислити кількість символів у другому слові; г) виділити четверте слово і вставити між всіма його буквами символ "+".
5. Просто прриємні задачі: а) зашифрувати введену користувачем фразу за принципом: символ замінюється наступним у таблиці символів (наприклад, слово "соловейко" після кодування стане словом "тпмпгєклп"). Скласти програму для розкодування такого тексту. б) перевірити, чи є введене користувачем слово паліндромом (одинаково читається у прямому і зворотньому порядку, наприклад, "кабак"); в) підрахувати частоту входження у введений користувачем текст літер українського алфавіту (вимога - мінімальний розмір програми)
Якщо Ви знаєте якісь оригінальні задачі по цій темі - допишіть.
Хреновый значит у тебя универ, на самом деле это ОЧЧень простые алгоритмы, сложно сделать чтоб эта хрень работала для строк неограниченной длины. Вот если динамические структуры рубишь, тогда на 3 может и потянешь.
Пост N: 71
Зареєстрований: 29.04.06
Звідкіля: Boys, Hello
Рейтинг:
1
Відправлено: 01.12.06 01:28. Заголовок: Re:
Не МОЖНО, а НУЖНО! В усякому разі тому, хто хоче в майбутньому пов'язати своє життя з програмуванням. Повірте, це не високий рівень, а рівень середнячка - у ліцеях вчать крутіші речі (маю досвід)
Не зареєстрований
Зареєстрований: 01.01.70
Рейтинг:
0
Відправлено: 14.05.06 10:27. Заголовок: Re:
Для 11-В класу (готуємось до КР): зразки задач (загальноосвітній профіль)
Блок 1. Лінійні програми 1.Обчислити площу S і периметр Р прямокутника зі сторонами X і Y (X,Y – цілі числа, їх вводить користувач). 2.Обчислити кількість хвостів і лап у К крокодилів (число К вводить користувач). 3.Обчисліть довжину кола С і площу S круга радіусом R (дійсне число R вводить користувач).
Блок 2. Програми з розгалуженнями 4.Визначити стан води (твердий, рідина чи пара) для води з температурою Т (число Т вводить користувач). 5.Визначити найменше з трьох чисел X, Y і Z, введених користувачем; вивести його на екран. 6.Визначте, чи належить введене користувачем число Х діапазону (-13; -5]. 7.Обчисліть значення виразу 5:(X-4) для довільного числа Х, введеного користувачем; у випадку ділення на 0 видати повідомлення “значення невизначене”. 8.Перевірити навички додавання цілих чисел (від 0 до 20) двома прикладами, заданими користувачеві; введену користувачем відповідь оцінювати фразами “вірно” чи “невірно”. 9.Перевірити, чи є введені користувачем координати Х і Y координатами точки перетину прямих 4х-3y=5 та х-5у=-3.
Блок 3. Програми з циклами while-do 10.Обчислити суму 20+23+26+...+80. 11.Обчислити добуток 5*10*15*...*400. 12.Обчислити різницю 300-4-6-8-...-80. 13.Обчислити суму дробів 5/7 + 5/9 + 5/11 + ... + 5/21 14.Обчислити суму квадратних коренів непарних чисел від 11 до 31. 15.Обчисліть суму квадратів чисел 3; 3,2; 3,4; ... ;7,6.
Блок 4. Програми з циклами for-to-do 16.Для 10 чисел, введених користувачем, обчислити кількість чисел, більших -5. 17.Для 10 чисел, введених користувачем, обчислити суму лише тих чисел, квадратний корінь яких не більший 6. 18.Для 10 чисел, введених користувачем, обчислити добуток лише від’ємних чисел.
На сайті http://www.olymp.vinnica.ua можна побачити умови завдань 1-го туру української інтернет-олімпіади NetOI-2006 і при бажанні прийняти в ній участь. Покваптесь - розвязки першого туру приймаються до 27.10.2006.
Пост N: 145
Зареєстрований: 29.04.06
Звідкіля: Boys, Hello
Рейтинг:
1
Відправлено: 23.01.07 01:45. Заголовок: Re:
Згоден. Нагадую, що справді приємні задачі можна знайти на сайті http://www.olymp.vinnica.ua. До речі, віднедавна там розміщують задачі районних та обласних олімпіад, тому є реальна можливість перевірити свої сили
Пост N: 82
Зареєстрований: 04.09.06
Звідкіля: Украина, Вольногорск
Рейтинг:
3
Відправлено: 21.03.07 13:28. Заголовок: Re:
Нафиг оно тебе надо Йожик? Тебе занятся нечем, лутше физику, алгебру, химию, геометрию поучи! Больше толку будет! Или на крайняк Вэб страници научись создавать! Твоё Дэлфи никому уже не надо! Если хочеш прграммером стать учи Си!!!
цитата: Твоё Дэлфи никому уже не надо! Если хочеш прграммером стать учи Си!!!
К твоему сведению Leva,Delphi и C++ разработала одна фирма Borland. Borland Delphi и Borland C++ и по-этому я хочу тебе сказать, что языки в етих прогах почти одинаковые ( точки заменяются стрелками ).Так что ты глубоко ошибаешся по-этому поводу и Делфи ето реальная прога на которой можна сделать практически все что задумаешь.
Відправлено: 07.05.09 19:56. Заголовок: Не можу розвязати з..
Не можу розвязати задачу на Turbo Pascalі!!!!! Інформація про студента містить його прізвище, вік, стать та результати навчання (чотири оцінки) Ініормація у вхідному файлі. Написати программу, що викликає із модуля процедуру, яка подає цю інформацію у вигляді однозвязкового кільцевого списку. Знайти прізвище першої по порядку встигаючої студентки. Буду дуже вдячний!!!!!
Пост N: 91
Зареєстрований: 22.01.07
Звідкіля: Страна дураков, Днепропетровск
Рейтинг:
0
Відправлено: 22.03.07 17:30. Заголовок: Re:
Да делфи действительно имеет очень мощный интерфейс и вижуал класная штука и на нем можно написать огромное количество алгоритмов для решения разнообразнейших задач
Экскурс в историю: Делфи - это потомок языка паскаль, а на паскале на 80% написан Win95 (см. исходники)
теперь о С и С++ С был разработан как кросплатформенный язык с быстрым и мощным компилятором, именно на нем и разработаны такие ОС как WIN98 - Win2003, X-Window под Unix`оподобные, и т.д.
С/С++ удачно описывается в примерах от Microsoft ежегодичный пакет MSDN и Visual Studio
Пост N: 214
Зареєстрований: 17.02.07
Звідкіля: Днiпропетровськ, Вiльногiрск
Рейтинг:
4
Відправлено: 05.04.07 07:37. Заголовок: Re:
В нас думки роздiлились(щодо сортування): однi хочуть перевести масив з двовимiрного в одновимiрний, iншi хочуть додати ще 2 Fоr'и в метод "бульбашки". В мене щось не виходить нi перше нi друге, допоможiть! Рlz
Пост N: 376
Зареєстрований: 29.04.06
Звідкіля: Boys, Hello
Рейтинг:
6
Відправлено: 05.04.07 15:57. Заголовок: Re:
Допомогти можна, якщо знати, який масив повинен утворитись в результаті: 1) всі елементи (зліва направо і зверху вниз монотонно зростають чи спадають); 2)монотонно змінюються лише елементи кожної стрічки; 3)монотонно змінюються лише елементи кожного стовпця? Опиши детальніше вимоги до відсортованого масиву (якщо мова йде справді про двохмірний масив).
Перепитаю: двійкову систему розуміти як двохмірний масив (бо насправді це трішечки не те )?
Пост N: 220
Зареєстрований: 17.02.07
Звідкіля: Днiпропетровськ, Вiльногiрск
Рейтинг:
4
Відправлено: 05.04.07 17:55. Заголовок: Re:
Та ну, стрiчки чи стовпця, це i так ясно. Менi б i те i те. Доречi, цiкава задача з одномiрних масивiв: "Переставити масив а1,а2,а3,..,а18 в масив а1,а18,а2,а17,..." Класна задача, двi години формули виводив :)
Дореч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]; ...
Пост N: 223
Зареєстрований: 17.02.07
Звідкіля: Днiпропетровськ, Вiльногiрск
Рейтинг:
4
Відправлено: 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шети ту, що я дав.
Пост N: 54
Зареєстрований: 02.09.07
Звідкіля: Україна, Вільногірськ
Рейтинг:
0
Відправлено: 23.09.07 09:51. Заголовок: Re:
Кажуть, що pdfFactory PRO - просто классс!!! В мене самого ніяк руки не доходять перевірити... Скачаєш... сподобається - напиши, ні - також... Якщо не підійде, скажи... Здається ще щось десь валялося...
Пост N: 435
Зареєстрований: 17.02.07
Звідкіля: Днiпропетровськ, Вiльногiрськ
Рейтинг:
2
Відправлено: 23.09.07 14:36. Заголовок: Re:
Я живу в общазi, дома тiльки один день на тиждень. В мене є доступ до Iнтернету з телефону i бажання вивчати цю довбану мову. Я б можливо i взявся друкувати книжку, та якби не вимушена переустановка Вiндовса... Тому програму твою протестувати не можу. Так хтось знає якусь комп'ютерну он-лайн лiтературу?
Пост N: 755
Зареєстрований: 29.04.06
Звідкіля: Boys, Hello
Рейтинг:
5
Відправлено: 23.09.07 15:17. Заголовок: Re:
Не грав би ігри - мав би більше часу .
ОСЬ ТУТ є багато літератури в тому форматі, який тебе цікавить (твій розділ - "Программирование для Интернет"). Невеликі архіви, в які запаковані HTML-сторінки. Якщо тобі потрібні розпаковані HTML чи ТХТ, я зможу виставити їх на твій SEMEN42186. Є там і Джава, і СРР.
Напиши в приват чи передзвони, який формат тобі потрібен, при потребі конвертую. До речі, вдома спокійнісінько лежали програми PDF2WORD, PDF2HTM, PDF Export Kit (який, до речі, переводить PDF у ТХТ, HTML, DOC) ...
А ще вдома лежить книжечка "Програмування ігр для мобільних телефонів" в DJVU чи PDF . Тільки хтось лопухає...
Пост N: 1135
Зареєстрований: 29.04.06
Звідкіля: Boys, Hello
Рейтинг:
5
Відправлено: 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;
Пост N: 1144
Зареєстрований: 29.04.06
Звідкіля: Boys, Hello
Рейтинг:
5
Відправлено: 11.05.08 00:03. Заголовок: Не сказала. Мабуть, ..
Не сказала. Мабуть, перездавала хвости
До попередніх задач. Задачу на впорядкування (задача 1) можна розвязати й іншим способом - з використанням процедури. Program sort3; uses Crt; var a,b,c:integer;
procedure min (x1,x2:integer; var minX,maxX:integer); begin minX:=x1; maxX:=x2; if x1>x2 then begin minX:=x2; maxX:=x1 end end; {minX - менше з чисел, maxX - більше}
Begin Writeln('введіть числа А В С'); readln(A,B,C); min (A,B,A,B); {в A - менше з чисел А і В} min (A,C,A,C); {в A - найменше} min (B,C,B,C); {в B - менше, в C - найбільше} writeln ('найменше ',A,' середнє ',B,' найбільше ',C) End.
Пост N: 1333
Зареєстрований: 29.04.06
Звідкіля: Boys, Hello
Рейтинг:
5
Відправлено: 02.04.09 13:08. Заголовок: Задачі з теми "Р..
Задачі з теми "Робота з лінійними масивами" (просто так, потренуватися :-)
Для лінійного масиву AR із 10 чисел типу REAL: 1) обчисліть добуток всіх елементів; 2) суму модулів всіх від'ємних елементів; 3) суму кубічних коренів всіх додатніх елементів; 4) кількість елементів, що не входять до діапазону [-10;11]; 5) найбільший серед елементів та його номер; 6) найменший серед від'ємних елементів; 7) номер найбільшого елемента серед всіх елементів, більших 10; 8) замініть всі додатні елементи їх квадратними коренями; 9) замініть всі парні елементи числом 10, а непарні кратні трьом - числом -10; 10) поміняйте місцями елементи за принципом: перший з останнім, другий з передостаннім і т.п. 11) знайдіть номер стовпчиків, в яких середнє арифметичне його елементів менше, ніж середнє арифметичне елементів всього масиву.
Задачі з теми "Робота з двохвимірними масивами" (так, потренуватися)
Для двохвимірного масиву А (4 стрічки по 5 чисел дійсного типу в кожній): 1) обчисліть суму елементів, менших -10; 2) обчисліть кількість елементів з діапазону [-5;3); 3) обчисліть добуток елементів для кожної стрічки окремо; 4) знайдіть добуток всіх елементів 2-го та 4-го стовпців; 5) знайдіть добуток всіх елементів 2-го стовпця та 3-ї стрічки; 6) поміняйте місцями елементи 1-ї та 3-ї стрічок; 7) зменшіть всі елементи непарних стовпців вдвічі; 8) утворіть новий масив В із максимальних елементів кожного із стовпців; 9) обчисліть добуток ненульових елементів для кожного стовпця окремо; 10) знайдіть номер найменшого елемента для кожної стрічки окремо;
Для квадратної матриці МАТ (4*4) із чисел типу INTEGER: 11) визначте максимальні елементи для головної та побічної діагоналі; 12) обчисліть суму від'ємних елементів побічної діагоналі; 13) обчисліть середнє арифметичне парних чисел головної діагоналі; 14) поміняйте місцями елементи головної та побічної діагоналі.
Пост N: 1348
Зареєстрований: 29.04.06
Звідкіля: Boys, Hello
Рейтинг:
5
Відправлено: 23.04.09 20:02. Заголовок: Для тих, хто ще не з..
Для тих, хто ще не за бортом: задачі з теми "Робота з файлами"
По замовчуванню всі файли розміщені на диску D у папці 1. Якщо про це не сказано, то назва файлу на вході - F1.txt , на виході (якщо такий потрібен) - F2.txt .
1) В файлах F1.txt F2.txt по 10 стрічок з текстом. Обєднайте ці тексти за принципом: стрічки з кожного файлу чергуються (20 стрічок). Обєднаний текст розмістіть у файлі F3.txt.
2) В файлах F1.txt F2.txt по 10 стрічок з текстом. Обєднайте ці тексти за принципом: спочатку стрічки з першого файлу, потім - стрічки з другого (20 стрічок). Обєднаний текст розмістіть у файлі F3.txt.
3) В файлах F1.txt F2.txt по 10 стрічок з текстом. Обєднайте ці тексти за принципом: стрічки з кожного файлу з одинаковими номерами обєднуються в одну стрічку (10 стрічок). Обєднаний текст розмістіть у файлі F3.txt.
4) Зчитати з файлу 10 слів, запитати у користувача їх синоніми, вивести у новий файл слова та синоніми (кожну пару - окремою стрічкою).
5) Зчитати з файлу 10 слів, запитати у користувача їх синоніми, перезаписати файл, вивівши у нього слова та синоніми (кожну пару - окремою стрічкою).
6) У файлах F1a.txt i F1b.txt э по 10 цілих чисел (типу байт). Обчисліть суму чисел для стрічок з однаковими номерами, виведіть у файл F2.txt ці суми у вигляді арифметичних виразів виду "12+34=46".
7) У файлі F1.txt 10 цілих чисел типу байт (одне число - одна стрічка). Перезапишіть файл, замінивши ці числа їх кубами.
8) У файлі F1.txt 10 стрічок. У стрічках з непарними номерами - назва літературного твору, у стрічках з парними номерами - їх автор. Згрупуйте назви творів та прізвища їх авторів попарно, розділивши їх знаком "тире" (одна пара - одна стрічка); запишіть ці стрічки у файл F2.txt.
9) У файлі F1.txt розміщені числа (одна стрічка - одне число, кількість чисел невідома). Обчислити середнє арифметичне цих чисел, результат дописати у файл F1.txt після порожньої стрічки.
10) У файлі F1.txt невідома кількість стрічок, у кожній стрічці - прізвище та імя учня (через пробіл). Перепишіть окремими файлами F2a.txt та F2b.txt прізвища та імена (в одному файлі - лише прізвища, в іншому - лише імена).
11) У файлі F1.txt невідома кількість стрічок, у кожній стрічці - приклад на додавання натуральних чисел (в межах від 1 до 50) виду 45+17. Виведіть у файл F2.txt однією стрічкою відповіді до цих прикладів (обчислює комп'ютер), розділивши їх пробілами.
12) Складіть тестуючу програму для перевірки вміння віднімати двоцифрові числа (в межах від 11 до 99). Програма 10 разів загадує два випадкові двоцифрові числа (перше завжди більше), виводить їх на екран у вигляді виразу виду "78-36=", приймає відповідь користувача, перевіряє її правильність та виводить фразу "вірно" чи "невірно". В кінці тестування виводиться оцінка (кількість правильних відповідей +1). Числові вирази, введені користувачем відповіді на них та фрази "вірно" чи "невірно" виводяться також в файл F2.txt (один приклад - одна стрічка) у вигляді фраз типу "78-36=44 невірно". Після прикладів у файл виводиться прізвище учня та його оцінка, а після цього - порожня стрічка. Результати кожного наступного тестування повинні дописуватися у вже існуючий файл.
Відправлено: 07.05.09 19:55. Заголовок: Не можу розвязати з..
Не можу розвязати задачу на Turbo Pascalі!!!!! Інформація про студента містить його прізвище, вік, стать та результати навчання (чотири оцінки) Ініормація у вхідному файлі. Написати программу, що викликає із модуля процедуру, яка подає цю інформацію у вигляді однозвязкового кільцевого списку. Знайти прізвище першої по порядку встигаючої студентки. Буду дуже вдячний!!!!!
Розділити масив з цілих чисел на 3 частини.першу відсортувати за зростанням.другу залишити без змін.третю за спаданям Створити масив із 0 та 1.Вивести на єкран різницю між кількістю 0 та 1. масив В [1..5,1..4] допоможіть меня будь-ласка
Всі дати в форматі GMT
2 час. Хітів сьогодні: 0
Права: смайли так, картинки так, шрифти так, голосування ні
аватари так, автозаміна посилань вкл, премодерація відкл, правка ні