|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.10.2010, 17:35 | #1 |
Регистрация: 10.10.2010
Сообщений: 6
|
блок схема к программе
uses crt,dos;
var God,Mes,Den,Den_Ned,Chas,Min,Sec,So tki:Word; myGod,myDen,myMes:word; hisGod,HisDen,hisMes:word; begin clrscr; GetDate(God,Mes,Den,Den_Ned); writeln('устоновите дату 1го человека: '); Write('‚введите день: '); Read(myDen); write('Введите месяц: '); Read(myMes); write('введите год: '); Read(myGod); Writeln('Вашь возраст ', god-myGod); Writeln('--------------------------------------'); Writeln('устоновите дату 1го человека*: '); Write('введите день: '); Read(HisDen); write('введите месяц: '); Read(HisMes); write('введите год: '); Read(HisGod); Writeln('его возраст ', god-hisGod); writeln('--------------------------------------'); if god-MyGod>god-hisGod then Writeln('первый человек старше второго'); if god-MyGod<god-hisGod then Writeln('второй человек старше первого'); if myGod=hisGod then begin if myMes>hisMes then Writeln('второй человек старше первого'); if myMes<hisMes then Writeln('первый человек старше второго'); if myMes=hisMes then begin if myDen>hisDen then Writeln('Второй человек старше первого'); if myDen<hisDen then Writeln('первый человек старше второго'); if myDen=hisDen then Writeln('Эти люди равны по возросту'); end; end; readln; readln end. заранее спасибо |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Блок-схема к программе | BarracudaSSAT | Помощь студентам | 0 | 06.01.2010 20:08 |
Блок-схема к программе | Shredder | Помощь студентам | 8 | 20.11.2009 19:07 |
Блок схема к программе | NeGaTiVe | Помощь студентам | 2 | 02.11.2009 15:18 |
Блок-схема к программе | OtimJ | Помощь студентам | 2 | 15.01.2009 19:29 |