|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
01.05.2009, 20:17 | #1 |
Пользователь
Регистрация: 19.04.2009
Сообщений: 36
|
Работа с фаилами паскаль
Дан фаил f компонентами которого являются действительные числа: определить наибольшее значение компонент и сумму наибольшего и наименьшего из значений компонент
Подскажите плиз как решать!!! |
01.05.2009, 20:21 | #2 | |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,553
|
Цитата:
E-Mail: arigato.freelance@gmail.com
|
|
01.05.2009, 20:25 | #3 |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
Создаете типизированный файл. Заполняете его действительными числами. Закрываете.
Открываете для чтения. Пусть есть две переменные (вещественные) - min и max. Читаете файл поэлементно. Если текущий элемент >max, то max = текущий элемент. Аналогично с min (только знак <). После этого складываете min и max.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
01.05.2009, 20:54 | #4 |
Пользователь
Регистрация: 19.04.2009
Сообщений: 36
|
как написать чтобы паскаль читал фаил поэлементно
|
01.05.2009, 20:56 | #5 | |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
Цитата:
Как и сказал Arigato, почитайте какую-нибудь книгу по паскалю. И подобные вопросы возникать не будут.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
|
13.05.2009, 17:58 | #6 |
Пользователь
Регистрация: 19.04.2009
Сообщений: 36
|
Код HTML:
program dd;
var f: file of real;
s,a,min,max:real;
begin
Assign (f,'D:\text.txt');
{$I-}
Reset(f);
if Ioresult<>0 then rewrite(f);
read (f,a);
min:=a;
max:=a;
s:=0;
while not(eof(f)) do begin
read(f,a);
if a<min then min:=a;
if a>max then max:=a;
end;
S:=min+max;
write(S:7:3); write(max:7:3);
close(f);
end.
Подскажите плиз что неправильно |
13.05.2009, 18:00 | #7 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,553
|
А что именно не так?
E-Mail: arigato.freelance@gmail.com
|
13.05.2009, 18:04 | #8 |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
Igomax, все правильно.
Только не забудьте, что файл должен быть заполнен числами. А вы, если он не существует, просто создаете его (пустым).
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
13.05.2009, 18:21 | #9 |
Пользователь
Регистрация: 19.04.2009
Сообщений: 36
|
Фаил уже создан но всё равно выводятся нули
|
13.05.2009, 18:26 | #10 | |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
Цитата:
Файл нужно заполнять также, как и считываете. То есть создайте еще одну программу, которая будет его заполнять.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа с массивами. Паскаль | hoangvu2005 | Помощь студентам | 3 | 10.04.2009 23:05 |
Паскаль.Работа с массивами | NightFire | Помощь студентам | 3 | 28.03.2009 22:25 |
Работа с типизированными фаилами! | aks | Помощь студентам | 6 | 19.02.2009 13:55 |