с экселем
1 Установить размер бумаги - А4, начальный номер страницы - 10,
горизонтальное и вертикальное центрирование, в верхнем колонтитуле -
свою фамилию (по центру), в нижнем - номер группы (по центру) и номер
страницы (слева).
2 Установить размер шрифта 14 пунктов.
3 Создать таблицу «ЭКЗАМЕНАЦИОННАЯ ВЕДОМОСТЬ» со
следующими столбцами: Фамилия и инициалы студента, Анатомия,
Биохимия, Информационные технологии в ФКиС, Плавание и МП,
Дата окончания сессии.
4 Ввести условия для проверки вводимых данных (данные в количестве 10):
ФИО – не больше 20 символов, оценки – в пределах от 4 до 10, дата
окончания сессии – не раньше 1июня и не позже 1 июля текущего года.
Предусмотреть контекстную диагностику при вводе некорректных
данных, например, при вводе длинной фамилии и инициалов – «Фамилия
и инициалы превышают 20 символов» и т.д.
5 Ввести исходные данные для 10 студентов.
6 Назвать лист «Ведомость».
7 Перейти к адресации ячеек R1C1.
8 Перейти к алфавитно-цифровой адресации ячеек.
9 Использовать разные цвета фона и символов при создании таблицы.
Центрировать заголовок по ширине таблицы и выделить его шрифт.
10.Ввести графу «Номер по порядку» в качестве первого столбца таблицы.
Задать первому элементу таблицы номер 1, а остальные сформировать с
шагом 1, используя прием формирования арифметических прогрессий.
11.Подогнать ширину всех столбцов под введенные в них данные. При этом
длины строки заголовка графы и данных в ней должны быть соизмеримы.
В противном случае разделить заголовки на несколько строк. Добиться
того, чтобы таблица помещалась на листе формата А4 при шрифте 14
единиц.
12.Выполнить размещение символьных данных по центру соответствующих
столбцов, а числовых - по левому краю.
13.Ввести произвольные значения оценок по предметам.
14.Выполнить защиту от модификации столбцов с оценками.
15 В настройке строки состояния сделать видимыми среднее значение,
сумму, максимальное и минимальное значения.
16.Ввести рамки для всех ячеек таблицы.
17.Удалить сетку.
18.Скрыть каждую вторую строку таблицы.
19 Восстановить исходную таблицу.
var x,y,a:real;
begin
write('x = ');
readln(x);
write('y = ');
readln(y);
if x*x-x-4>=0 then
begin
a:=((x*y)/(x+y))/(1+sqrt(x*x-x-4));
writeln('a = ',a:5:3);
end
else writeln('Корень из отрицательного числа');
end.
2)
var a,b,c,d:real;
begin
writeln('Введите a, b, c, d:');
readln(a,b,c,d);
if (a=d)
then if (c=b) then writeln('Бесконечно много решений')
else writeln('Решения нет')
else writeln('x = ',(c-b)/(a-d));
end.
Пример:
Введите a, b, c, d:
2 1 4 3
x = -3