Составить алгоритмы и дать математическое описание решаемых задач

@Soldat_93 · Регистрация: 14.12.2011

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Program file; 
Type
wed = record {Тип wed включает 3 поля: n, fio, bal}
n : byte ; fio : string[15] ;
bal : array [1..3] of byte; {Поле bal – массив из 3 оценок }
end;
Var 
spisok : wed ; {Запись spicok типа wed}
sp : file of wed; {Файл записей типа wed}
procedure vvod; { процедура создания файла}
var i,j:byte;
begin
{ оператор assing находится в основной прграмме }
rewrite ( sp); {открытие файла для записи}
with spisok do
For i:=1 to 10 do 
begin
n:=i; 
writeln (' Введите фамилию - ', i ); readln (fio); 
writeln (' Введите 3 оценки ', fio ); For j:= 1 to 3 do readln ( bal [j] );
write (sp , spisok); { запись в файл информации о студенте}
end;
close (sp); { закрытие файла для записи }
end;
procedure print; { процедура чтения и печати всего файла }
var j : byte;
begin
reset ( sp); {открытие файла для чтения}
writeln (‘ Список студентов: ‘); 
while not eof (sp) do 
with spisok do 
begin 
Read (sp, spisok); {чтение данных из файла}
write (n,' ',fio); {вывод записи на экран}
For j:= 1 to 3 do write (' ', bal [j] );
writeln ;
end;
readln;
close (sp) ;
end;
procedure work;
var num: integer;
begin
reset ( sp); {открытие файла для чтения}
writeln ('номер= '); readln (num);
seek (sp, num-1); {поиск записи с указанным номером (нумерация записей с 0)}
read (sp,spisok);{чтение и перемещение указателя к след. записи}
write ('fio='); writeln (spisok.fio);
seek (sp,filepos(sp)-1); {возвращение к изменяемой записи }
writeln (‘ Введите новую фамилию’ ); readln (spisok.fio);
write (sp, spisok); {запись в файл измененной записи}
close (sp);
end;
 
begin {начало основной программы}
assign (sp,'Vedom.DAT'); {связать файловую переменную sp с файлом Vedom.dat}
vvod; print; {процедуры создания и чтения файла} 
work; print; {корректировка и чтение измененного файла}
readln
end.

@TanuschKa · 18.12.2011, 20:03

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Program stud; 
Type
wed = record {Тип wed включает 3 поля: n, fio, bal}
n : byte ; fio : string[15] ;
bal : array [1..3] of byte; {Поле bal – массив из 3 оценок }
end;
Var 
spisok : wed ; {Запись spicok типа wed}
sp : file of wed; {Файл записей типа wed}
procedure vvod; { процедура создания файла}
var i,j:byte;
begin
{ оператор assing находится в основной прграмме }
rewrite ( sp); {открытие файла для записи}
with spisok do
For i:=1 to 10 do 
begin
n:=i; 
writeln (' Введите фамилию - ', i ); readln (fio); 
writeln (' Введите 3 оценки ', fio ); For j:= 1 to 3 do readln ( bal [j] );
write (sp , spisok); { запись в файл информации о студенте}
end;
close (sp); { закрытие файла для записи }
end;
procedure print; { процедура чтения и печати всего файла }
var j : byte;
begin
reset ( sp); {открытие файла для чтения}
writeln ('Список студентов:'); 
while not eof (sp) do 
with spisok do 
begin 
Read (sp, spisok); {чтение данных из файла}
write (n,' ',fio); {вывод записи на экран}
For j:= 1 to 3 do write (' ', bal [j] );
writeln ;
end;
readln;
close (sp) ;
end;
procedure work;
var num: integer;
begin
reset ( sp); {открытие файла для чтения}
writeln ('номер= '); readln (num);
seek (sp, num-1); {поиск записи с указанным номером (нумерация записей с 0)}
read (sp,spisok);{чтение и перемещение указателя к след. записи}
write ('fio='); writeln (spisok.fio);
seek (sp,filepos(sp)-1); {возвращение к изменяемой записи }
writeln ('Введите новую фамилию'); readln (spisok.fio);
write (sp, spisok); {запись в файл измененной записи}
close (sp);
end;
 
begin {начало основной программы}
assign (sp,'Vedom.DAT'); {связать файловую переменную sp с файлом Vedom.dat}
vvod; print; {процедуры создания и чтения файла} 
work; print; {корректировка и чтение измененного файла}
readln
end.

Были незначительные ошибки)а так,все работает))

@Soldat_93 · 18.12.2011, 20:09 **[ТС]**

Она так и так работает))к ней алгоритм нужно нарисовать)

Новые блоги и статьи Все статьи Все блоги /
Мульти-тенантные БД с PostgreSQL Row Security Codd 23.04.2025 Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .	Реализация конвейеров машинного обучения с Python и Scikit-learn AI_Generated 23.04.2025 Мир данных вокруг нас растёт с каждым днём, и умение эффективно обрабатывать информацию стало необходимым навыком. Специалисты по машинному обучению ежедневно сталкиваются с задачами предобработки. . .	Контроллеры Kubernetes Ingress: Сравнительный анализ Mr. Docker 23.04.2025 В Kubernetes управление входящим трафиком представляет собой одну из ключевых задач при построении масштабируемых и отказоустойчивых приложений. Ingress — это API-объект, который служит вратами. . .	Оптимизация кода Python с Cython и Numba py-thonny 23.04.2025 Python прочно обосновался в топе языков программирования благодаря своей простоте и гибкости. Разработчики любят его за читабельность кода и богатую экосистему библиотек. Но у этой медали есть и. . .	Микросервис на Python с FastAPI и Docker ArchitectMsa 23.04.2025 В эпоху облачных вычислений и растущей сложности программных продуктов классическая монолитная архитектура всё чаще уступает место новым подходам. Микросервисная архитектура становится фаворитом. . .
Создаем веб-приложение на Vue.js и Laravel Reangularity 23.04.2025 Выбор правильного технологического стека определяет успех веб-проекта. Laravel и Vue. js формируют отличную комбинацию для создания современных приложений. Laravel — это PHP-фреймворк с элегантным. . .	Максимальная производительность C#: Span<T> и Memory<T> stackOverflow 22.04.2025 Мир высоконагруженных приложений безжалостен к неэффективному коду. Каждая миллисекунда на счету, каждый выделенный байт памяти может стать причиной падения производительности. Разработчики на C#. . .	JWT аутентификация в Java Javaican 21.04.2025 JWT (JSON Web Token) представляет собой открытый стандарт (RFC 7519), который определяет компактный и самодостаточный способ передачи информации между сторонами в виде JSON-объекта. Эта информация. . .	Спринты Agile: Планирование, выполнение, ревью и ретроспектива EggHead 21.04.2025 Спринты — сердцевина Agile-методологии, позволяющая командам создавать работающий продукт итерационно, с постоянной проверкой гипотез и адаптацией к изменениям. В основе концепции спринтов лежит. . .	Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров Programma_Boinc 21.04.2025 Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров. 3 марта 2025 года, в результате обобщенного поиска простых чисел Ферма в PrimeGrid был найден. . .

@Soldat_93 0 / 0 / 0 Регистрация: 14.12.2011 Сообщений: 28
	18.12.2011, 20:09 [ТС]
	Она так и так работает))к ней алгоритм нужно нарисовать) 0

Опции темы