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

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

 Відправлено: 10.05.08 02:29. Заголовок: А це манюні потрібно..

А це манюні потрібно було лаби здати???

 Відправлено: 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.

 Відправлено: 11.05.08 00:57. Заголовок: Мабуть... :sm17: ..

Мабуть...

 Відправлено: 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) поміняйте місцями елементи головної та побічної діагоналі.

 Відправлено: 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 невірно". Після прикладів у файл виводиться прізвище учня та його оцінка, а після цього - порожня стрічка. Результати кожного наступного тестування повинні дописуватися у вже існуючий файл.

 Відправлено: 25.04.09 18:11. Заголовок: :sm64: ..

 Відправлено: 07.05.09 19:55. Заголовок: Не можу розвязати з..

Не можу розвязати задачу на Turbo Pascalі!!!!!
Інформація про студента містить його прізвище, вік, стать та результати навчання (чотири оцінки) Ініормація у вхідному файлі. Написати программу, що викликає із модуля процедуру, яка подає цю інформацію у вигляді однозвязкового кільцевого списку. Знайти прізвище першої по порядку встигаючої студентки. Буду дуже вдячний!!!!!

 Відправлено: 09.05.09 10:12. Заголовок: постукай мені в Асю,..

постукай мені в Асю, допоможу: 438-132-512 (elstan88)

 Відправлено: 24.05.09 11:41. Заголовок: =)

Розділити масив з цілих чисел на 3 частини.першу відсортувати за зростанням.другу залишити без змін.третю за спаданям
Створити масив із 0 та 1.Вивести на єкран різницю між кількістю 0 та 1. масив В [1..5,1..4]
допоможіть меня будь-ласка

 Відправлено: 10.12.09 23:20. Заголовок: Для самостійного вив..

Для самостійного вивчення теми "Робота з файлами" пропоную переглянути презентацію, яку ви можете скачати ЗВІДСИ

Інші адреси:
http://referatu.net.ua/referats/94/26467/?page=0
http://www.itdom.info/inform/Pascal9.html
http://www.ua5.org/pascal/20-robota-z-fajjlami.html
http://tolearn.ru/archives/50/tolearn.ru-83650.zip

Зразки задач, на яких можна потренуватись, дивіться вище (на 5 повідомлень). Якщо щось не зрозуміли - питайте.

 Відправлено: 28.04.11 13:26. Заголовок: Допоможіть написати праграму на Pascal ABC будь ласка!

Обчислити Z=(Xml+Xm2)/2, де Xml, Xm2 – найменші елементи масивів X1(l), X2(k). примітка: L, k _< 100

 Відправлено: 31.05.14 07:40. Заголовок: Створити файл File1,..

Створити файл File1, компонентами якого є цілі числа. Кількість чисел рівна n, де 8<n<15. Третій елемент замінити на максимальний.

 Відправлено: 03.11.14 19:14. Заголовок: Плиз нада прога

программа, яка прочитає з файлу чотири числа, знайде та запише до іншого файлу їх суму та середнє арифметичне.