Это другие варианты, тех контрольных заданий, которые я уже делал.

Скоро и до них дойдет очередь. Появятся среди примеров. Но если кому-то они нужны срочно, (или что-то похожее), то такие задания я делаю быстро и не дорого.

• В программе описаны типы:
  Type Mast = (р, t, b, h); {пики, трефы, бубны, червы}
  Value = (v6, v7, v8, v9, vlO, vV, vD, vK, vT); {шесть, семь, восемь, девять, десять, валет, дама, король, туз}
  Card = record {описание карты:}
  m: Mast; {масть}
  v: Value достоинство}
  end;
  Написать программу, которая вводит две карты С1 и С2 и козырную масть КМ и проверяет, "бьет" ли карта С1 карту С2.
  Для этого описать логическую функцию Hit (CI, С2: Card; KM: Mast): Boolean


• Написать программу, преобразующую файл АВС.ТХТ в файл СВА.ТХТ, в котором все строки заменены на строки читаемые с конца к началу, например, строка PRIMER должна замениться на строку REMIRP. Содержимое файлов АВС.ТХТ и СВА.ТХТ выведите на экран.


• Написать программу, преобразующую файл АВС.ТХТ в файл INV.TXT. Причем первой строкой INV.TXT является последняя строка АВС.ТХТ, второй — предпоследняя и т.д., последней строкой INV.TXT является первая строка АВС.ТХТ. Содержимое файлов вывести на экран. Число строк файла АВС.ТХТ не более 30..


• Написать программу, с использованием оператора CASE, которая запрашивает номер месяца и год, и печатает название месяца и число дней в нем.
  (Ввод: 2 1992. Вывод: февраль 29)


• Даны коэффициенты a, b, c уравнения ax²+bx+c=0. Написать программу, вычисляющую действительные корни уравнения, если они есть, и печатающую «корней нет» - в противном случае.


• Написать программу, вводящую массив из N целых чисел с клавиатуры и вычисляющую произведение трех наименьших элементов массива с использованием процедуры сортировки.


• Написать программу, , вычисляющую факториал числа с использованием рекурсивной и нерекурсивной функций.


• Заданы три строки. Вывести все буквы, которые есть только в одной из них.


• Дан файл целых чисел int.dat. Написать программу, создающую и записывающую на диск файл res.dat, содержащий все числа из заданного файла, которые начинаются на 6 (67, 61, -6, -67).