Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 07.12.2013
Сообщений: 4
1

Программа работает не корректно

08.12.2013, 13:38. Просмотров 267. Ответов 1
Метки нет (Все метки)

Условие задачи: В файле переставить местами четные и нечетные строки.
У меня переставляет местами только первую и вторую строки, дальше не идет, что нужно исправить?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 program izbuhka;
var fl:text; str: string; i, n: longint; mass:array[1..100] of string;
begin
assign (fl, 'C:\FPC\123.txt' );
reset (fl);
n:=0;
while not EOF (fl) do
begin n:= n + 1;
readln (fl, mass [n]);
end;
for i:=1 to n do begin
if (i div 2=0) then begin 
str:=mass [i];
mass [i]:= mass [i+1];
mass [i+1]:= str;
end;
end;
rewrite (fl);
for i:= 1 to n do
writeln (fl, mass [i]);
close (fl);
end.
Добавлено через 16 часов 40 минут
Проблема в том, что вместо div нужно использовать mod.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.12.2013, 13:38
Ответы с готовыми решениями:

Программа не работает корректно . Output\Input . Египетское умножение
Здравствуйте ! Хотел бы у вас спросить, что я делаю не так? В файле output ничего не выводит . Буду...

программа работает не корректно
Здрасте люди) просил что бы написали элементарную программу для геодезического прибора... с горем...

Не корректно работает программа
Суть данной программы построение графика функции y=arccos(x) по интервалу a,b с шагом h.нУЖНО...

Не корректно работает программа на Си
Здравствуйте. Изучаю книгу братьев Дейтел. Задача, на первый взгляд, простая. "Написать программу...

1
Модератор
60168 / 45311 / 31273
Регистрация: 18.05.2008
Сообщений: 108,825
09.12.2013, 10:57 2
Pascal
1
2
3
4
5
6
7
8
i:=1;
while i<n do
 begin
  str:=mass [i];
  mass [i]:= mass [i+1];
  mass [i+1]:= str;
  i:=i+2
 end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.12.2013, 10:57

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Программа работает не корректно
Здравствуйте, помогите мне пожалуйста разобраться с программой. Вот само задание: Дано...

Не корректно работает программа.
Такая беда, есть программа, для работы с БД (субд paradox, технология BDE) она содержит таблицу, и...

Не корректно работает программа в C++
Составьте алгоритм программы, которая принимает от пользователя значение x и в зависимости от его...

Почему программа не работает корректно?
Здравствуйте! Столкнулся с такой проблемой при решении следующей задачи: Задача. Все элементы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.