Добавить работы Отмеченные0
Работа успешно отмечена.

Отмеченные работы

Просмотренные0

Просмотренные работы

Корзина0
Работа успешно добавлена в корзину.

Корзина

Регистрация

интернет библиотека
Atlants.lv библиотека
Особые предложения 2 Открыть
3,49 € В корзину
Добавить в список желаний
Хочешь дешевле?
Идентификатор:405095
 
Автор:
Оценка:
Опубликованно: 28.01.2011.
Язык: Латышский
Уровень: Университет
Литературный список: Нет
Ссылки: Не использованы
Фрагмент работы

Risinājuma principi
1.Nosakām programmai nepieciešamos mainīgos.
2.Ievada faila vārdu nosakām kā simbolu konstanti
CONST InpFileName='Lab1Inp.txt';
3.Izvada faila vārdu ievadīsim katru reizi izpildot programmu.
4.Saistām ievada un izvada loģiskos failus ar failiem uz diska.
5.Apstrādi veicam ieslēdzot izpildāmos operatorus WHILE tipa ciklā. Cikla ķermenī ievietosim failu apkalpošanas operatorus, simbolu rindas apstrādes operatorus un datu izvades operatorus procesa vizuālai kontrolei uz ekrāna.

while (not EOF (InpFile)) do
begin
readln(InpFile, InputString);
OutputString:=InputString;
writeln( OutputString);
len:=Length(InputString);
b:=len div 2;
if len > 50 then
begin…

Коментарий автора
Загрузить больше похожих работ

Atlants

Выбери способ авторизации

Э-почта + пароль

Э-почта + пароль

Неправильный адрес э-почты или пароль!
Войти

Забыл пароль?

Draugiem.pase
Facebook

Не зарегистрировался?

Зарегистрируйся и получи бесплатно!

Для того, чтобы получить бесплатные материалы с сайта Atlants.lv, необходимо зарегистрироваться. Это просто и займет всего несколько секунд.

Если ты уже зарегистрировался, то просто и сможешь скачивать бесплатные материалы.

Отменить Регистрация