Это другие варианты, тех контрольных заданий, которые я уже делал.
Скоро и до них дойдет очередь. Появятся среди примеров.
Но если кому-то они нужны срочно,
(или что-то похожее), то такие задания я делаю быстро и не дорого.
- В программе описаны типы:
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 уравнения ax2+bx+c=0. Написать программу, вычисляющую действительные корни уравнения, если они есть, и печатающую «корней нет» - в противном случае.
- Написать программу, вводящую массив из N целых чисел с клавиатуры и вычисляющую произведение трех наименьших элементов массива с использованием процедуры сортировки.
- Написать программу, , вычисляющую факториал числа с использованием рекурсивной и нерекурсивной функций.
- Заданы три строки. Вывести все буквы, которые есть только в одной из них.
- Дан файл целых чисел int.dat. Написать программу, создающую и записывающую на диск файл res.dat, содержащий все числа из заданного файла, которые начинаются на 6 (67, 61, -6, -67).
Поделиться в соц сетях: