|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
08.02.2015, 22:47 | #1 (permalink) |
Новичок
Регистрация: 15.12.2014
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задание на тему "Файлы" в Pascal
|
08.02.2015, 22:47 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Подобные темы уже встречались на форуме, пролистайте их А вы боитесь попасть в тему "Цитатник нашего форума"? Задание на тему "Строки" в Pascal Вражеский водолаз "Роял Нейви" и 7 его друзей. Проект"Русский стимпанк". Серия"Враги" Задачи на тему "Массивы", С++ |
09.02.2015, 17:31 | #2 (permalink) |
Member
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 13090
|
var F:text;
Key,n,x:integer; c:char; s,s1:string; begin Write('Shag: '); Readln(Key); Writeln('String: '); Readln(s); Assign(F,'text.dat'); Rewrite(F); Writeln(F,s); Close(F); s1:=''; for n:=1 to Length(s) do begin x:=Ord(s[n])+Key; if x>255 then x:=x-256+32; c:=Char(x); s1:=s1+c; end; Assign(F,'text.dat'); Append(F); Writeln(F); Writeln(F,s1); Close(F); end. |
10.02.2015, 17:21 | #3 (permalink) |
Новичок
Регистрация: 15.12.2014
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Благодарю за вашу помощь, все работает
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|