am Zhilin Andrey. Andrey is my name and Zhilin is my surname. I am seventeen years old. I want to tell you a few words about my family. My family is not large. I have got mother, father and grandmother. There are four of us in the family.
First of all some words about my parents. My mother is a teacher of biology. She works in a school. She likes her profession. She is a good-looking woman with brown hair. She is 44 but she looks much younger.
My father is programmer. He is forty-six. My father often sings and when we are at home and have some free time I play guitar and we sing together. He is also handy with many things. When he was small he liked to take everything to pieces. My grandmother told me a story that once my father tried to repair their kitchen clock but without success. They had to give it to a repairman. But it happened a long time ago. Now he can fix almost everything.
My parents have been married for 18 years. They have much in common, but they have different views on music, books, and films. For example my father likes horror films and my mother likes soap operas. My father is fond of tennis. My mother doesn't go in for sports.
My parents are hard working people. My mother keeps house and takes care of my father and me. She is very good at cooking. My grandmother is a pensioner. She lives with us and helps to run the house. She is fond of knitting.
I want to become a student. I'd like to learn foreign languages. I always try to be in a good mood.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
procedure CreateFile(p:string); begin var f:=OpenWrite(p); Writeln(f,'В чащах юга жил бы цитрус? Да, но фальшивый экземпляръ!'); Writeln(f,'СЪЕШЬ ЖЕ ЕЩЁ ЭТИХ МЯГКИХ ФРАНЦУЗСКИХ БУЛОК, ДА ВЫПЕЙ ЧАЮ'); Writeln(f,'ФлегмаТичНая этА веРБлЮдиЦа жует у пОДЪезда засыХающий горький шиповник'); Writeln(f,'The quick brown fox jumps over the lazy dog'); Writeln(f,'THE FIVE BOXING WIZARDS JUMP QUICKLY'); f.Close end;
procedure UpFile(p:string); begin var a:=ReadAllLines(p); WriteAllLines(p,a.Select(s->UpperCase(s)).ToArray); end;
begin var p:=ReadlnString('Введите имя файла (можно, с путём):'); CreateFile(p); UpFile(p); // контроль работы ReadAllLines(p).Println(NewLine) end.
Пример работы Введите имя файла (можно, с путём): MyTest.txt В ЧАЩАХ ЮГА ЖИЛ БЫ ЦИТРУС? ДА, НО ФАЛЬШИВЫЙ ЭКЗЕМПЛЯРЪ! СЪЕШЬ ЖЕ ЕЩЁ ЭТИХ МЯГКИХ ФРАНЦУЗСКИХ БУЛОК, ДА ВЫПЕЙ ЧАЮ ФЛЕГМАТИЧНАЯ ЭТА ВЕРБЛЮДИЦА ЖУЕТ У ПОДЪЕЗДА ЗАСЫХАЮЩИЙ ГОРЬКИЙ ШИПОВНИК THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG THE FIVE BOXING WIZARDS JUMP QUICKLY
am Zhilin Andrey. Andrey is my name and Zhilin is my surname. I am seventeen years old. I want to tell you a few words about my family. My family is not large. I have got mother, father and grandmother. There are four of us in the family.
First of all some words about my parents. My mother is a teacher of biology. She works in a school. She likes her profession. She is a good-looking woman with brown hair. She is 44 but she looks much younger.
My father is programmer. He is forty-six. My father often sings and when we are at home and have some free time I play guitar and we sing together. He is also handy with many things. When he was small he liked to take everything to pieces. My grandmother told me a story that once my father tried to repair their kitchen clock but without success. They had to give it to a repairman. But it happened a long time ago. Now he can fix almost everything.
My parents have been married for 18 years. They have much in common, but they have different views on music, books, and films. For example my father likes horror films and my mother likes soap operas. My father is fond of tennis. My mother doesn't go in for sports.
My parents are hard working people. My mother keeps house and takes care of my father and me. She is very good at cooking. My grandmother is a pensioner. She lives with us and helps to run the house. She is fond of knitting.
I want to become a student. I'd like to learn foreign languages. I always try to be in a good mood.
We have got a lot of relatives.
// Внимание! Если программа не работает, обновите версию!
procedure CreateFile(p:string);
begin
var f:=OpenWrite(p);
Writeln(f,'В чащах юга жил бы цитрус? Да, но фальшивый экземпляръ!');
Writeln(f,'СЪЕШЬ ЖЕ ЕЩЁ ЭТИХ МЯГКИХ ФРАНЦУЗСКИХ БУЛОК, ДА ВЫПЕЙ ЧАЮ');
Writeln(f,'ФлегмаТичНая этА веРБлЮдиЦа жует у пОДЪезда засыХающий горький шиповник');
Writeln(f,'The quick brown fox jumps over the lazy dog');
Writeln(f,'THE FIVE BOXING WIZARDS JUMP QUICKLY');
f.Close
end;
procedure UpFile(p:string);
begin
var a:=ReadAllLines(p);
WriteAllLines(p,a.Select(s->UpperCase(s)).ToArray);
end;
begin
var p:=ReadlnString('Введите имя файла (можно, с путём):');
CreateFile(p);
UpFile(p);
// контроль работы
ReadAllLines(p).Println(NewLine)
end.
Пример работы
Введите имя файла (можно, с путём): MyTest.txt
В ЧАЩАХ ЮГА ЖИЛ БЫ ЦИТРУС? ДА, НО ФАЛЬШИВЫЙ ЭКЗЕМПЛЯРЪ!
СЪЕШЬ ЖЕ ЕЩЁ ЭТИХ МЯГКИХ ФРАНЦУЗСКИХ БУЛОК, ДА ВЫПЕЙ ЧАЮ
ФЛЕГМАТИЧНАЯ ЭТА ВЕРБЛЮДИЦА ЖУЕТ У ПОДЪЕЗДА ЗАСЫХАЮЩИЙ ГОРЬКИЙ ШИПОВНИК
THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG
THE FIVE BOXING WIZARDS JUMP QUICKLY