Results 1 to 13 of 13
Thread: Ïðîáëåì íà Paskal
Hybrid View
-
11th April 2006 23:51 #1Registered User
Join Date: Sep:2004
Posts: 136
Ïðîáëåì íà Paskal
Çàäà÷àòà ìè å äà íàïðàâèÿ ïðîãðàìà êîÿòî äà êîíæåðòèðà íîðìàëíî 4èñëî â ðèìñêî.
Ñòèãíàõ äî òóê:
program Rimski 4isla;
var
a:real; k:real; e:real; f:real; g:real;
b:real; p:real; q:real; r:real; s:real;
h:real; j:real; z:real; y:real;
const
I=1; II=2; III=3; IV=4; V=5; VI=6; VII=7; VIII=8;
IX=9; X=10; L=50; C=100; D=500; M=1000;
begin;
writeln('Vavedete hiliadni');
write ('k=');
readln (k);
writeln('Vavedete stotici');
write ('e=');
readln (e);
writeln('Vavedete desetici');
write ('f=');
readln (f);
writeln('Vavedete edinici');
write ('g=');
readln (g);
if (k>9) or (e>9) or (f>9) or (g>9) then writeln('GRE6KA')
else
begin;
p:=1000*k; q:=100*e; r:=10*f; s:=1*g;
a:=p+q+r+s;
writeln('Va6eto 4islo e', a:8:0);
readln;
end;
end.
Íÿêàêâè èäåè êàê äà ïðîäúëæà
-
12th April 2006 08:53 #2
Ãëåäàé ñåãà. Ïî äîáðå èçïîëçâàé ÷èñëîòî êàòî ñòðèíã. Òàêà ùå èìàø äîñòúï äî âñè÷êè íåãîâè öèôðè êàòî ïîëçâàø ñèíòàêñèñ
var number : string;
....
write('Âúâåäåòå ÷èñëî :'); readln(number);
edinici:=number[length(number)]
desettici:=number[length(number)-1]
....
è òàêà äî êðàÿ íà ÷èñëîòî. Ìîæåø äà ñëîæèø ïðîâåðêè çà òîâà äàëè íÿìà íàïèñàíà áóêâà èëè äðóã ñèìâîë. Àêî íÿêîé ìè íàïèøå ðèìñêî 9449 ùå òè êàæà è êàê äà ïðîäúëæèø
"Àå ìîæå ëè äîêàòî ñè ðàáîòèø åé òàêà è äà òè ñå íàïúëíè êîìïþòúðà ñ âèðóñè? Ùîòî àç ãëåäàì ñè íÿêàêâè ïîðíî ñàéòîâå è òîé ñàì ñå ïúëíè ..."
-
12th April 2006 12:36 #3
Äîëíàòà ôóíêöèÿ å çà Delphi, íî ïðåäïîëàãàì íÿìà äà òè å òðóäíî äà ñè ÿ ïðåíàïèøåø çà Pascal.
Code:function RomanNum(Number:Integer):String; {Returns concise Roman numeral string representation for Number in range [1..9999]} var i,j,n: integer; Digit,Pivot:String; begin if (Number<1) or (Number>9999) then begin Result:='Error!'; Exit; end; Result:=''; Digit:='IXCM'; Pivot:='VLD'; for i:=1 to 3 do begin n := Number MOD 10; Number := Number Div 10; case n of 1..3: for j := 1 to n do Result := Digit[i]+Result; 4: Result := Digit[i]+Pivot[i]+Result; 5..8: begin for j := 6 to n do Result:=Digit[i]+Result; Result:=Pivot[i]+Result; end; 9: Result:=Copy(Digit,i,2)+Result; end; end; for i:=1 to Number do Result:='M'+Result; end;
-
8th June 2007 02:49 #4Registered User
Join Date: Jun:2007
Location: bulgaria
Posts: 1
åè çäðàâåéòå è àç èìàì íóæäà îò ìàëêî ïîìîù ñòàâà äóìà çà ïðîãðàìèðàíå à àç ñàì ìîìè÷å êàêâî ðàçáèðàì îò òîâà
åäíî åñòåñòâåíî ÷èñëî ñå íàðè÷à ñúâúðøåííî àêî å ðàâíî íà ñóìàòà îò äåëèòåëèòå ñè áåç ñàìîòî ÷èñëî . äà ñå íàïèøå ïðîãðàìà êîÿòî íàìèðà âñè÷êè ñúâúðøåííè ÷èñëà äî äàäåíî åñò. ÷èñëî n .
ìîãà åäèíñòæåíî äà ïîìîãíà ñ èíôîðìàöèÿòà ÷å ñå ðåøàâà ñ öèêëè÷íè êîíñòðóêöèè è ñúùî ñ íÿêàêâè âëîæåíè öèêëè !
àêî íÿêîè ìîæå äà ìè ïîìîãíå ùå ñúì ìíîãî áëàãîäàðíà
ñòàâà äóìà çà PaskalLast edited by delian; 8th June 2007 at 09:34. Reason: ñëÿòè ìíåíèÿ
-
8th June 2007 03:10 #5
Ïîçíàâàì ïîíå ïåò ìîìè÷åòà, êîèòî ñè âàäÿò õëÿáà ñ ïðîãðàìèðàíå è äîðè èçêàðâàò ïîâå÷å îò ìåí íà ìåñåö. Òàêà ÷å ìîòèâúò çà ïîëà îòïàäà

Î÷åâèäíî íÿìàø íèêàêâà èäåÿ çà êàêâî ñòàâà äóìà, ñëåä êàòî äîðè èìåòî íà åçèêà çà ïðîãðàìèðàíå íå çíàåø (ïèøå ñå Pascal ïî èìåòî íà çíàìåíèòèÿ ôðåíñêè ó÷åí è ôèëîñîô îò 17-òè âåê).  ñïèñúêà ñ òåìè íà òîçè ïîäôîðóì èìà åäíà îò òèÿ äíè, êîÿòî âèñè íàé-îòãîðå (sticky å). Ïðî÷åòè ÿ. Íàêðàòêî - èçìèñëè îáùàòà èäåÿ íà ðåøåíèåòî, íàïèøè 3-4 ðåäà íà ñúîòâåòíèÿ åçèê, ñëåä êîåòî ïóñíè ðåøåíèåòî çà îáñúæäàíå. Èäåÿòà íà òîçè ôîðóì å äà áúäå èíñòðóìåíò çà âçàèìîïîìîù, à íå çàìåñòèòåë íà çíàíèÿòà (èëè ïî-ñêîðî ëèïñàòà íà òàêèâà) îò ó÷èëèùå.Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others
-
18th June 2007 18:12 #6Registered User
Join Date: Jun:2007
Location: BG
Posts: 3
çàäà÷à íà ïàñêàë
ïðîãðàìà ÷åòå 2 ôàéëà - øàáëîí è áàçà îò äàííè.Øàáëîíúò ñúäúðæà òåêñò ñ åòèêåòè îò âèäà |1| |2| |3| ........è òðÿáâà äà áúäàò çàìåíåíè ñ 1âî 2ðî 3òî ...... ïîëå íà òåêóùèÿ çàïèñ:
áàçà äàííè:
Mr|Harry|Hacker|1105 torre ave.|cupertino|CA|95014
miss|evelyn|garcia|1101 S. universe plasce|ann abort|MI|48105
øàáëîíà å âúâ âèä íà ïèñìî è èçãëåæäà òàêà:
To:
|1| |2| |3|
|4|
|5| |6| |7|
Dear |1| |3|
You and the |3| family may be the lucky winners of $10 000 000 !
1 - mr/mrs
2-ime
3-familia
4-adres
5-ulica
6-grad
7-post code
Ìîÿòà èäåÿ å äà çàïèñâàì âñè÷êè ñèìâîëè äî ñðåùàíå íà '|' â çàïèñè è ïîñëå äà èçòðèâàì âå÷å çàïèñàíèòå ñèìâîëè è ïàê äà ïî÷âàì îò ïúðâè ñèìâîë.
var......
danni=record
obru6tenie:string(10);
malko ime:string(10);
familia:string(10);
adres:string(15);
ulica:string(10);
grad:string(10);
post code:integer;
1:=st.obra6tenie;
2:=st.malko ime
.........
oba4e mi dava nqkakvi gre6ki a i samata zada4a e dosta dulga
-
18th June 2007 19:44 #7
icaci, íÿìà ñìèñúë. Òè ãî ïëþåø, òî ìèñëè, ÷å äúæä âàëè.
Åòî êîíêðåòíî:
@Klaas Huntelaar, åòî òè ðåøåíèåòî íà çàäà÷àòà òè.
@sofito, åòî ðåøåíèåòî è íà òâîÿòà çàäà÷à.
Åòî òàêà ñå ïëîäÿò òå, êàçâàì ñè àç. Ïîä íîñà òè.
"640K îught to be enough for anybody" - Bill Gates, 1981
Òåñòîâå íà áàòåðèè::Machine specs::Fract::AGG::ÍåÑåÑúðäè×îâå÷å::Baileys::blog::YouTube channel
-
18th June 2007 20:11 #8Registered User
Join Date: Jun:2007
Location: BG
Posts: 3
mersi vse pak za ogromnata pomo6t
-
19th June 2007 09:08 #9
Íà ìåí ïúê ìè ñòàíà èíòåðåñíî êúäå äàâàò òàêèâà çàäà÷è íà Pascal, â êîèòî êðàéíàòà öåë å èçïðàùàíåòî íà SPAM.
-
19th June 2007 10:52 #10
Àáå âñÿêàêâè ãè èìà. Ïîçíàâàì åäèí, äåòî ïðåäè áëèçî 10 ãîäèíè áåøå ïèñàë íà Pascal òðîÿíñêè êîí çà Windows, êîéòî èçïðàùàøå ñïàì, íî â ìààààààëêî ïî-ãîëåìè êîëè÷åñòâà, íà åäíî ISP. Ñúìíÿâàì ñå îáà÷å, ÷å ìó å áèëî ó÷èëèùåí ïðîåêò...
Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others
-
19th June 2007 14:18 #11
Êàòî ñìå òðúãíàëè íà òîÿ ñïàìàäæèéñêè/êðàêåðñêè îôòîïèê, åäèí ïðèÿòåë áåøå ïîäåë íÿêàêâà òðîÿíñêà èíèöèàòèâà, îùå êúì 1999òà ãîäèíà...
Ñõåìàòà e ñëåäíàòà: Äàâàø íà ïðèÿòåë÷åòàòà ñè, ïðèìåðíî, äèñê ñúñ mp3êè, êîéòî èìà íÿêàêúâ autorun. Òîé, äà ðå÷åì, òè ïðåäëàãà äà ñè èíñòàëèðàø winamp, èëè òè ïîêàçâà ïåñíèòå êàòåãîðèçèðàíè â àëáóìè ñ êàðòèíêè è ëèðèêè. Êúì öÿëîòî òîâà íåùî, çàêà÷àø åäíî êîí÷å, êîåòî ñíèôèðà îïðåäåëåí òðàôèê (êúì/îò yahoo.com) è keylog-âà â ñúùîòî âðåìå.
Òðîÿíåöà ïåðèîäè÷íî ïðàùà äàííèòå íà íÿêàêúâ ñúðâúð, îòêúäåòî âå÷å ñ íÿêàêâî custom daemon-÷å ñè ãè ëîâèø.
Íàé-çàáàâíîòî â öÿëîòî òîâà íåùî å, ÷å íèêîé íå ñå å óñåòèë, ìàùàáèòå íà çàðàçèòå áèëè âïå÷àòëÿâàùè (íèùî ÷óäíî äå, ñïîìíÿì ñè êàòî íÿìàøå áúðç íåò êàê äèñêîâåòå ñ ìóçèêà/ïîðíî/ïðîãðàìè âúðâÿõà êàòî òîïúë õëÿá). È âúðõà íà ñëàäîëåäà - 2006-òà ãîäèíà daemon-à îùå áà÷êàë è ïîëó÷àâàë äàííè
Åòî òàêà ñå ïëîäÿò òå, êàçâàì ñè àç. Ïîä íîñà òè.
"640K îught to be enough for anybody" - Bill Gates, 1981
Òåñòîâå íà áàòåðèè::Machine specs::Fract::AGG::ÍåÑåÑúðäè×îâå÷å::Baileys::blog::YouTube channel
-
19th June 2007 15:59 #12Registered User
Join Date: Jun:2007
Location: BG
Posts: 3
program cirkulqrni pisma;
deklarirane na fail i stringove
{$I Createfile}
{$I Writefile}
procedure replace(var f:file;i,k:integer;st,st1:string);
reset(f);
begin
while not eof(f) do
readln(f,st);
rewrite(g);
i:=;k:=0;
while s[i]<> '|' do
st1:=st1+st1[i];
a[k]:=st1;
k:=k+1;
Writefile(g,st)
end;
i sea ostavat samo nqkolko ne6ta kato del,insert i e gotovo
PLEASE DON'T STOP THE MUSICLast edited by Klaas Huntelaar; 20th June 2007 at 15:06.
-
19th June 2007 16:44 #13
Âåäíàãà ñå âèæäà åäíà ñèíòàêòè÷íà ãðåøêà...
Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others




Reply With Quote
Lenovo ThinkPad 15 èëè IdeaPad 15
5th May 2023, 22:16 in Ìîáèëíè êîìïþòðè