Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Чтение данных из файлов EXCEL на PASCAL https://www.cyberforum.ru/ turbo-pascal/ thread1092249.html
На компьютере под DOS необходимо прочитать числовые данные из файла EXCEL на PASCAL
Фрактал Мандельброта Turbo Pascal
Здравствуйте!!! Помогите написать фрактал Мандельброта с заданными границами расчета -1,5 ≤ x ≤ 1,0, -0,8 ≤ y ≤0,8 на примере фрактала Джулио Пример: program fractus; uses Graph, Crt; type ...
Описать программу Turbo Pascal
я не могу понять алгоритм программы разбиение числа n на k слагаемых например, нужно разбить число 17 на 10 слагаемых, так, чтобы результат не зависил от порядка (1+2 тоже самое, что и 2+1; если уже...
Turbo Pascal Создать два файла с информацией о продовольственных и промышленных товарах Создать два файла с информацией о продовольственных и промышленных товарах со следующими реквизитами: наименование товара, тип товара, количество, цена за единицу. Добавить в указанное место файла... https://www.cyberforum.ru/ turbo-pascal/ thread1091952.html
Turbo Pascal Удвоить в текстовом файле каждую цифру https://www.cyberforum.ru/ turbo-pascal/ thread1091938.html
Нужна помощь с задачей! Описать процедуру, удваивающую в тексте t каждую цифру. Кажется здесь нужно использовать дополнительную файловую переменную
Записать символ в конце текстового файла Turbo Pascal
Описать процедуру, добавляющего литеру с в конец текста т. Добавлено через 4 минуты Я вот думаю, может так? ( Используем стандартный Паскаль, там нет процедур assign, close) type a=text;...
Turbo Pascal Найти значение по модулю, самое близкое к заданному числу С
Значение по модулю самое близкое к заданному числу С каждых вторых первой половины. Исправьте, буду очень благодарен! procedure part_3(n,a,b,c: integer;H:vector); Var max,k: integer; I:real;...
Turbo Pascal Нахождение суммы элементов матрицы, произведения, наибольшего, наименьшего элементов Создайте свой собственный модуль, реализующий некоторые действия для работы с матрицами (нахождение суммы элементов, произведения, наибольшего, наименьшего элементов, работа с элементами диагоналей,... https://www.cyberforum.ru/ turbo-pascal/ thread1091798.html
Turbo Pascal Найти наибольший чётный положительный элемент выше главной диагонали матрицы https://www.cyberforum.ru/ turbo-pascal/ thread1091763.html
Здравствуйте.Преподаватель сказал, что в программе есть какие-то мелкие недочёты. Сколько не искал не могу найти что неправильно. Помогите сделать программу. Здание изначально было такое. Дан...
Turbo Pascal Программа для подсчета количества букв в строке! Как на Турбо Паскале написать программу для подсчета всех русских букв используемых в написанной строке. например Текст = сегодня днём над городом прошел дождь программа должна уметь сама... https://www.cyberforum.ru/ turbo-pascal/ thread1091742.html
25 / 25 / 38
Регистрация: 21.10.2013
Сообщений: 79
0

Очередь (FIFO): студенты, чьи фамилии начинаются с буквы "Б"

08.02.2014, 20:17. Просмотров 1327. Ответов 3
Метки (Все метки)

Очередь (FIFO)
Все студенты, чьи фамилии начинаются с буквы "Б"
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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
program lab3;
type student=record
fam,name,group:string[20];
year:integer;
sr:real;
pstud=^dstud;
dstud=record
s:student;
p:psud;
end;
var stud:student;
f,g:text;
st:string;
prosedure get_string(st:string;var s:student);
var kod;integer;
begin
with s do begin
fam:=copy(st,1,pos('',st)-1);
delete(st,1,pos('',st));
name:=copy(st,1,pos('',st)-1);
delete(st,1,pos('',st));
group:=copy(st,1,pos('',st)-1);
delete(st,1,pos('',st));
val9copy(st,1,pos('',st)-1),year,kod);
delete(st,1,pos('',st));
val(st,sr,kod)
end;
end;
  {âñïîìàãàòåëüíàÿ ïðîöåäóðà äëÿ âûâîäà çàãîëîâêà â ôàéë}
 procedure put_header(header:string);
 begin
 writeln(g,header);
 writeln(g,'|----------------------------------------------');
 writeln(g,'|   ôàìèëèÿ   |    èìÿ    |ãðóïïà | ã.ð  | ñ.ð '):
 writeln(g,'|----------------------------------------------');
 end;
 {âñïîìàãàòåëüíàÿ ïðîöåäóðà äëÿ âûâîäà ñòðîêè â ôàéë}
  procedure put_string(s:string);
  begin
  with s do
  writeln(g,'|',fam:11,'|',name:9,'|',group:10,'|',year:6,'|',sr:6:1,'|');
  end;
  {âñïîìàãàòåëüíàÿ ïðîöåäóðà äëÿ âûâîäà ïîñëåäíèõ äàííûõ â ôàèë}
 procedure put_sub;
 begin
 writeln(g,'|---------------------------------------------');
 writeln(g);
 end;
 {ðàáîòà ñ î÷åðåäüþ}
 procedure FIFO;
 var pBegin1,pbegin,pEnd,Help,:pstud;
 begin
 reset(f);
{Íà÷àëüíîå ôîðìèðîâàíèå}
new(pBegin);
pBegin^.p:=nil;
readln(f,st);get_string(st,stud);
pBegin^.s:=stud;
pEnd:=pBegin;
{Äîáàâëåíèå äàííûõ}
while not eof(f) do
begin
readln(f,st);get_string(st,stud);
new(pHelp);
pHelp^.p:=nil;
pHelp^.s:=stud;
pEnd^.p:=pHelp;
pEnd:=pHelp;
end;
pBegin1:=pBegin;
{Èçâëå÷åíèå âñåõ äàííûõ}
put_header('Èñõîäíûå äàííûå äëÿ î÷åðåäè:');
repeat
stud:=pBegin^.s;
put_string(stud);
pBegin:=pBegin^.p until
pBegin=nil;
put_sub;
{Èçâëå÷åíèå äàííûõ ïî óñëîâèþ è óäàëåíèå î÷åðåäè}
pBegin:=pBegin1;
put_header('Ñòóäåíòû, ÷üè ôàìèëèè íà÷èíàþòñÿ ñ áóêâû "Á:');
repeat
stud:=pBegin^.s;
if stud.fam[1]='Á' then put_string(stud);
pHelp:=pBegin;
pBegin:=pBegin^.p;
dispose(pHelp)
until pBegin=nil;
put_sub
end;
{Ãëàâíàÿ ïðîãðàììà}
begin
assign(g,'result.txt');
{$i-}append(g);{$i+} if ioresult <> 0 then rewrite(g);
 assign(f,'data.txt');
FIFO;
close(f);close(g); writeln('Ok')
 end.


Вернуться к обсуждению:
Очередь (FIFO): студенты, чьи фамилии начинаются с буквы "Б"
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.02.2014, 20:17
Готовые ответы и решения:

Напечатать список студентов, фамилии которых начинаются с буквы "А"
Напечатать список студентов, фамилии которых начинаются с буквы &quot;А&quot; и их оценки за последнюю...

Вывести всех студентов, чьи имена начинаются с буквы "А"
Сформировать стек, содержащий данные по студентам в следующем виде: &quot;Фамилия Имя Группа ГР RS&quot;, где...

Вывести фамилии и имена студентов, чьи имена начинаются на букву "б"
известны фамилии,адреса и телефоны 25 человек. Найти фамилии и адреса людей, чей телефон начинается...

Структуры. Распечатать список студентов фамилии которых начинаются с буквы "К"
Распечатать список студентов фамилии которых начинаются с буквы К. Заранее спасибо :)

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