Обработка файлов средствами языка Turbo Pascal Опции

[Grief]

"Разработать две программы, выполняющие заданные последовательности действий над данными определенного типа с использованием файлов в соответствии с вариантом задания."

Программа должна выполнять:
– вывод сообщения о разработчике и о назначении программы;
– ввод данных в режиме диалога.
Сохранение данных в файле и чтение данных из файла организовать как процедуру или функцию.


Вот как выглядит задание, в таблице 3.1 была куча вариантов, но оставил только свой. В остальных оставил все, ибо я не совсем понял, как ориентироваться по-этому заданию... у меня 7 вариант.

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

program laba3;
uses crt;
Label m1;
var
n:integer;
st1,st2:string[18];
F:text;
procedure Ввод;
begin
assign(F,'rez.txt');
rewrite(F);
write('Введите символы: ');
read(st1);
Writeln('st1= ',st1);
Writeln(f,st1);
close(f);
readln;
end;
procedure Чтение;
begin
assign(F,'rez.txt');
reset(f);
readln(f,st2);
writeln('st2= ',st2);
close(f);
end;

Begin
clrscr;
writeln('1. Ввод');
writeln('2. Чтение');
writeln('3. Выход');
m1:write('Введите пункт меню: ');
readln(n);
case n of
1:begin Ввод; goto m1; end;
2:begin Чтение; end;
3:Выход;
end;
goto m1;
readln;
end.

Сообщение отредактировано: Grief - 1.04.2010 15:04

[Ozzя]

Я doc файл выложу, а то написать это здесь как-то не понятно будет)

http://openfile.ru/563961/

Ну, ты - "молодец". Выложил задание на хрен знает какой хостинг. Через который нужно пробираться через тучу ссылок и ждать сколько-то времени.
doc_файлы запрещены здесь, но можно же положить скрин

[Grief]

Ну, ты - "молодец". Выложил задание на хрен знает какой хостинг. Через который нужно пробираться через тучу ссылок и ждать сколько-то времени.
doc_файлы запрещены здесь, но можно же положить скрин

Кхм, извиняюсь, сейчас скрин на радикал сделаю)

[Lapp]

Кхм, извиняюсь, сейчас скрин на радикал сделаю)

Я не понимаю - а что, на форум уже загрузить нельзя? Зачем нужны какие-то левые файловые сервисы с их остопядесетимиллионночертелой рекламой??..

Слушайте, если файлы РАЗУМНОГО размера (типа до 500КБ) не заливаются на НАШ сервер - жалуйтесь админам, мы будем давить на НАШ хостинг.

ЗАДОЛБАЛИ УЖЕ картинки с рекламой. Буду удалять. Либо хотя бы скажите, что оно не работает. У меня, например - РАБОТАЕТ, и работало практически ВСЕГДА. В чем дело?


По теме теперь.. Grief, в чем, собсно, вопрос? Ты правда думаешь, что кто-то будет разбираться в твоем задании и делать его? Начни и напиши хоть какие-то свои мысли. И вопросы задавай конкретнее. А если ты после занятий (или что там) не знаешь даже, как начать - то как мы тебе сможем помочь?


Добавлено через 6 мин.
Вот, провожу эксперимент, загружаю ЭТУ картинку..



Вуаля! Что я сделал не так?

[Grief]

Я не понимаю - а что, на форум уже загрузить нельзя? Зачем нужны какие-то левые файловые сервисы с их остопядесетимиллионночертелой рекламой??..

Слушайте, если файлы РАЗУМНОГО размера (типа до 500КБ) не заливаются на НАШ сервер - жалуйтесь админам, мы будем давить на НАШ хостинг.

ЗАДОЛБАЛИ УЖЕ картинки с рекламой. Буду удалять. Либо хотя бы скажите, что оно не работает. У меня, например - РАБОТАЕТ, и работало практически ВСЕГДА. В чем дело?
По теме теперь.. Grief, в чем, собсно, вопрос? Ты правда думаешь, что кто-то будет разбираться в твоем задании и делать его? Начни и напиши хоть какие-то свои мысли. И вопросы задавай конкретнее. А если ты после занятий (или что там) не знаешь даже, как начать - то как мы тебе сможем помочь?
Добавлено через 6 мин.
Вот, провожу эксперимент, загружаю ЭТУ картинку..



Вуаля! Что я сделал не так?

Можно было и по-спокойнее это оформить. Велика трагедия...

По теме, хотелось бы посмотреть на ваши идеи по поводу реализации данной программы, я конечно выложу сейчас вою версию, но тогда я не думаю, что могу услышать что-то конструктивное и свежее.