В 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. Полные имена:
Uses GraphABC; var x, y: word; i: byte; begin SetBrushStyle(bsclear); SetWindowWidth(590); SetWindowHeight(390); Rectangle(5, 5, 585, 385); x := 25; y := 25; Circle(565, 25, 20); Circle(565, 365, 20); Circle(25, 365, 20); repeat Circle(x, y, 20); if (x < 565) and (y = 25) then x := x + 20; if (x = 565) and (y < 365) then y := y + 20; if (y = 365) and (x > 25) then x := x - 20; if (x = 25) and (y > 25) then y := y - 20; until (x = 25) and (y = 25);
Rectangle(50, 50, 540, 340); x := 115; for i := 1 to 8 do begin Circle(x, 210, 6); Circle(x, 210, 40); Circle(x, 210, 45); x := x + 51; end; x := 95; for i := 1 to 11 do begin y := 130; Line(x, y, x, y - 30); y := y - 30; Line(x, y, x + 30, y); x := x + 30; Line(x, y, x, y + 25); y := y + 25; Line(x, y, x - 20, y); x := x - 20; Line(x, y, x, y - 15); y := y - 15; Line(x, y, x + 10, y); x := x + 10; Line(x, y, x, y + 8); y := y + 8; Line(x, y, x - 3, y); x := x - 3; Line(x, y, x, y - 4); y := y - 4; Line(x, y, x - 3, y); x := x - 3; Line(x, y, x, y + 7); y := y + 7; Line(x, y, x + 10, y); x := x + 10; Line(x, y, x, y - 15); y := y - 15; Line(x, y, x - 18, y); x := x - 18; Line(x, y, x, y + 24); y := y + 24; Line(x, y, x + 30, y); x := x + 30; end; end.
1) var n:integer; begin readln(n); if(n<0)then write(0) else write(n+4); end.
2) var a, b: integer; begin readln(a, b); if(a = b) then write(1) else write(0); end.
3) var a, b, c, s: integer; begin s := 0; readln(a, b, c); if(a >= 0) then s := s + 1; if(b >= 0) then s := s + 1; if(c >= 0) then s := s + 1; write(s); end.
4) var a, b, c, s: integer; begin s := 0; readln(a, b, c); if(a > 0) then s := s + a; if(b > 0) then s := s + b; if(c > 0) then s := s + c; write(s); end. 5) var a, b, c: integer; begin readln(a, b, c); if (a < b) then swap(a, b); if (a < c) then swap(a, c); if (b < c) then swap(b, c); write(a, ' ', b, ' ', c); end.
6) var n, k, s, i: integer; begin s := 0; readln(n, k); for i := 1 to n.ToString.Length do if(strtoint(n.ToString[i]) > k) then s := s + strtoint(n.ToString[i]); write(s); end.
7) var n, s, i: integer; begin s := 0; readln(n); for i := 1 to n do s := s + i; write(s); end.
9) var n, i: integer; begin readln(n); for i := n downto 1 do write(i); end.
12 var n, i: integer; s: real; begin s := 0; readln(n); for i := n downto 1 do s:=s+(0.1*i); write(s); end.
13) var n, i: integer; begin readln(n); for i := 1 to n do write(sqr(i), ' '); end.
14) var n, i, c: integer; begin i := 1; c := 0; readln(n); while (c <> n) do begin if(i mod 3 = 0) then begin write(i, ' ');c := c + 1; end; i := i + 1; end; end.
15) var n, i, a: integer; c: real; begin i := 1; c := 0; readln(n); for i := 1 to n do begin read(a); c := c + a; end; write(c / n) end.
16) var n, i, a: integer; begin i := 1; while true do begin read(a); if(a = 0) then break; n := n + 1; end; write(n) end.
В 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