Форум программистов, компьютерный форум CyberForum.ru

записи - C++

Восстановить пароль Регистрация
 
~FaRiD~
0 / 0 / 0
Регистрация: 11.11.2010
Сообщений: 23
27.11.2010, 20:26     записи #1
помогите пожалуйста зделать блок-схему на прогу.
условие: даны свединья о результатах сессии: ФИО студента, название четырех предметов и оценки, полученные по каждому предмету. Вывести список группы по убыванию общего балла.

program ball;
uses crt;
const n=4;
type
swed=record
fio: string;
algebra: string;
geometriy: string;
angliski: string;
fizika: string;
end;
var
mas:array [1..n] of swed;
i,j:integer;
buf:swed;
begin
clrscr;
for i:=1 to n do
while mas[i] do
begin
write('vvedite fio----)');readln(fio);
write('vvedite algebra---)'); readln(algebra);
write('vvedite geometriy---)'); readln(geometriy);
write('vvedite angliski---)'); readln(angliski);
write('vvedite fizika---)'); readln(fizika);
writeln;
end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if mas[i].algebra<mas[j].algebra then
begin
buf.fio:=mas[i].fio;
buf.algebra:=mas[i].algebra;
buf.geometriy:=mas[i].geometriy;
buf.angliski:=mas[i].angliski;
buf.fizika:=mas[i].fizika;

mas[i].fio:=mas[j].fio;
mas[i].algebra:=mas[j].algebra;
mas[i].geometriy:=mas[j].geometriy;
mas[i].angliski:=mas[j].angliski;
mas[i].fizika:=mas[j].fizika;

mas[j].fio:=buf.fio;
mas[j].algebra:=buf.algebra;
mas[j].geometriy:=buf.geometriy;
mas[j].angliski:=buf.angliski;
mas[j].fizika:=buf.fizika;
end;

for i:=1 to n do
with mas[i] do
begin
writeln(fio);
writeln(algebra);
writeln(geometriy);
writeln(angliski);
writeln(fizika);
readln;
writeln;
end;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.11.2010, 20:26     записи
Посмотрите здесь:

Записи C++
Файлы и записи C++
C++ Записи в С++
записи C++
Есть в записи числа m цифры, которые совпадают с цифрами в записи числа n C++
Написать функции для чтения/записи отдельных бит для любой записи из данного набора C++
C++ Проверить, есть ли в записи числа m цифры, совпадающие с цифрами в записи числа n

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 16:15. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru