ГлавнаяПрограммирование → Лабораторная, Программирование на Pascal

Лабораторная, Программирование на Pascal

Задание

ЛАБОРАТОРНАЯ РАБОТА № 1

Задача 1 Пусть дано натуральное число n. Составить программу вычисления n3 как суммы нечетных чисел исходя из того, что: 13 = 1; 23 = 3 + 5; 33 = 7 + 9 + 11; 43 = 13 + 15 + 17 + 19; 53 = 21+ 23 + 25 + 27 + 29; …

Задача 2 Исключить из данной строки группы символов, расположенные между скобками ( , ). Сами скобки тоже должны быть исключены. Указание: предполагается, что внутри каждой пары скобок нет других скобок.

ЛАБОРАТОРНАЯ РАБОТА № 2

Задача 1 Даны действительные числа a1, a2, ..., an, an , ... , a2n . Получить max (a1 + a2n , a2 + a2n – 1, ... , an + an+1 ); min(a1 * an, a2 * an+1, ..., an+1 * a2n ).

Задача 2 Напечатать все натуральные числа от 10 до 32767, в десятичной записи которых нет одинаковых цифр. Указание: решение задачи простое, если вы будете использовать множества. Необходимо для каждого числа создавать множество, состоящее из цифр числа. При этом проверять: если очередная цифра числа есть уже во множестве, то такое число не надо выводить на экран.

ЛАБОРАТОРНАЯ РАБОТА № 3

Задача 1 type seria = file of integer; var s:seria; Описать функцию poz(s, n), подсчитывающую количество положительных и отрицательных чисел в файле s. Указание: введите файл s (последний элемент равен 0) и напечатайте значение функции poz(s, n).

Задача 2 Описать рекурсивную функцию digits (s), которая подсчитывает сумму цифр в строке s.

ЛАБОРАТОРНАЯ РАБОТА № 4

Задача 1 Используйте линейные списки для хранения последовательности чисел. Опишите процедуру или функцию, которая для данного списка L создает список L1, содержащий только положительные элементы списка.

Задача 4 Написать программу, вызывающую пульсацию окружности в центре экрана. Окружность должна увеличиваться в диаметре до тех пор, пока не достигнет границ экрана, затем она начинает сжиматься. Процесс должен циклически повториться, при этом необходимо обеспечить чередование цветов при увеличении и уменьшении диаметра окружности.

Детали товара
  • 250 руб.
  • Лабораторная работа
  • Pascal
  • Нет
  • Pascal ABC
  • Есть
Изображения товара
Обратите внимание

На нашем сайте есть работы, которые включают в себя несколько задач. Если Вам необходима только одна или несколько задач из всей работы, то вам нет необходимости покупать работу целиком. Мы можем продать задачи по отдельности. Для этого обратитесь к нам удобным для Вас способом.

Также если вдруг какая-то работа будет не соответствовать описанию или вы найдете ошибку, то мы всегда готовы исправить проблему в обговорённые с Вами сроки.