1.
program tr;
uses drawman;
procedure t;
begin
PenDown;
OnVector (2,4);
OnVector (2,-4);
OnVector (-4,0);
OnVector (2,0);
PenUp
end;
var i:integer;
begin
Field(12,6);
ToPoint (1,1);
for i:=1 to 4 do t;
ToPoint (0,0);
end.
2.
program lod;
uses drawman;
procedure l;
begin
PenDown;
OnVector (0,2);
OnVector (-1,-2);
OnVector (2,0);
OnVector (-1,2);
OnVector (0,-2);
OnVector (-2,0);
OnVector (1,-1);
OnVector (2,0);
OnVector (1,1);
OnVector (-2,0);
PenUp
end;
begin
Field(12,9);
ToPoint (3,2);
l;
ToPoint (6,6);
l;
ToPoint (9,2);
l;
ToPoint (0,0)
end.
Объяснение:
Смотри картинки
В pascal операции mod и div к вещественным типам недоступны, поэтому округляем их через Round. Можно поменять на Trunc - он возвратит только целую часть.
Однако правильнее будет делать через case:var a, b: real; s: string; begin readln(a); readln(b); readln(s); case s of char.ToString('+'): write(a + b); char.ToString('-'): write(a - b); char.ToString('/'): if b <> 0 then write(a / b) else write('Деление на 0!'); char.ToString('*'): write(a * b); 'mod': if b <> 0 then write(Round(a) mod Round(b)) else write('Деление на 0!'); 'pow': write(power(a, b)); 'div': if b <> 0 then write(Round(a) div Round(b)) else write('Деление на 0!'); end; end.Пояснение:В case '+', '-', '/', '*' воспринимаются как char, поэтому переводим их в string через стандартный метод класса char: char.ToString( )
Примеры работ:
Объяснение:
1) Почта, тут скорее всего дело идет о почте
2) Работа электронной почты основывается на использовании электронных почтовых ящиков. В момент отправления электронное письмо маршрутизируется с одного сервера на другой сервер (такие серверы также называют почтовыми узлами, или релеями), и в результате доходит до почтового сервера получателя
3) Адрес электронной почты — запись, установленная по RFC 5322, однозначно идентифицирующая почтовый ящик, в который следует доставить сообщение электронной почты. Адрес состоит из двух частей, разделённых символом «@». Левая часть указывает имя почтового ящика, часто оно совпадает с логином пользователя. Пример: [email protected] (@gmail.com - домен на котором лежит почта)
4) WinRar, 7zip. Вообще их много. Возможности (На примере архиватора WinRar):
Разнообразие поддерживаемых форматов. ...
Шифрование с целью безопасности. ...
Возможность работать с большими файлами. ...
Использование многотомных и самораспаковывающихся архивов. ...
Защита от повреждений. ...
Поддержка имен ...
Дополнительное удобство