Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 08.03.2010
Сообщений: 7
1

Поменять любую запись местами с последней и удалить последнюю запись.

08.03.2010, 19:12. Показов 1572. Ответов 4
Метки нет (Все метки)

Помогите пожалуйста!
Мне для программы, которая использует records (записи), нужно написать процедуру, которая меняет любую запись местами с последней и потом удаляет эту последнюю запись.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.03.2010, 19:12
Ответы с готовыми решениями:

Поменять местами первую и последнюю запись
Доброго времени суток. При работе над лабораторной работой столкнулся с трудностью смены местами...

Четыре кнопки на форме: добавить запись, удалить запись, закрыть, найти запись
Private Sub КнопкаДобавитьЗапись_Click() On Error GoTo Err_КнопкаДобавитьЗапись_Click ...

Как удалить из XML файла последнюю запись
Здравствуйте всем, вот создал я файл xml, а как мне прочитав этот файл удалить последнюю запись из...

В матрице B(N,M) поменять местами строки: первую с последней, вторую с пред последней и тд
в матрице B(N,M) поменять местами строки: первую с последней, вторую с пред последней и тд.

__________________
4
Модератор
63339 / 47049 / 32429
Регистрация: 18.05.2008
Сообщений: 114,045
08.03.2010, 19:31 2
Записи в чем хранятся? В массиве, в типизированном файле? Удалить запись которая была последней, или стала последней?
0
0 / 0 / 0
Регистрация: 08.03.2010
Сообщений: 7
08.03.2010, 19:34  [ТС] 3
Хранится в типизированном файле и надо удалить запись, которая последняя... (ну вообще мне надо чтоб удалялась та запись, которую я укажу (1,2,3...)
0
Модератор
63339 / 47049 / 32429
Регистрация: 18.05.2008
Сообщений: 114,045
08.03.2010, 19:48 4
Процедура удаления записи.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
procedure Del_N(var f:fail);
var n,i:integer;
    c:char;
    x:stud;
begin
write('Удалить запись № ');
readln(n);
reset(f);
if (filesize(f)<n)or(n<0) then
 begin
  writeln('В файле нет такой записи');
  close(f);
  write('Press Enter...');
  readln;
  exit;
 end;
seek(f,n-1);
for i:=n-1 to filesize(f)-2 do
 begin
  seek(f,i+1);
  read(f,x);
  seek(f,i);
  write(f,x);
 end;
seek(f,filesize(f)-1);
truncate(f);
close(f);
write('Press Enter...');
readln
end;
0
0 / 0 / 0
Регистрация: 08.03.2010
Сообщений: 7
08.03.2010, 20:21  [ТС] 5
Большое спасибо!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.03.2010, 20:21

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

Поменять местами первую и последнюю букву местами в словах
Форма состоит из Combo Box , двух Label и одной кнопки для выхода из проги. Исправьте пожалуйста...

Составить программу с помощью которой можно добавить запись, удалить запись и распечатать дешевое издание.
program _file_LB7_Zeleniuk; type zurnal=record name:string; tiraz:integer; vartist:integer;...

Поменять местами первую с последней
Дано натуральное число N. Поменять местами первую и последнюю цифру числа

Поменять местами первую и последнюю буквы
Дано слово. Необходимо написать программу, меняющую местами первую и последнюю буквы. Помощь...


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

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

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