Курсова робота №1
Дано текст. Слова в цьому тексті розділені пробілами. Підрахувати кількість літер а в останньому слові тексту.
Задані дійсні числа а1,...,а10. Обчислити а1+а22+...+а1010.
Дано дві цілі матриці порядку 4. Отримати послідовність b1,...,b4, яка складається з нулів та одиниць, де bi=1, якщо всі елементи і-го рядка першої матриці більше відповідних елементів i-го рядка другої матриці;
Курсова робота №2
Створити файл даних про автомобілі (прізвище власника, марка, номер автомобіля, колір, ціна, рік випуску). Знайти автомобілі марки Ford, рік випуску яких з 2000 по 2002.
Дано натуральне число n. Отримати всі прості дільники цього числа.
Дано текст. Якщо в тексті немає символу „*”, то залишити цей текст без змін, інакше кожну з маленьких латинських літер, яка передують першому входженню символа „*”, замінити на цифру „3”.
Курсова робота №3
Задано натуральне число n. Отримати f0,f1,…,fn, де .
Дано дві цілі матриці порядку 4. Знайти їх добуток.
Дано текст. Знайти найбільшу кількість цифр, які йдуть підряд.
Курсова робота №4
Задані дійсні числа а1,...,а15. Отримати послідовність b1,...,b5, де b1=a1+a2+…+a15, b2=a12+a22+…+a152,…, b5=a15+a25+…+a155.
Дано квадратна матриця порядку n. Отримати матрицю А2.
Створити файл даних про автомобілі (прізвище власника, марка, номер автомобіля). Знайти кількість автомобілів кожної марки.
Курсова робота №5
Обчислити .
Дано дійсна квадратна матриця порядку 5. В рядках з від’ємним елементом на головній діагоналі знайти добуток всіх елементів;
Дано текст. Якщо в тексті немає символу „+”, то залишити цей текст без змін, інакше кожну з цифр, яка передують першому входженню символу „+”, замінити символом „-”.
Курсова робота №6
Дано натуральні числа а, b (a≤b). Отримати всі прості числа р, які задовольняють нерівності a≤p≤b.
Дано дійсна квадратна матриця порядку 3. В рядках з від’ємним елементом на головній діагоналі знайти найменший з всіх елементів;
Дано файл f, що містить відомості про кубики: розмір кожного кубика (довжина ребра в сантиметрах), його колір (червоний, жовтий, зелений). Знайти кількість кубиків кожного з перелічених кольорів та їх сумарний об’єм.
Курсова робота №7
Задано натуральне число n, дійсне число х. Обчислити:.
Дано файл f, що містить відомості про кубики: розмір кожного кубика (довжина ребра в сантиметрах), його колір (червоний, жовтий, зелений) і матеріал (дерев’яний, металевий, картонний). Знайти кубики, об’єм яких однаковий.
Дано ціла квадратна матриця порядку n. З’ясувати, чи є в матриці ненульові елементи і якщо є, то вказати індекси одного з ненульових елементів.
Курсова робота №8
Задано натуральне число n. Обчислити: .
Дано дійсна квадратна матриця порядку n. Отримати х1хn+x2xn-1+…+xnx1, де хк – найбільше значення елементів к-го рядка даної матриці.
Дано: група пасажирів (багаж кожного пасажиру характеризується кількістю речей та загальною вагою речей). Визначити чи є два пасажири, багажі яких співпадають по кількості речей.
Курсова робота №9
Обчислити:.
Дано натуральне число n, дійсна матриця розміром nх2n, дійсне число х. Отримати послідовність b1,...,bn, яка складається із нулів та одиниць, де bi=1, якщо елементи і-го рядка матриці не більше за х, і bi=0 у протилежному випадку.
Дано: група пасажирів (багаж кожного пасажиру характеризується кількістю речей та загальною вагою речей). Визначити кількість пасажирів, які мають речей більше, ніж середня кількість речей.
Курсова робота №10
Задано натуральне число n, дійсне число х. Обчислити:.
Дано дійсна матриця розміром mxn, всі елементи якої різні. В кожному рядку вибирається елемент з найменшим значенням, потім серед цих чисел обирається найбільше. Вказати індекси елемента з обраним значенням.
Створити файл „Моя сім’я” (член сім’ї, вік, зріст). Знайти у файлі осіб, вік яких понад 20 років і зріст понад 170 см.
Курсова робота №11
Задано натуральне число n, дійсне число х. Обчислити:.
Дано ціла квадратна матриця порядку n. Знайти номери рядків, всі елементи яких парні;
Дано рядок. В ньому є хоча б одна крапка. Перетворити рядок, вилучивши з нього всі коми, які передують першій крапці і замінивши знаком „+” всі цифри 3, які зустрічаються після першої крапки.
Приклад курсової роботи:
Program SimplMenu;
Uses crt;
Const
K=4; {кількість пунктів меню}
NameRegime: array [1..k] of string [26]=
(‘1 – обчислення факторіалу’,
‘2 – вирішення матричних задач’,
‘3 – робота з текстом’,
‘4 - вихід’);
var
I,j:byte;
Function Fact; begin <оператори> end; {програми, які створені студентами}
Procedure Matr; begin <оператори> end;
Procedure Tekst; begin <оператори> end;
Begin
While True do begin
Clrscr;
GotoXY(24,4);
Write(‘ Головне меню ’);
For j:=1 to 4 do begin
GotoXY(25, 7+j);
Write (NameRegime[j]);
end;
GotoXY(20,15);
Write (‘ введіть номер режиму і натисніть клавішу <Enter>’);
Readln(i);
Case i of
1: Fact;
2: Matr;
3: Tekst;
4: begin
clrscr;
halt;
end
else
begin
GotoXY(20,17);
Write (‘ Такого режиму немає в меню. Спробуйте ще раз! ’);
Delay (5000);
end; end; end;
End.