Форум программистов, компьютерный форум, киберфорум
Наши страницы

записи - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Решение нужно http://www.cyberforum.ru/cpp-beginners/thread198662.html
Задача2.В одномерном массиве, состоящем из n вещественных элементов, поменять местами соседние элементы из пары нечетный-четный(по номеру). Одинаковые по значению элементы не переставлять, но...
C++ Дано натуральное число. Верно ли, что в его десятичной записи есть шесть единиц подряд? Помогите пожалуйста с программой. Вот задание: Дано натуральное число. Верно ли, что в его десятичной записи есть шесть единиц подряд? У меня получилось это - #include <iostream> using namespace... http://www.cyberforum.ru/cpp-beginners/thread198647.html
Как перевести с C на C# C++
Имеется работоспособная (вроде) программа на Си. Нужно как-то перделать на Си Шарп. Потом этот код воткну в контрол для винформс. вот собственно код: #include <stdio.h> #include <stdlib.h>...
C++ символы (с++)
Здравствуйте!!! Напишите пожалуйста простенькую программу которая суммирует два числа но с помощья char или string!!!!!!!!! Добавлено через 2 минуты но без функции atoi или atoll =)))))
C++ Чтение определенного количества символов из файла http://www.cyberforum.ru/cpp-beginners/thread198637.html
Подскажите пожалуйста какой функцией можно прочитать определенное количество символе из файла Наприклад, файл містить 25 символів. потрібно прочитати 8 останніх символів Как???
C++ Баг strcmp Линк на архив с видео, где записана ошибка. http://upload.com.ua/get/902136351/Bug.zip Пароль: bug Объясните ситуацию. подробнее

Показать сообщение отдельно
~FaRiD~
0 / 0 / 0
Регистрация: 11.11.2010
Сообщений: 23

записи - C++

27.11.2010, 20:26. Просмотров 255. Ответов 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru