TURBO PASCAL

[kristito3]

Здравейте! Може ли да ми погнете със свалянето на Turbo Pascal 7.0? Пробвах няколко пъти, но не мога много да се ориентирам от къде да влезна, за да почна да пиша програма. Бихте ли ми препоръчали от къде да го изтегля и после от къде да започна с писането на програмата?

[asp1r1n94]

Аз имам борланд паскал... нямат разлика :-o

[asp1r1n94]

http://4storing.com/an2qip/19f6b20091fea49d3ab0e9f3c19ef57a.html

[koko95]

виж дали го има в замунда

[kristito3]

http://4storing.com/an2qip/19f6b20091fea49d3ab0e9f3c19ef57a.html

Добре аз го свалих оттук, дезархивирах го и сега има папка на име Borland Pascal_Zamunda.NET. Като влезна в нея друга папка BP_pascal след нея BP. Но след това в коя от многото папки да влезна?

[asp1r1n94]

Borland Pascal_Zamunda.NET\BP_pascal\BP\BIN и после горе има иконка на ms dos ,пада се 5-та от ляво на дясно,става и с 3-тата ,тези са !
Ако искаш да работиш с графика трябва да преместиш паскала в C:\ и да оправиш директориите 8)

[kristito3]

Като натисна 3-тата или 5-тата икона монитора става черен, а компютърът започва да издава странен пищящ звук. След секунди мониторът светва и ме връща в BIN. :neutral: :neutral:

[asp1r1n94]

С какъв уиндоус си ?

[kristito3]

Windows XP

[asp1r1n94]

И на мен преди не ми ставаше паскал ,при отваряне ми излизаше черен екран и забиваше,трябваше да пробвам различни видове докато стане.
Пробвай други...ако искаш мога да кача и друг паскал :)

[kristito3]

Ами, да ако може. Искам да си го изтегля най-вече, защото от програмите, които пишем в училище не всичко разбирам и да се поупражня. Ти иначе можеш да работиш с него, нали?

[kristito3]

asp1r1n94, изтеглих си Free pascal IDE и работи! Мерси все пак за помощта! =D>

[asp1r1n94]

Ами, да ако може. Искам да си го изтегля най-вече, защото от програмите, които пишем в училище не всичко разбирам и да се поупражня. Ти иначе можеш да работиш с него, нали?
Горе-долу,все пак и в училище го уча,ако нещо не разбираш ще помагам до колкото мога 8)

[kristito3]

Може ли да да погледнеш дали тази програма е правилна? Става въпрос да се провери дали 3 страни образуват триъгълник и ако да, да се намери лицето по Херова формула [S=sqrt(p(p-a)(p-b)(p-c))].

Var a,b,c:integer;
L:Boolean;
P,s:real;
Write(‘a=’);
Readln(a);
Write(‘b=’);
Readln(b);
Write(‘c=’);
Readln(c);
L:=(a+b>c) and (b+c>a) and(a+c>b);
If L then writeln(‘Otse4kite obrazuvat triugulnik’)
Begin
P:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
Write(‘Liceto na triugulnika e’, s:10:3);
Readln
Else writeln(‘Otse4kite ne obrazuvat triubulnik’);
End.

[asp1r1n94]

Var a,b,c:integer;
L:Boolean;
P,s:real;
BEGIN
Write(‘a=’);
Readln(a);
Write(‘b=’);
Readln(b);
Write(‘c=’);
Readln(c);
L:=(a+b>c) and (b+c>a) and(a+c>b);
If L
then
begin
writeln(‘Otse4kite obrazuvat triugulnik’)
P:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
Write(‘Liceto na triugulnika e’, s:0:3);
end
Else writeln(‘Otse4kite ne obrazuvat triubulnik’);
readln;
End.

[SolusChristus]

end след Write(‘Liceto na triugulnika e’, s:0:3); трябва да има ;

[asp1r1n94]

преди else не се пише ; ,ако искаш пробвай,но компилаторът дава грешка

[SolusChristus]

преди else не се пише ; ,ако искаш пробвай,но компилаторът дава грешка

Мхм... 5 години откакто съм позлвал паскал последно. :P