|
|
#1
AstalavistaO_o @ 12.02.08 20:15 |
[пожаловаться]
|
|
У меня есть проблема-я ничерта не понимаю в програмировании в паскале Мне дали 2 задачки(элементарные),которые надо сдать,иначе мне капец...,но я ,как уже сказал,в этом не шарю( Ограмная просьба для вменяемой части посетителей пп - помогите с решением!
1)Дана дата рождения человека. Посчитать сколько полных лет он прожил.
2)Даны 3 числа. Выяснить могут ли они являться сторонами треугольника? Если да,то определить какой это треугольник(равнобедренный,равносторонний,прямоугольный или тупоугольный)
Прошу не заливать грязью меня.Знаю,что это не трудно,но я в информатике мало понюмаю.
|
|
|
#5
Marchello @ 12.02.08 20:17 |
[пожаловаться]
|
|
Могу дать совет - когда я не мог решать задачки в институте, то платил челам, которые делали это за меня. Думаю если совсем плохо будет - поищи в яндексе таких челов, хотя у меня прям на доске с расписаниеями были наклеены объявления о том, что помогают решать задачи =)
Удачи тебе. Может и тут кто даст совет.
|
|
|
#6
CQC @ 12.02.08 20:26 |
[пожаловаться]
|
|
program one
var gr,v,g:integer;
begin
writeln('введите год рождения');
readln(gr);
writeln('введите текущий год');
readln(g);
v:=g-gr-1;
writeln('возраст',v);
readln;
end.
|
|
|
#10
Freeman @ 12.02.08 21:59 |
[пожаловаться]
|
|
№6 всё прально, тока дана дата, а не год, ну в этом случае чуть посоложнее
№1 млин, лень писать... сделаю за 50 wmz
|
|
|
#11
ghost_17 @ 12.02.08 22:12 |
[пожаловаться]
|
|
program2
uses crt;
var
a,b,c:integer;
begin
clrscr;
write('a?');
readln(a);
write('b?');
readln(b);
write('c?');
readln(c);
if (a>b+c) or (b>a+c) or (c>a+b) then write ('takogo ne mozhet bit') else
if (a=b) and (b=c) then write ('ravnostoronniy treugolnik') else
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b)
then write ('pramougolniy treugolnik') else
if ((a=b) or (a=c) or (b=c)) and not ((a=b) and (b=c))
then write ('ravnobedrenniy treugolnik') else
write('obichniy treugolnik');
end.
|
|
|
#13
ghost_17 @ 12.02.08 22:21 |
[пожаловаться]
|
|
var
god1,god2,mesac1,mesac2,den1,den2,vozrast:integer;
begin
write('god rozhdeniya?');
readln(god1);
write('mesac rozhdeniya?');
readln(mesac1);
write('den rozhdeniya?');
readln(den1);
write('kakoy seychas god?');
readln(god2);
write('kakoy seychas mesac?');
readln(mesac2);
write('kakoy seychas den?');
readln(den2);
if mesac2>mesac1 then vozrast:=god2-god1;
if (mesac2=mesac1) and (den2<=den1) then vozrast:=god2-god1 else
if (mesac2=mesac1) and (den2>den1) then vozrast:=god2-god1-1;
if mesac2
writeln;
writeln(vozrast);
end.
|
|
|
#15
no_clan.tmp @ 13.02.08 02:13 |
[пожаловаться]
|
|
#10 lol
#6 если у него не 1 января день рождения, то не заработает прога (((
|
|
|
#16
Re-Venger @ 13.02.08 02:19 |
[пожаловаться]
|
|
Чистый код, копируй бестрее. ЖдщдЖ
Program SurprizPrepodu;
Var x,y,z=integer;
Writeln('vvedite datu rojdeniya:',x,'.',y,'.',z);
Writeln('Spasibo, sha podumau');
Wtiteln('FAK YOU SPILBERG! CHE NE GDAL, BARAN? SOSI MNE POH NA SESSIU, YA V ARMIU HOCHU! ');
End.
|
|
|
Reply | | | |
|
|
|