Вы находитесь здесь: Главная > Программирование > Язык программирования Pascal

Язык программирования Pascal

. . . . .

internetВ 1969 году Никлаусом Виртом был создан высокоуровневый язык общего назначения, свое название он получил в честь великого физика Блеза Паскаля.

Сегодня Pascal один из самых популярных языков программирования, именно с него начинают постигать азы программостроения многие школьники. Моё личное отношение к нему самое наилучшее, с этим языком я первый раз ездил на областную олимпиаду. С него начал обучение, иногда использую в работе.

Задача:

Например, когда мне нужны были аккаунты на mail.ru я нашел отличную прогу для их автоматичсекой регистрации, но после реги этих аков данные с логином и паролем выводились в формате login;password а для их дальнейшего использования мне нужен был вид login:password.

Рассуждения:

Как видите мне нужно было просто изменить ; на :, так как в самих логинах и паролях ни один из этих знаков не встречается, я написал простейшую программу с подключением файлов .txt на вход и выход.

Код программы:

var // завожусь
s:string; // завел строку
n:longint; // завел переменную
f,f1:text; // завел 2 файла
begin // начало программы
assign (f,'tuda.txt'); // привязал 1 файл к f
assign (f1,'obratno.txt'); // привязал 2 файл к f1
reset (f); // открыл дя чтения 1 файл
rewrite (f1); // открыл, очистил, подготовил к записи 2 файл

while true do begin // начало цикла
if eof (f) then break; // если конец файла, цикл прерывается
readln (f,s); // считал из 1 файла строку
for n:=1 to length (s) do begin // цикл от начала до конца строки
if (s[n]=';') then s[n]:=':'; // если символ с номером n = ; , перезаписываю на его место :
end; // конец цикла
writeln (f1,s); // заношу в файл 2 строку s + символ перехода на следующую строку
end; // конец цикла

close (f); // закрываю файл 1
close (f1); // закрываю файл 2

end. // конец программы

 

Вы посмотрели примерно в каком стиле я буду писать свои решения задач. (Прикрутить бы еще подсветку кода :))

. . . . .
  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • Twitter
  • RSS

Оставить комментарий

This blog is kept spam free by WP-SpamFree.

. . . . . . . . . . . . . . . . . . . .