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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.942 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
29


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


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

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

Статистика

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

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


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

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

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

Выпуск № 574
от 15.02.2008, 03:35

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

Вопрос № 122328: Гении посвятившие себя алгоритмизации и помощи людям, есть кое что для Вас ) помогите в работе с файлами...) в текстовом файле находятся 3 числа в одной строке..разделены пробелом...причем переменная проходящая массив имеет тип integer; я могу считат...
Вопрос № 122428: Ребята помогите! Ввод и обработку необходимо реализовать в виде подпрограмм! Задание:Предметная область 'Сведения о печатающих ус-вах'.Данные предметной области (поля записи):1)Марка.2)Категория(принтер,плоттер).3)год выпуска.4)фирм...

Вопрос № 122.328
Гении посвятившие себя алгоритмизации и помощи людям, есть кое что для Вас ) помогите в работе с файлами...) в текстовом файле находятся 3 числа в одной строке..разделены пробелом...причем переменная проходящая массив имеет тип integer; я могу считать первое число, но как мне перепрыгнуть пробел? ведь при условии, что переменная проходящая массив не равна " " (пробелу) происходит ошибка типов...и второе...получить число из элементов массива...то есть массив 3.6.2.8 получить число 3628
Отправлен: 09.02.2008, 10:05
Вопрос задал: Василий Паскаль (статус: Посетитель)
Всего ответов: 3
Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Евчик Сергей Александрович
Здравствуйте, Василий Паскаль! Попробуйте записать всю строку в строковую переменную и работать далее как со строкой
Ответ отправил: Евчик Сергей Александрович (статус: 2-ой класс)
Ответ отправлен: 09.02.2008, 15:51
Отвечает: Николай Владимирович / Н.В.
Здравствуйте, Василий Паскаль!
Программы в приложении.
В первой, как правильно сказал sir henry, просто используется функция read.
Во второй (если массив целых чисел, как Вы указали): проходите циклом все ячейки массива, умножая текущий результат на 10 и складывая его с числом в данной ячейке массива.
Обратите внимание: максимальное значение числа типа longint для Borland Pascal 2147483647. Т.е. массив лучше не делать больше 9, чтобы не было проблем с вычислением суммы.
Если нужно складывать большие числа и результат только выводить на экран (тип результата не имеет значения), используйте какой-нибудь вещественный тип - например, extended и выводите число как целое, без дробной части.

Удачи!

Приложение:

Ответ отправил: Николай Владимирович / Н.В. (статус: Специалист)
Ответ отправлен: 09.02.2008, 21:51
Отвечает: Sanek
Здравствуйте, Василий Паскаль!
Если Вы читаете файл используя для чтения целочисленную переменную то сколько бы пробелов не стояло между числами оно считает ети числа правильно. Главное чтобы вместо продела небыло никаких других символов.
Вот вам пример решения вашей задачи

uses crt;
var
f:text;
a,b,c:integer;
begin
clrscr;
assign(f,'input.txt');
reset(f);
read(f,a,b,c);
close(f);

writeLn(a,' ',b,' ',c);
readkey;
end.
Ответ отправил: Sanek (статус: 1-ый класс)
Ответ отправлен: 09.02.2008, 23:50

Вопрос № 122.428
Ребята помогите!

Ввод и обработку необходимо реализовать в виде подпрограмм!

Задание:Предметная область 'Сведения о печатающих ус-вах'.Данные предметной области (поля записи):1)Марка.2)Категория(принтер,плоттер).3)год выпуска.4)фирма производитель.5)количество цветов.6)разрешение.7)формат бумаги

Заранее благодарен!
Отправлен: 09.02.2008, 23:41
Вопрос задал: AHAPX (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Николай Владимирович / Н.В.
Здравствуйте, AHAPX!
Код в приложении.
TDevice - структура с информацией об устройстве.
procedure ReadDev(var res : TDevice); - считывает с экрана данные об устройстве.
procedure PrintDev(dev : TDevice); - выводит данные об устройстве на экран.
В вопросе Вы не указали, что еще нужно реализовать. Если будут вопросы, пишите.

Удачи!

Приложение:

Ответ отправил: Николай Владимирович / Н.В. (статус: Специалист)
Ответ отправлен: 10.02.2008, 00:01
Оценка за ответ: 5

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

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

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

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

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


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

© 2001-2008, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.70 от 17.01.2008 		Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru
В избранное