// PascalABC.NET
begin
var СправочникКомпании := new List<string>;
while True do
begin
var НаборСлов := ReadlnString.ToWords;
var ЧислоСлов := НаборСлов.Length;
case ЧислоСлов of
2: СправочникКомпании.Add(НаборСлов[0] + ' ' +
НаборСлов[1]);
3: begin
СправочникКомпании.Add(НаборСлов[1] + ' ' +
НаборСлов[2]);
break
end;
else
Writeln('Нарушен формат данных, строка не принята')
end
end;
WriteAllLines('ТелефонныйСправочник.txt',
СправочникКомпании.ToArray)
end.
1. – выбрать меню «File \ Change dir…» (Файл \ Сменить директорию) и указать диск и каталог, в который следует сохранить текст программы;
– выбрать меню «File \ Save as…» (Файл \ Сохранить как) и ввести имя файла в полеSave file as(по умолчанию Turbo Pascal устанавливает имя NONAMExx.PAS; необходимо указать другое наименование файла, используя при этом англоязычные символы);
3. Запустить программу и посмотреть, нет ли ошибок при компиляции
4. Компиляция - трансляция программы, составленной на исходном языке высокого уровня, в эквивалентную программу на низкоуровневом языке, близком машинному коду
5.Ctrl + F9
6. Write
Writeln
7. Read
Readln
