Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Delphi
Перезагрузить страницу Как исправить ошибку в программе Delphi
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
zoichik zoichik вне форума
Новичок
 
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 20.12.2021
По умолчанию Как исправить ошибку в программе Delphi - 20.12.2021, 12:29

Подскажите как правильно записать формат печати массива :9:2 и почему close(f) не работает?
Вот задача к этой программе :Вычисление суммы "K" слагаемых – элементов массива, начиная с третьего по порядку, и суммируя только элементы с нечетными номерами. Длина массива и количество суммируемых элементов вводится с клавиатуры.

delphi Код:
uses
System.SysUtils,
Math;

var i,k,n:integer;
s: real;
a: array[1..250] of integer;
f:text;


begin
  writeln('Введите длину массива не больше 250');
  readln(n);
  for i := 1 to n do
 begin
   write('Введите элемент массива');
   readln(a[i]);
 end;
assign(f,'7l.txt');
rewrite(f);
writeln(f, 'Исходный массив из',n,'элементов');
for i := 1 to n do
begin
  write(f,a[i]:9:2);
  if i mod 6=0 then writeln(f);
end;
for i:=3 to n do
begin
   if a[i]mod 2<>0 then
   begin
     readln(a[i]);
     s:=s+a[i];
   end;

  end;
  writeln(f,'Сумма слагаемых',s)
  close(f);
end.
Ответить с цитированием
  (#2 (permalink)) Старый
Rius Rius вне форума
Программист
 
Аватар для Rius
 
Сообщений: 8,068
Сказал(а) спасибо: 25
Поблагодарили 1,047 раз(а) в 1,026 сообщениях
Регистрация: 27.08.2004
Адрес: Russian Federation
По умолчанию 23.12.2021, 11:41

Цитата:
почему close(f) не работает?
Файл открывается и закрывается.
1 раз открыть и 100 раз закрыть - нельзя.


Как прикреплять картинки к сообщениям: http://www.hardforum.ru/t116562
Ответить с цитированием
Ads
Ответ

Метки
delphi , help!!! me , массив чисел

Опции темы
Опции просмотра

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Исправить ошибку в программе Visual Prolog 7.3 Veronika24 Prolog 4 28.11.2017 23:05
Помогите найти ошибку в программе (Delphi) kot.polosat Вопросы начинающих программистов 2 22.08.2011 21:54
подскажите ошибку в программе. Эмон Prolog 7 20.05.2011 13:30
Требуется исправить ошибку в программе tolkach91 Visual C++ 0 10.04.2011 00:10
Как исправить ошибки в программе Ishek Lisp 0 25.10.2010 14:48
Opera - программа совершила недопустимую ошибку, можно ли исправить ошибку? dok Любые вопросы от новичков 3 23.03.2010 12:34
Как найти ошибку в написанной программе arkuz Lisp 0 12.04.2009 18:56
Помогите исправить маленькую ошибку в программе 7apostol7 Prolog 1 15.11.2007 21:41
Помогите найти ошибку в программе imported_Corey Delphi 3 17.06.2006 11:43
Как исправить ошибки в программе gip Assembler 1 27.04.2006 21:04
Как найти ошибку в написанной программе АЛЬБИНА Pascal 9 12.03.2006 13:33
Как найти ошибку в программе natka17 Pascal 6 28.01.2006 09:40



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов