Процедуры

24.10.2010, 15:15. Показов 406. Ответов 0

Author24 — интернет-сервис помощи студентам

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
procedure Zamena(var f:fail);
var n:integer;
    t:tabl;
begin
clrscr;
ResetFile(f,b);
write('Номер записи которую вы хотите изменить ');
readln(n);
if(n<1)or(filesize(f)<n) then
  begin
   writeln('Такой записи нет');
   readln;
   exit;
  end;
writeln('Новые данные ');
with t do
  begin
   write('Эконом пок ');readln(e);
   write('код строки');readln(cst);
   write('единица измерения');readln(ed);
   write('код океи ');readln(cok);
   write('Отчетный год ');readln(og);
   write('прошлый год ');readln(pg);
  end;
seek(f,n-1);
write(f,t);
close(f);
readln;
end;

при применении процедуры программа выдаёт ошибку записи на диск, подскажите в чем проблема?

Заказать работу у эксперта

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

24.10.2010, 15:15

Ответы с готовыми решениями:

Процедуры и функции: решить через процедуры S=a*x+b*y+c*z.
Пожалуста помогите решить через процедуры S=a*x+b*y+c*z.

Процедуры и функции. Процедуры с числовыми параметрами
Описать процедуру RectPS (x1, y1, x2, y2, P, S), вычисляющую периметр P и площадь S прямоугольника со сторонами, параллельными осям...

Процедуры
Добрый вечер,посмотрите пожалуйста программу,мне ее нужно с процедурами написать,явно есть косяки,но я их устранить не пойму как,вот...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

24.10.2010, 15:15

Помогаю со студенческими работами здесь

Процедуры
1. В матрице: 1.процедура ввод 2.процедура вывод 3.процедура,который считать количество эл-тов=0, и функция, который...

Процедуры
Помогите написать процедуру, которая в заданном одномерном массиве меняет местами минимальный и последний элемент . Применить эту...

процедуры
1)Дано натуральное число n и действительное число x.Вычислить S=sinx+sinsinx+...+sinsin...sinx(n раз) 2)Дано целое число n>0.Найти...

Процедуры
Друзья нужна ваша помощь по процедурам... у меня даже есть алгоритм, и я его даже написал на языке Паскаля, но почему - то не работает. ...

процедуры
вычислить z=(xmax+ymax)/sqrt(xmax+ymax) где Xmax - максимальный элемент вектора X(n) Уmax - максимальный элемент вектора У(m).

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

Или воспользуйтесь поиском по форуму:

Опции темы

Новые блоги и статьи Все статьи Все блоги /
sshd restrictions, ssh access limitations jigi33 26.03.2025 sshd restrictions \| ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel	Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .	SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .
Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .	Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .

Наверх