Page 22 - 6263
P. 22
append(file2); // відкрити файл для додання
writeln(file2,'Привіт світ!'); // записати у файл рядок
close(file2);
reset(file2); // відкрити файл для читання
readln(file2,s2); // прочитати з файлу рядок
write(s2);
end;
//----------------------------------------------------
// виконувана частина
// розкоментуйте потрібний рядок, відкомпілюйте і
виконайте програму
begin
testTypes;
//testIf;
//testCase;
//testFor;
//testWhile;
//testRepeat;
//testProcedure(2,2,y); writeln('y=',y);
//y:=testFunction(2); writeln('y=',y:2:3);
//testArray;
//testArray2D;
//testString;
//testSet;
//testRecord;
//testClass;
//testFile;
//testTextFile;
readln // очікує натиску клавіші Enter
end.
22
