Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.11.2008, 15:47   #11
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

В первый раз невнимательно посмотрел условие и написал как у Виталия., т.е складывал элементы первого и (k div 2+1)-го числа, второго и (k div 2+2)-го числа и так далее. А надо первого и (k div 2)-го числа, второго и (k div 2+1)-го числа, третьего и (k div 2+2)-го числа и так далее. Это поправил, а также все причуды с текстовыми файлами.
Посмотри, может так пойдет.
Код:
uses crt;
var f,g:text;
    k,i,s:integer;
    a:integer;
    c: array[1..100] of integer;
begin
clrscr;
assign(f,'file1.txt');
rewrite(f);
assign(g,'file2.txt');
rewrite(g);
write('Vvedite kolichestvo chisel k=');
readln(k);
for i:=1 to k do
  begin
    readln(a);
    write(f,a,' ');
   end;
reset(f);
clrscr;
Writeln('Sozdannyj fail F:');
i:=0;
while not eof(f) and(i<k) do
  begin
   i:=i+1;
   read(f,c[i]);
   write(c[i],' ');
  end;
writeln;
s:=0;
for i:=1 to k div 2 do
   begin
     s:=c[i]+c[k div 2+i-1];
     write(g,s,' ');
   end;
reset(g);
Writeln('Fail rezultta G:');
i:=0;
while not eof(f)and(i<k div 2) do
  begin
    i:=i+1;
    read(g,s);
    write(s,' ');
  end;
close(f);
close(g);
readln
end.
puporev вне форума Ответить с цитированием
Старый 10.11.2008, 19:54   #12
sverhuVniz
Пользователь
 
Аватар для sverhuVniz
 
Регистрация: 24.10.2008
Сообщений: 32
По умолчанию

for i:=0 to k-1 do



i:=1!!!!!!!!!!!!!!!!!!!!!!!!!!!
___________________________________ ____________
ВОН ВЫГНАТЬ ПРОКЛЯТЫХ СПАММЕРОВ!
sverhuVniz вне форума Ответить с цитированием
Старый 10.11.2008, 20:43   #13
Aleo13
Пользователь
 
Регистрация: 01.10.2008
Сообщений: 14
По умолчанию

Ребята, большое спасибо! Не знаю что бы я без вас делал. Когда всё написано - всё понятно, а когда приходится писать самому - понимаю, что я полный дурак))) Вот чуть-чуть подправил, вроде делает то, что надо:
Код:
uses crt;
var f,g:text;
    k,i,s:integer;
    a:integer;
    c: array[1..100] of integer;
begin
clrscr;
assign(f,'file1.txt');
rewrite(f);
assign(g,'file2.txt');
rewrite(g);
write('Vvedite kolichestvo chisel k=');
readln(k);
for i:=1 to k do
  begin
    readln(a);
    write(f,a,' ');
   end;
reset(f);
clrscr;
Writeln('Sozdannyj fail F:');
i:=0;
while not eof(f) and(i<k) do
  begin
   i:=i+1;
   read(f,c[i]);
   write(c[i],' ');
  end;
writeln;
s:=0;
for i:=1 to k-1 do
  begin
    s:=c[i]+c[k div (1+i)];
    write(g,s,' ');
   end;
    if c[i]=0  then 
    writeln('Zapisey v faile net');
reset(g);
Writeln('Fail rezultta G:');
i:=1;
while not eof(f)and(i<k-1) do
  begin
    i:=i+1;
    read(g,s);
    write(s,' ');
  end;
   if c[i]=0  then 
  writeln('Zapisey v faile net');
close(f);
close(g);
readln
end.
Aleo13 вне форума Ответить с цитированием
Старый 10.11.2008, 21:30   #14
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Цитата:
i:=1!!!!!!!!!!!!!!!!!!!!!!!!!!!
Прежде чем свой "ум" показывать, прогони программу и убедись, что в ней ошибка, а со своими дурацкими восклицательными знаками у себя дома тренируйся.
puporev вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
нужна небольшая курсовая по теме "Графика в Паскале". Win't Фриланс 2 18.12.2007 07:53
"Транспортная задача", "Поиск решения" Perroman Microsoft Office Excel 3 12.12.2007 17:12
"Текстовые файлы" и "Графика и подпрограммы" Nata!!!@ Помощь студентам 5 05.12.2007 18:17