Форум по Delphi программированию



Вернуться   Форум по Delphi программированию > Прочие языки программирования > Прочее...
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 20.12.2014, 16:41
Аватар для PATRIOT.34
PATRIOT.34 PATRIOT.34 вне форума
Прохожий
 
Регистрация: 02.11.2014
Адрес: Волгоградская область
Сообщения: 11
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Pascal операция отношения

Доброго времени суток!!!
Дана задача: Ввести файл F из 11 элементов. Определить в нѐм сумму элементов
стоящих на позициях, чей номер больше записанного в них значения.
Вот что получилось:
Код:
program p15;
   uses crt;
   var
      s: real;
      a,b,i:integer;
      f:file of integer;

procedure vvod;
begin
   clrscr;
   assign(f,'dat.dat');
   rewrite(f);
   writeln('Введите данные для заполнения файла: ');
   for i:=1 to 11 do
      begin
         write('Введите ',i, '-элемент: ');
         readln(b);
         write(f,b);
      end;
   close(f);
end;

procedure resh;
begin
   assign(f, 'dat.dat');
   reset(f);
   while not eof(f) do
      begin
         read(f,b);
         I:=i+1;
         if b>s  then
            begin
               a:=a+b;
               s:= s + 1;
            end;
      write(b);
      end;
end;

procedure vivod;
begin
   write(' Результат= ',a);
   close(f);
end;

begin
   vvod;
   resh;
   vivod;

end.
Проблема заключается в том, что у меня считает наоборот. т.е. вычисляется сумма элементов
стоящих на позициях, чей номер меньше записанного в них значения, а при замене операции отношения(на 31 строке) и вовсе ничего не суммируется.
Подскажите пожалуйста, если не принимать во внимание то, что вся моя программа один сплошной косяк, где я накосячил?
Заранее спасибо!!
Ответить с цитированием
 



Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 19:32.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2021

ВКонтакте   Facebook   Twitter   Ссылка на Telegram