Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » программа в паскале по теме записи (массивы записей)
программа в паскале по теме записи
Запись содержит сведения о сдаче экзаменов. Структура записи:
- Номер группы; ( 11а)
- Ф.И.О.; ( Иванов Иван Иванович)
- Шифр;
- Оценки сдачи трех экзаменов. ( математика 8, физика 7, русский 9)
Выдать сведения о студентах, успешно сдавших экзамены.

Добавлено (07.02.12, 22:12)
---------------------------------------------
Эта программа только С++, а в Паскале не знаю как сделать. Кто может напишите это задание в Паскале.

#include <iostream>
#include <conio.h>

using namespace std;

class TStudent {
public:
char group[3];
string last_name, first_name, middle_name;
int math, phys, russ;
void initialization() {
cout << "Last Name: ";
cin >> last_name;
cout << "First Name: ";
cin >> first_name;
cout << "Middle Name: ";
cin >> middle_name;
cout << endl;
cout << "Group: ";
cin >> group;
cout << endl;

cout << "Mathematics: ";
cin >> math;
cout << endl;
cout << "Physics: ";
cin >> phys;
cout << endl;
cout << "Russian: ";
cin >> russ;
cout << endl;

cout << "*** *** ***\n";
}
void print() {
cout << last_name << " " << first_name << " " << middle_name << " " << group << endl;
cout << "\nMathematics: " << math << endl;
cout << "Physics: " << phys << endl;
cout << "Russian: " << russ << endl;
cout << "*** *** *** *** ***\n";
}
};

const int hum = 2;
const int min_value = 5;

int main() {
TStudent human[hum];
for (int i = 0; i < hum; i++) {
human[i].initialization();
}
system("cls");
int sum = 0;
for (int i = 0; i < hum; i++) {
if ((human[i].math >= min_value) && (human[i].russ >= min_value) && (human[i].phys >= min_value)) {
human[i].print();
sum++;
}
}
if (sum == 0)
cout << "Error 404: Excellent Pupil Not Found\n";
}

1 | Автор: anton94by | 2012-02-07, 22:12   |  Репутация: [ + 1 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » программа в паскале по теме записи (массивы записей)
Страница 1 из 11
Поиск: