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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
~FaRiD~
0 / 0 / 0
Регистрация: 11.11.2010
Сообщений: 23
#1

записи - C++

27.11.2010, 20:26. Просмотров 243. Ответов 0
Метки нет (Все метки)

помогите пожалуйста зделать блок-схему на прогу.
условие: даны свединья о результатах сессии: ФИО студента, название четырех предметов и оценки, полученные по каждому предмету. Вывести список группы по убыванию общего балла.

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     записи
Посмотрите здесь:

Переход от записи в списке к записи в другом списке - MS Access
Доброго времени суток. На одной форме (итоговой) есть список1 из запроса1, на другой список2 из запроса2. Задача, при, например...

Обьявить тип записи, выделить память динамически для этой записи и в одно из полей записи стрин - Delphi
И вывести оценку в поле шоу мэсседж

Заменить описание записи - с анонса (начальный текст записи) на Дескрипшн записи - WordPress
На пробном сайте http://djeysonborn2016.ru/ на главной странице отображаются записи (те что сразу под спойлером). У записей есть заголовок...

ListView: добавление записи, выбор записи, удаление записи - Visual Basic .NET
на форме есть три текст бокса: textbox1(имя), textbox2(фамилия), textbox3(отчество), textbox4(выбранное) кнопка Button1(добавить),...

Автоматическое добавление записи в таблицу, после добавления записи в другой таблице - MS Access
Привет всем! Подскажите, как Access 2010 сделать так, чтобы при добавлении записи в одной таблице, автоматически появлялась запись (одно...

Вывести связанные записи из второй таблицы при выборе записи в первой - Delphi БД
Есть две таблицы, в одной пишется имя и фамилия, а в другой телефоны и их может быть несколько, например строка - 1 первый телефон, строка...

Ошибка записи *.xmcd (при успешной записи того-же файла в *.mcd) - MathCAD
День добрый, уважаемые. Ситуация следующая: маткад 15 М020, имеется файл (в приложении), который при попытке записи в формат xmcd выдает...

Создание записи в непериодическом регистре сведений при записи элемента справочника - 1С
Всем привет! Платформа 1С:Предприятие 8.3, конфигурация редактированная типовая, режим неуправляемый. Имеется справочник Контрагенты с...

Запрос: вывести все записи одной таблицы, и совпадающие записи другой - MS Access
SELECT .ФИО AS ФИО, .Паспорт AS , .Телефон AS Телефон FROM Source INNER JOIN Compare ON (.ФИО=.ФИО) AND (.Паспорт=.Паспорт); Запрос...

Удаление или изменение записи невозможно, в таблице имеются связанные записи - Delphi БД
Доброй ночи. при удалении из родительской таблицы появляется ошибка &quot;удаление или изменение записи невозможно в таблице имеются связанные...


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

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

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