Форум программистов, компьютерный форум, киберфорум
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
161 / 122 / 85
Регистрация: 16.10.2013
Сообщений: 1,738
09.02.2014, 10:45 0

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

09.02.2014, 10:45. Просмотров 1327. Ответов 3
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
99
100
101
102
103
104
105
106
107
program lab;
uses crt;
type
    dt=record
        fam:string[14];
        nam:string[14];
        grp:string[10];
        grd:integer;
        ray:array[1..5] of integer;
        end;
    pDat=^data;
    data=record
        dat:dt;
        nxt:pDat;
        end;
procedure add(var pV:pDat);
begin
with pV^.dat do
    begin
    write('fam: ');
    readln(fam);
    write('nam: ');
    readln(nam);
    write('grp: ');
    readln(grp);
    write('grd: ');
    readln(grd);
    write('ray 1: ');
    readln(ray[1]);
    write('ray 2: ');
    readln(ray[2]);
    write('ray 3: ');
    readln(ray[3]);
    write('ray 4: ');
    readln(ray[4]);
    write('ray 5: ');
    readln(ray[5]);
    end;
end;
procedure shw(var pV:pDat; n:integer);
var
    sr:real;
begin
if n=0 then
begin
with pV^.dat do
    begin
    sr:=(ray[1]+ray[2]+ray[3]+ray[4]+ray[5])/5;
    writeln('|',fam:10,'|',nam:10,'|',grp:5,'|',grd:5,'|',sr:5:1,'|');
    end
end
       else
begin
with pV^.dat do
    if fam[1]='B' then 
    begin
    sr:=(ray[1]+ray[2]+ray[3]+ray[4]+ray[5])/5;
    writeln('|',fam:10,'|',nam:10,'|',grp:5,'|',grd:5,'|',sr:5:1,'|');
    end;
end;
end;
var
    pB,pE,pA,pBS:pDat;
    i,k:integer;
begin
write('Vvedite kol-vo zapisey : ');
readln(k);
clrscr;
new(pB);
pB^.nxt:=nil;
add(pB);
pE:=pB;
for i:=1 to k-1 do
    begin
    new(pA);
    pA^.nxt:=nil;
    pE^.nxt:=pA;
    pE:=pA;
    add(pA);
    end;
pBS:=pB;
writeln('+-------------All list------------------+');
writeln('|    Fam   |   Nam    | Grp | Grd | Sr  |');
writeln('|----------+----------+-----+-----+-----|');
while pB<>nil do
    begin
    shw(pB,0);
    pB:=pB^.nxt;
    end;
writeln('+---------------------------------------+');
pB:=pBS;
writeln;writeln;
writeln('+---------------------------------------+');
writeln('| SELECT * FROM STUDENTS WHERE FAM[1]=B |');
writeln('+---------------------------------------+');
writeln('|    Fam   |   Nam    | Grp | Grd | Sr  |');
writeln('|----------+----------+-----+-----+-----|');
while pB<>nil do
    begin
    shw(pB,1);
    pA:=pB;
    pB:=pB^.nxt;
    dispose(pA);
    end;
writeln('+---------------------------------------+');
readln;
end.
Я кажись догадываюсь чья это лаба)
Если что, программу нужно запускать в турбо паскале и вводить все на английском)

Вернуться к обсуждению:
Очередь (FIFO): студенты, чьи фамилии начинаются с буквы "Б"
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.02.2014, 10:45

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

Найти список телефонов сотрудников, чьи фамилии начинаются с заданной буквы
Здравствуйте, мне необходимо доработать код. Мой код ищет фамилии по первой букве,а мне нужно,чтобы...

Вывести в консоль фамилии, которые начинаются с буквы "С" из документа Student.txt
C# вывести в консоль фамилии, которые начинаются с буквы &quot;С&quot; из документа Student.txt написать...

Сколько разных "слов" можно получить из слова "АБРАКАДАБРА"? Сколько из них начинаются с буквы "K"? В скольких из них обе буквы "Б" стоят рядом?
Сколько разных &quot;слов&quot; можно получить из слова &quot;АБРАКАДАБРА&quot;? Сколько из них начинаются с буквы &quot;K&quot;?...

Вывести данные в табличной форме для тех студентов, чьи имена начинаются с "А ".
Вот програмка Она вычисляет тех кто родился в феврале. А надо переделать так чтобы...

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