Предыдущая страница реферата | 1  2  3  4 | Следующая страница реферата

write('else some text');

Мы увидим:

Some textelse some text.

WriteLn('Some text');

Write('else some text');

Мы увидим:

Some text

else some text

Read и ReadLn

Процедуры Read и ReadLn предназначены для ввода в программу значений переменных, т.е. считывания введенных пользователем значений. Они отличаются друг от друга тем, что после выполнения процедуры Read можно прочитать той же функцией число, стоящее после другого числа. А если мы применим ReadLn, то все значения, после первого, игнорируются и каретка перемещается на следующюю строку.

Outro

Ну и на последок небольшой пример:

program kilometerstometters;

{$APPTYPE CONSOLE}

uses

SysUtils;

function AnsiToAscii(s : string):string; //эта функция позволяет отображать

var i : Integer; //русские символы

begin

for i:=1 to length(s) do

begin

case s[i] of

'A'..'ï' : s[i]:=Chr(ord(s[i])-64);

'ð'..'ÿ' : s[i]:=Chr(ord(s[i])-16);

end;

Рекомендуем скачать другие рефераты по теме: рефераты баллы, шпаргалки бесплатно.





Предыдущая страница реферата | 1  2  3  4 | Следующая страница реферата