Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 04.12.2006, 18:35   #1
Дуня
Заблокирован
 
Регистрация: 04.12.2006
Сообщений: 5
По умолчанию Дуня от слова Дуть! Необходима помощь!

Все привет! Вот такая задачка!!!

Описать запись с именем Student, содержащую следующие поля:
* ФИО; (Вася Пупкин)
* Номер группы; (2-PO-3)
* Дата рождения (запись из трех полей: день, месяц, год); (любая)
* Адрес (Запись из трех полей); (улица Гоголя, дом 1, квартира 3)
* Успеваемость (запись из трех предметов: ОАиП, ОСиС, ИТ). (2,2,2)
В программе записать ваши данные в переменную-запись. Вывести информацию на экран.
Дуня вне форума
Старый 04.12.2006, 18:39   #2
zetrix
Delphi/C++/C#
Участник клуба
 
Аватар для zetrix
 
Регистрация: 29.10.2006
Сообщений: 1,972
По умолчанию

На каком языке Pascal или delphi?
zetrix вне форума
Старый 04.12.2006, 18:48   #3
Дуня
Заблокирован
 
Регистрация: 04.12.2006
Сообщений: 5
По умолчанию

Pascal, к сожалению....=)
Дуня вне форума
Старый 04.12.2006, 19:06   #4
zetrix
Delphi/C++/C#
Участник клуба
 
Аватар для zetrix
 
Регистрация: 29.10.2006
Сообщений: 1,972
По умолчанию

Думаю вопросов не должно возникнуть.

Код:
uses crt;
type TData = record
              day, month:byte;
              year:integer;
              end;

     TAdress = record
                street, house, flat:string[20];
               end;

     TIq = record
            OAIP, OSIS, IT: byte;
           end;

     student = record
                Fio:string;
                Group:string[10];
                Data:TData;
                Adress:TAdress;
                Iq:TIq;
               end;

var S:student;
begin
clrscr;
s.fio:='Вася Пупкин';
s.Group:='2-PO-3';
s.data.day:=4;
s.data.month:=12;
s.data.year:=2006;
s.adress.street:='Гоголя';
s.adress.house:='1';
s.adress.flat:='3';
s.iq.OAIP:=2;
s.iq.OSIS:=2;
s.iq.IT:=2;

Writeln('Фамилия Имя Отчество: ',s.fio);
Writeln('Группа: ',s.Group);
Writeln('Дата: ',s.data.day,' ',s.data.month,' ',s.data.year);
Writeln('Адресс: улица ',s.adress.street,', дом ',s.adress.house,', квартира ',s.adress.flat);
Writeln('Успеваемость: ');
Writeln('  ОАиП - ',s.iq.OAIP);
Writeln('  ОСиС - ',s.iq.OSIS);
Writeln('  ИТ - ',s.iq.IT);
readln;
end.
zetrix вне форума
Старый 04.12.2006, 19:16   #5
Дуня
Заблокирован
 
Регистрация: 04.12.2006
Сообщений: 5
По умолчанию

zetrix, спасибо....=)
Дуня вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Необходима помощь с кроссбраузерностью sdevil HTML и CSS 1 24.10.2007 01:55
Необходима помощь nimf Свободное общение 0 29.08.2007 10:43
необходима помощь специалиста Ирина Свободное общение 0 09.11.2006 15:52