Форум «Всё о Паскале» _ Задачи _ Обработка файлов средствами языка Turbo Pascal
Автор: Grief 31.03.2010 19:03
"Разработать две программы, выполняющие заданные последовательности действий над данными определенного типа с использованием файлов в соответствии с вариантом задания."
Программа должна выполнять: – вывод сообщения о разработчике и о назначении программы; – ввод данных в режиме диалога. Сохранение данных в файле и чтение данных из файла организовать как процедуру или функцию.
Вот как выглядит задание, в таблице 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.
Автор: Ozzя 31.03.2010 19:42
Цитата
Я doc файл выложу, а то написать это здесь как-то не понятно будет)
http://openfile.ru/563961/
Ну, ты - "молодец". Выложил задание на хрен знает какой хостинг. Через который нужно пробираться через тучу ссылок и ждать сколько-то времени. doc_файлы запрещены здесь, но можно же положить скрин
Автор: Grief 31.03.2010 20:15
Цитата(Ozzя @ 31.03.2010 15:42)
Ну, ты - "молодец". Выложил задание на хрен знает какой хостинг. Через который нужно пробираться через тучу ссылок и ждать сколько-то времени. doc_файлы запрещены здесь, но можно же положить скрин
Кхм, извиняюсь, сейчас скрин на радикал сделаю)
Автор: Lapp 1.04.2010 13:54
Цитата(Grief @ 31.03.2010 17:15)
Кхм, извиняюсь, сейчас скрин на радикал сделаю)
Я не понимаю - а что, на форум уже загрузить нельзя? Зачем нужны какие-то левые файловые сервисы с их остопядесетимиллионночертелой рекламой??..
Слушайте, если файлы РАЗУМНОГО размера (типа до 500КБ) не заливаются на НАШ сервер - жалуйтесь админам, мы будем давить на НАШ хостинг.
ЗАДОЛБАЛИ УЖЕ картинки с рекламой. Буду удалять. Либо хотя бы скажите, что оно не работает. У меня, например - РАБОТАЕТ, и работало практически ВСЕГДА. В чем дело?
По теме теперь.. Grief, в чем, собсно, вопрос? Ты правда думаешь, что кто-то будет разбираться в твоем задании и делать его? Начни и напиши хоть какие-то свои мысли. И вопросы задавай конкретнее. А если ты после занятий (или что там) не знаешь даже, как начать - то как мы тебе сможем помочь?
Добавлено через 6 мин. Вот, провожу эксперимент, загружаю ЭТУ картинку..
Вуаля! Что я сделал не так?
Автор: Grief 1.04.2010 18:36
Цитата(Lapp @ 1.04.2010 9:54)
Я не понимаю - а что, на форум уже загрузить нельзя? Зачем нужны какие-то левые файловые сервисы с их остопядесетимиллионночертелой рекламой??..
Слушайте, если файлы РАЗУМНОГО размера (типа до 500КБ) не заливаются на НАШ сервер - жалуйтесь админам, мы будем давить на НАШ хостинг.
ЗАДОЛБАЛИ УЖЕ картинки с рекламой. Буду удалять. Либо хотя бы скажите, что оно не работает. У меня, например - РАБОТАЕТ, и работало практически ВСЕГДА. В чем дело? По теме теперь.. Grief, в чем, собсно, вопрос? Ты правда думаешь, что кто-то будет разбираться в твоем задании и делать его? Начни и напиши хоть какие-то свои мысли. И вопросы задавай конкретнее. А если ты после занятий (или что там) не знаешь даже, как начать - то как мы тебе сможем помочь? Добавлено через 6 мин. Вот, провожу эксперимент, загружаю ЭТУ картинку..
Вуаля! Что я сделал не так?
Можно было и по-спокойнее это оформить. Велика трагедия...
По теме, хотелось бы посмотреть на ваши идеи по поводу реализации данной программы, я конечно выложу сейчас вою версию, но тогда я не думаю, что могу услышать что-то конструктивное и свежее.