Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.946 RSS
←   Октябрь 2008   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
28.10.2008
03:18:02
20:37:59
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.946 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на языке Pascal


Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 699
от 16.10.2008, 09:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 210, Экспертов: 46
В номере:Вопросов: 2, Ответов: 3
Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>

Вопрос № 146690: Товарищи эксперты, помогите пожалуста решить задачку. Я думаю. что она простая, но с программированием не дружу вообще, а сдавать и в нашем непрограммистском вузе надо. Задача такая Из бинарного файла прочитать символьную переменную, цел...
Вопрос № 146753: Здравствуйте! язык Turbo Pascal/ С клавиатуры вводятся строки. Признак окончания ввода-0. Вывести те же строки без пробелов. Т.е. удалить все пробелы....

Вопрос № 146.690
Товарищи эксперты, помогите пожалуста решить задачку. Я думаю. что она простая, но с программированием не дружу вообще, а сдавать и в нашем непрограммистском вузе надо.

Задача такая
Из бинарного файла прочитать символьную переменную,
целое и вещественное число. Сохранить их в форматном файле.
Определить размеры файлов.
Бинарный файл, расположен на сервере в папке
VC://m1_exschange/программное обеспечение/task1
(имя файла соответствует номеру варианта, расширение bin).
Сделать копию в свою папку.
Отправлен: 10.10.2008, 09:48
Вопрос задала: Васильева наталья Александровна (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 4)
Отвечает: Verena
Здравствуйте, Васильева наталья Александровна!
Решение будет выглядеть так. Думаю, из комментариев всё будет ясно.

Код:
Var f: file; rez: text; {Объявляем файлы}
    c: char; a: integer; b: real; {Объявляем переменные для считывания}
 s: string; {Строка для записи в текстовый
файл}
begin
 assign (f, 'имя_файла.bin'); {Ассоциируем файловую переменную с файлом на диске (замените имя файла на  реальное имя, если необходимо, добавьте путь)}
 reset (f); {Открываем файл}
 blockread (f, c, sizeof (c)); {Читаем данные, предполагая, что они идут в заданном порядке (символ, два числа)}
 blockread (f, a, sizeof (a));
 blockread (f, b, sizeof (b));
 close (f); {Закрыть файл}
 assign (rez, 'rezult.txt');{Ассоциируем 
 файловую переменную с файлом на диске }
 rewrite (rez); {Создаём и открываем текстовый файл}
 writeln (rez, c); {Пишем символ в файл}
 str (a, s); {Переводим число в строку}
 writeln (rez, s); {Пишем число в текстовом виде в файл}
 str (b, s); {Переводим число в строку}
 writeln (rez, s);{Пишем число в текстовом виде в файл}
 close (rez); {Закрываем файл}
end.


Удачи!


---------
Эта история - не для истории, понимаешь?
Ответ отправила: Verena (статус: Практикант)
Ответ отправлен: 11.10.2008, 20:39

Вопрос № 146.753
Здравствуйте! язык Turbo Pascal/ С клавиатуры вводятся строки. Признак окончания ввода-0. Вывести те же строки без пробелов. Т.е. удалить все пробелы.
Отправлен: 10.10.2008, 20:42
Вопрос задал: Комаров Антон Сергеевич (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Великий Александр
Здравствуйте, Комаров Антон Сергеевич!
Спешу предложивать вам свой вариант программы! (минус её только в ограниченности кол-ва строк(щас их 50), но при желание его можно увеличить, исправив в строке "st: array [1..50] of string;" 50 на нужное вам кол-во!

Приложение:

Ответ отправил: Великий Александр (статус: 1-ый класс)
Ответ отправлен: 10.10.2008, 21:36
Оценка за ответ: 5
Комментарий оценки:
Спасибо большое! Прямо выручили так!! уххх
Отвечает: Абельхарисов Руслан/Marked One
Здравствуйте, Комаров Антон Сергеевич!
Код с комментариями в приложении.
В условии не сказано чтобы строки хранились в массиве, поэтому у меня все введеные строки хранятся в обычной переменной(не в массиве). Это снимает ограничение на кол-во строк.
Удачи!!!

Приложение:

Ответ отправил: Абельхарисов Руслан/Marked One (статус: Студент)
Ответ отправлен: 10.10.2008, 23:18
Оценка за ответ: 5
Комментарий оценки:
СПасибо большое! Выручили так! уффф.

Вы имеете возможность оценить этот выпуск рассылки.
Нам очень важно Ваше мнение!
Оценить этот выпуск рассылки >>

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2008, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале

∙ Версия системы: 5.6 от 14.10.2008

Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru
RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru
В избранное