| ← Февраль 2012 → | ||||||
|
1
|
2
|
5
|
||||
|---|---|---|---|---|---|---|
|
6
|
7
|
8
|
9
|
10
|
11
|
|
|
14
|
15
|
16
|
17
|
18
|
||
|
20
|
21
|
22
|
23
|
24
|
25
|
26
|
|
27
|
28
|
29
|
||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://prog.rusfaq.ru/pascal
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на языке Pascal
Хостинг портала RFpro.ru: РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты по данной тематике
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)
Консультация # 185442: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Вот суть вопроса:1) есть задание : Известны год, номер месяца и день рождения человека, определить возраст человека(число полных лет). Сама задача решена, с помощью экспертов данного портала,за что ОГРОМНОЕ спасибо, но возможно ли сделать ее проще(убрать dec так как по ... Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 16.02.2012, 01:27 Консультирует Юдин Евгений Сергеевич (Студент): Здравствуйте, Посетитель - 392290! Код : program vozrast;
var
gr,mr,gs,ms,vozrast:integer;
begin
writeln('vvedite god i mesyac rojdeniya');
readln(gr,mr);
writeln('vvedite segodnyashniy god i mesyac');
readln(gs,ms);
vozrast:=gs-gr;
if ms<mr then vozrast:=vozrast-1;
writeln('vozrast=',vozrast);
readln;
end.2) Вот программа - отладкой занимался около 2х часов(думая я все сделал правильно) Код : program vozrast;
var
dr,gr,mr,gs,ms,ds,v1,v2,v3:integer;
begin
writeln('Введите дату рождения dd,mm,gg');
Readln(dr,mr,gr);
writeln('Введите сегодняшнюю дату dd,mm,gg');
readln(ds,ms,gs);
v1:=gs-gr;
v2:=12-mr+ms;
if v2>12 then
begin
v1:=v1+1;
v2:=v2-12;
end;
if v2=12 then
v2:=0;
if ds<dr then
begin
v3:=30-dr+ds;
v2:=v2+1;
if v2>12 then
begin
v1:=v1+1;
v2:=v2-12;
end;
end
else
if ds>dr then
begin
v3:=ds-dr;
end
else v3:=0;
writeln('Дней ',v3,' Месяцев ', v2,' Лет ',v1);
readln;
end.Удачи в понимании! 
Консультирует Алексей К. (3-й класс): Здравствуйте, Посетитель - 392290! Код :
program vozrast;
var
dr,gr,mr,gs,ms,ds:longint;
VosDni1,VosDni2 : real;
EndVosrastDni:longint;
EndVosrastMesaz:longint;
EndVosrastGod:longint;
rasnostDni:real;
begin
writeln('vvedite datu rogdenia dd,mm,gggg');
Readln(dr,mr,gr);
writeln('vvedite segodnzshnuu datu dd,mm,gggg');
readln(ds,ms,gs);
VosDni1:= dr+mr*30+gr*360;
VosDni2:=ds+ms*30+gs*360;
rasnostDni:= VosDni2-VosDni1;
EndVosrastGod := trunc(rasnostDni/360);
rasnostDni:=rasnostDni-EndVosrastGod*360;
EndVosrastMesaz:=trunc(rasnostDni/30);
EndVosrastDni:=trunc(rasnostDni-EndVosrastMesaz*30);
writeln('Dney ',EndVosrastDni,' Mesazev ', EndVosrastMesaz,' Let ',EndVosraacstGod);
readln;
end.
Если же не знаете trunc, то знаете ли вы что на паскале можно писать функции (чтобы сделать свою функцию усечения до целого). Или надо увеличивать код программы, вставляя определение целого прямо в тело программы.
Консультирует lamed (Академик): Здравствуйте, Посетитель - 392290! Решение второй задачи двумя способами. PascalABC.Net Код : program Pvozrast1;
var
dr, gr, mr, gs, ms, ds, dd, gg, mm:integer;
begin
writeln('Введите дату рождения dd,mm,gg');
Readln(dr,mr,gr);
writeln('Введите сегодняшнюю дату dd,mm,gg');
readln(ds,ms,gs);
gg:= gs-gr;
mm:= ms-mr;
dd:= ds-dr;
if dd<0 then
begin
dd:=dd+30;
mm:=mm-1;
end;
if mm<0 then
begin
mm:=mm+12;
gg:=gg-1;
end;
writeln('Лет ', gg, ' Месяцев ', mm,' Дней ', dd);
readln;
end.Код : program Pvozrast2;
var
dr, gr, mr, gs, ms, ds, dd, gg, mm:integer;
drVsego, dsVsego, ddVsego : integer;
begin
writeln('Введите дату рождения dd,mm,gg');
Readln(dr,mr,gr);
writeln('Введите сегодняшнюю дату dd,mm,gg');
readln(ds,ms,gs);
drVsego := (gr*12+mr)*30+dr;
dsVsego := (gs*12+ms)*30+ds;
ddVsego := dsVsego - drVsego;
dd := ddVsego mod 30;
mm := ddVsego div 30 mod 12;
gg := ddVsego div (30*12);
writeln('Лет ', gg, ' Месяцев ', mm,' Дней ', dd);
readln;
end.Если требуются пояснения, задавайте вопросы в мини-форуме. Удачи!
Консультирует Neverov (3-й класс): Здравствуйте, Посетитель - 392290! Код :
var d,m,y,td,tm,ty:integer;
begin
write('Введите текущую дату (yyyy mm dd)');
readln(ty,tm,td);
write('Введите дату рождения (yyyy mm dd)');
readln(y,m,d);
d:=(ty-y)*360+(tm-m)*30+td-d; {Общее количество дней между датами}
y:=d div 360; {Число целых лет}
m:=d mod 360 div 30;{Число целых месяцев оставшихся после выделения целых лет}
d:=d mod 30; {Число целых дней оставшихся после выделения целых лет и месяцев}
writeln('Вам ',y,' лет ',m,' месяцев и ',d,' дней')
end.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
© 2001-2012, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про" Калашников О.А. | Гладенюк А.Г. Хостинг: Компания "Московский хостер" Версия системы: 2011.6.36 от 26.01.2012 |
| В избранное | ||
