В Windows полное имя файла на локальном диске начинается с имени диска (тут всё начинается с E:), затем идут названия папок в порядке вложенности, затем имя файла - имя и расширение, отделенные точкой. Все части отделяются друг от друга обратной чертой \. Можно также думать, что есть полное имя папки, а полное имя файла - это полное имя папки + имя файла.
1) Файлы видеозапись.avi, график.xls, мелодия.mp3 и презентация.ppt находятся прямо в корневой папке диска - в структуре к ним идет линия непосредственно от имени диска. Их полные имена выглядят так:
E:\видеозапись.avi
E:\график.xls
E:\мелодия.mp3
E:\презентация.ppt
2) На диске есть папка ТЕКСТЫ, её полное имя E:\ТЕКСТЫ. В ней лежат файлы буквы.txt и Онегин.doc. Полные имена:
E:\ТЕКСТЫ\буквы.txt
E:\ТЕКСТЫ\Онегин.doc
3) Папка ИЗОБРАЖЕНИЯ лежит на диске E:, её адрес E:\ИЗОБРАЖЕНИЯ.
Непосредственно в ней лежит пайл аквариум.bmp, его полное имя
E:\ИЗОБРАЖЕНИЯ\аквариум.bmp
Также в этой папке есть подпапка ФОТО (E:\ИЗОБРАЖЕНИЯ\ФОТО). В ней два файла Бия.jpeg и Катунь.jpeg. Полные имена:
E:\ИЗОБРАЖЕНИЯ\ФОТО\Бия.jpeg
E:\ИЗОБРАЖЕНИЯ\ФОТО\Катунь.jpeg
x - четное = x дает остаток 0 при делении на 2
Операция взятия остатка при делении в Паскале - mod, корень - sqrt, степень - power (если вы не используете старый Паскаль), квадрат - sqr, натуральный логарифм - log.
Код (Pascal):
const
a = 3e-3;
b = 4.65;
var
x: integer;
Z: real;
begin
read(x);
if x mod 2 = 0 then
Z := sqrt(a + sqr(sin(x * x)) * b)
else
Z := power(a, 1 / 3) + b * b * log(b);
write(Z)
end.
Пример ввода 1:
6
Пример вывода 1:
2.1393591605284
Пример ввода 2:
3
Пример вывода 2:
33.3751364128159
var
Z, x, d: real;
i: integer;
begin
writeln('Enter d:');
readln(d);
for i := 0 to trunc(1 / 0.07) do
begin
x := 0.07 * i;
Z := (sqr(x) - 4 * x + 8.1) * d;
writeln('Z(', x:1:2, ', ', d, ') = ', Z);
end;
end.