tag:blogger.com,1999:blog-19568978472281453362024-03-08T06:36:53.290-08:00ΤΕΧΝΙΚΟΣ ΕΦΑΡΜΟΓΩΝ ΠΛΗΡΟΦΟΡΙΚΗΣ (MULTIMEDIA / WEB DESIGN / ΓΡΑΦΙΣΤΙΚΗ)Μερεντίτης Νίκοςhttp://www.blogger.com/profile/00700183505881900365noreply@blogger.comBlogger17125tag:blogger.com,1999:blog-1956897847228145336.post-12830202390921141132015-01-30T02:42:00.001-08:002015-02-02T01:08:13.885-08:00Εγχειρίδιο Εισαγωγή Στην Πληροφορική<div dir="ltr" style="text-align: left;" trbidi="on">
Το παρακάτω link αποτελεί το εγχειρίδιο για το μάθημα<br />
<div>
"ΕΙΣΑΓΩΓΗ ΣΤΗΝ ΠΛΗΡΟΦΟΡΙΚΗ" </div>
<div>
του πρώτου εξαμήνου του ΙΕΚ.</div>
<div>
Κατεβάστε το στον υπολογιστή σας και καλό διάβασμα.</div>
<div>
<br /></div>
<div>
<a href="https://drive.google.com/file/d/0BxhLbrXIHD3ydGNLYmlQTmpLdFE/view?usp=sharing" target="_blank">εδώ το link</a></div>
</div>
Μερεντίτης Νίκοςhttp://www.blogger.com/profile/00700183505881900365noreply@blogger.com1tag:blogger.com,1999:blog-1956897847228145336.post-5516458219696769852014-12-05T03:36:00.002-08:002014-12-05T03:36:30.033-08:00<div dir="ltr" style="text-align: left;" trbidi="on">
Μια ενδιαφέρουσα σελίδα για διάβασμα Αλγορίθμων.<div>
Εξασκήστε τον αλγοριθμικό τρόπο σκέψης σας.</div>
<div>
<br /></div>
<div>
<br /></div>
<div>
<br /></div>
<div>
<a href="http://ptsiotakis.mysch.gr/old/aepp/aepp.htm" target="_blank">Τσιωτάκης Παναγιώτης Ηλεκτρονικό Βιβλίο</a></div>
</div>
Μερεντίτης Νίκοςhttp://www.blogger.com/profile/00700183505881900365noreply@blogger.com0tag:blogger.com,1999:blog-1956897847228145336.post-22630700433777256412014-12-01T03:18:00.001-08:002014-12-01T03:18:12.805-08:00<div dir="ltr" style="text-align: left;" trbidi="on">
program<span class="Apple-tab-span" style="white-space: pre;"> </span>prosthesi_pinakon;<br />
var<br />
A,B,C,D:array[1..5] of integer;<br />
i:integer;<br />
begin<br />
writeln('ΠΙΝΑΚΑΣ Α');<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>for i:=1 to 5 do<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> begin<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> <span class="Apple-tab-span" style="white-space: pre;"> </span>writeln('Δώσε το ',i,'ο στοιχειο του πίνακα A');<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> <span class="Apple-tab-span" style="white-space: pre;"> </span>readln(A[i]);<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> end<br />
;<br />
writeln('ΠΙΝΑΚΑΣ B');<br />
for i:=1 to 5 do<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> begin<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> <span class="Apple-tab-span" style="white-space: pre;"> </span>writeln('Δώσε το ',i,'ο στοιχειο του πίνακα B');<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> <span class="Apple-tab-span" style="white-space: pre;"> </span>readln(B[i]);<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> end<br />
;<br />
writeln('ΠΙΝΑΚΑΣ C');<br />
for i:=1 to 5 do<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> begin<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> <span class="Apple-tab-span" style="white-space: pre;"> </span>C[i] := A[i] + B[i];<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> <span class="Apple-tab-span" style="white-space: pre;"> </span>writeln('Το άθροισμα του ',A[i],' και του ', B[i],' είναι ',C[i]);<br />
end<br />
;<br />
writeln('ΠΙΝΑΚΑΣ D');<br />
for i:=1 to 5 do<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> begin<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> <span class="Apple-tab-span" style="white-space: pre;"> </span>D[i] := A[i] + C[i];<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> <span class="Apple-tab-span" style="white-space: pre;"> </span>writeln('Το άθροισμα του ',A[i],' και του ', C[i],' είναι ',D[i]);<br />
end<br />
;<br />
end.<br />
<div>
<br /></div>
</div>
Μερεντίτης Νίκοςhttp://www.blogger.com/profile/00700183505881900365noreply@blogger.com0tag:blogger.com,1999:blog-1956897847228145336.post-61848333858996552732014-12-01T02:36:00.001-08:002014-12-01T02:36:31.905-08:00<div dir="ltr" style="text-align: left;" trbidi="on">
Ερωτήσεις για την Πιστοποίηση - Παλιές<div>
Ρίξτε μια ματιά ... και δυο!!!!</div>
<div>
<br /></div>
<div>
<a href="https://drive.google.com/file/d/0BxhLbrXIHD3ya0pBcnBPZU1FYWc/view?usp=sharing">https://drive.google.com/file/d/0BxhLbrXIHD3ya0pBcnBPZU1FYWc/view?usp=sharing</a></div>
</div>
Μερεντίτης Νίκοςhttp://www.blogger.com/profile/00700183505881900365noreply@blogger.com0tag:blogger.com,1999:blog-1956897847228145336.post-18329635442124224512014-12-01T02:30:00.001-08:002014-12-01T02:30:52.680-08:00<div dir="ltr" style="text-align: left;" trbidi="on">
Όλα για την Pascal<br />
<br />
<a href="https://drive.google.com/folderview?id=0BxhLbrXIHD3yY196NkVrSkMyZ3M&usp=sharing">https://drive.google.com/folderview?id=0BxhLbrXIHD3yY196NkVrSkMyZ3M&usp=sharing</a></div>
Μερεντίτης Νίκοςhttp://www.blogger.com/profile/00700183505881900365noreply@blogger.com0tag:blogger.com,1999:blog-1956897847228145336.post-81512579314961162952014-11-28T03:24:00.001-08:002014-11-28T03:24:13.576-08:00<div dir="ltr" style="text-align: left;" trbidi="on">
program seiriaki_anazitisi;<br />
var<br />
i,counter,x:integer;<br />
A:array[1..5] of integer;<br />
to_vrika:boolean;<br />
begin<br />
<br />
for i:=1 to 5 do {ΜΕ ΑΥΤΉ ΤΗ FOR ΓΕΜΙΖΩ ΕΝΑΝ ΠΙΝΑΚΑ ΜΕ ΣΤΟΙΧΕΙΑ}<br />
begin<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>readln(A[i]);<br />
end<br />
;<br />
writeln();<br />
writeln('Δώσε έναν αριθμό να σου πώ σε ποιά θέση βρίσκεται');<br />
readln(x);{ΕΙΣΑΓΩ ΕΝΑΝ ΑΡΙΘΜΟ ΑΠΟ ΤΟ ΠΛΗΚΤΡΟΛΟΓΙΟ}<br />
<br />
{ΤΩΡΑ ΘΑ ΨΑΞΩ ΝΑ ΤΟΝ ΒΡΩ ΣΕ ΠΟΙΕΣ ΘΕΣΕΙΣ ΑΥΤΟΣ ΒΡΙΣΚΕΤΑΙ....ΑΝ ΥΠΑΡΧΕΙ.<br />
ΑΝ ΔΕΝ ΥΠΑΡΧΕΙ ΘΑ ΒΓΑΛΩ ΜΗΝΥΜΑ ΟΤΙ ΚΑΙ ΚΑΛΑ ΔΕΝ ΤΟΝ ΒΡΗΚΑ ΠΟΥΘΕΝΑ - ΣΕΙΡΙΑΚΗ ΑΝΑΖΗΤΗΣΗ}<br />
counter:=0; {ΕΝΑΣ ΜΕΤΡΗΤΗΣ ΠΟΥ ΜΟΥ ΔΕΙΧΝΕΙ ΠΟΣΕΣ ΦΟΡΕΣ ΒΡΗΚΑ ΤΟ ΣΤΟΙΧΕΙΟ<br />
ΠΟΥ ΨΑΧΝΩ, ΑΝ ΤΟ ΒΡΗΚΑ}<br />
to_vrika:=false;<br />
for i:=1 to 5 do<br />
begin<br />
if x = A[i] then<br />
begin<br />
to_vrika:=true;<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> writeln('Το στοιχείο που ψάχνεις βρέθηκε στη θέση ',i);<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> counter:= counter + 1;<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> end<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>;<br />
end<br />
;<br />
if to_vrika = false then<br />
begin<br />
writeln('Το στοιχείο που ψάχνεις δεν βρέθηκε πουθενά');<br />
end<br />
else<br />
begin<br />
writeln('Το στοιχείο που ψάχνεις βρέθηκε ',counter, ' φορές');<br />
end<br />
;<br />
end.</div>
Μερεντίτης Νίκοςhttp://www.blogger.com/profile/00700183505881900365noreply@blogger.com0tag:blogger.com,1999:blog-1956897847228145336.post-59857628658645538572014-11-26T00:51:00.001-08:002014-11-26T00:51:05.717-08:00<div dir="ltr" style="text-align: left;" trbidi="on">
program procedures_with_arrays;<br />
procedure DIAKRISH(var filo:char, bathmos:integer);<br />
begin<br />
if filo='A' then<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> begin<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> writeln('Είσαι άνδρας');<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> if bathmos > 10 then<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> begin<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> writeln('Μπράβο Πέρασες αγόρι μου');<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> end<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> else<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> begin<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> writeln('Δυστυχώς Κόπηκες αγόρι μου');<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> end<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> ;<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> end<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>else<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> begin<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> writeln('Είσαι Κορίτσι');<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> if bathmos > 10 then<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> begin<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> writeln('Μπράβο Πέρασες κορίτσι μου');<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> end<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> else<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> begin<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> writeln('Δυστυχώς Κόπηκες κορίτσι μου');<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> end<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> ;<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> end<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> ;<br />
end <span class="Apple-tab-span" style="white-space: pre;"> </span><br />
;<br />
<br />
var<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>onoma:string;<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>filo:char;<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>bathmos:integer;<br />
<br />
begin<br />
writeln('Δώσε το όνομά, το φύλο σου και το βαθμό σου');<br />
readln(onoma);<br />
readln(filo);<br />
readln(bathmos);<br />
while onoma <> 'TELOS' do<br />
begin<br />
DIAKRISH(filo,bathmos);<br />
writeln('Δώσε το όνομά, το φύλο σου και το βαθμό σου');<br />
readln(onoma);<br />
if onoma = 'TELOS' then<br />
begin<br />
writeln('Τελειώσαμε. Ευχαριστώ για τις πληροφορίες');<br />
end<br />
else<br />
begin<br />
readln(filo);<br />
readln(bathmos);<br />
end<br />
;<br />
end<br />
;<br />
end.</div>
Μερεντίτης Νίκοςhttp://www.blogger.com/profile/00700183505881900365noreply@blogger.com0tag:blogger.com,1999:blog-1956897847228145336.post-42617249666566059182014-11-24T03:09:00.001-08:002014-11-24T03:09:26.674-08:00Άσκηση με πίνακες if-for<div dir="ltr" style="text-align: left;" trbidi="on">
program third_program_with_arrays;<br />
var<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>i,sum:integer;<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>ONOMA:array[1..5] of string;<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>BATH:array[1..5] of integer;<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>MO:real;<br />
<br />
begin<br />
for i := 1 to 5 do<br />
begin<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>writeln('Δώσε το όνομά σου');<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>readln(ONOMA[i]);<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>writeln('Δώσε το βαθμό που πήρε στην Pascal ');<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>readln(BATH[i]);<br />
end<br />
;<br />
for i:=1 to 5 do<br />
begin<br />
writeln(ONOMA[i]:10, ' ', BATH[i]);<br />
if BATH[i]>10 then<br />
begin<br />
writeln('Μπράβο καλέ μαθητή/τριά πέρασες');<br />
end<br />
else<br />
begin<br />
writeln('Είσαι άχρηστος/η δεν θα προκόψεις στη ζωή σου');<br />
end;<br />
end<br />
;<br />
writeln('Ο συνολικός Μ.0 της τάξης σου είναι');<br />
sum:=0;<br />
for i:=1 to 5 do<br />
begin<br />
sum:=sum+BATH[i];<br />
end<br />
;<br />
MO:=sum/5;<br />
writeln(MO);<br />
<br />
<br />
end. </div>
Μερεντίτης Νίκοςhttp://www.blogger.com/profile/00700183505881900365noreply@blogger.com0tag:blogger.com,1999:blog-1956897847228145336.post-58590720311852991212014-11-21T03:36:00.002-08:002014-11-21T03:36:19.333-08:00Πρόγραμμα με Διαδικασίες με παραμέτρους και κυρίως πρόγραμμα μαζί<div dir="ltr" style="text-align: left;" trbidi="on">
Πρόγραμμα με Διαδικασίες με παραμέτρους και κυρίως πρόγραμμα μαζί<br />
<br />
<br />
program Ex_with_procedures;<br />
var<br />
a,b,c:integer;<br />
<br />
procedure diadikasia(var x,z,sum:integer);<br />
<br />
begin<br />
writeln('Αυτό κάνει η διαδικασία μου, προσθέτει 2 τιμές και εμφανίζει το αποτέλεσμα στην οθόνη');<br />
sum := x + z;<br />
end;<br />
<br />
begin {αυτό είναι το κυρίως μου πρόγραμμα}<br />
writeln('Θα δοκιμάσω μια διαδικασία');<br />
a:= 5;<br />
b:= 4;<br />
diadikasia(a,b,c);{εδώ καλώ τη διαδικασία μου}<br />
writeln(c);<br />
end.<br />
<div>
<br /></div>
</div>
Μερεντίτης Νίκοςhttp://www.blogger.com/profile/00700183505881900365noreply@blogger.com0tag:blogger.com,1999:blog-1956897847228145336.post-49139923141415651222014-11-14T03:23:00.003-08:002014-11-14T03:23:58.346-08:00<div dir="ltr" style="text-align: left;" trbidi="on">
Άσκηση με while την οποία ελέγχει ο χρήστης και την οποία δεν ελέγχει απλά κάνει ένα συγκεκριμένο αριθμό επαναλήψεων με βήμα 2.<div>
<div>
<br /></div>
<div>
program while_and_if;</div>
<div>
<br /></div>
<div>
var</div>
<div>
x:integer;</div>
<div>
begin</div>
<div>
<br /></div>
<div>
readln(x);</div>
<div>
while x <> 0 do</div>
<div>
begin</div>
<div>
writeln(2*x);</div>
<div>
readln(x);</div>
<div>
end</div>
<div>
;</div>
<div>
writeln('Ευχαριστώ Πολύ');</div>
<div>
</div>
<div>
x :=2;</div>
<div>
while x <= 10 do</div>
<div>
begin</div>
<div>
writeln(2*x);</div>
<div>
x := x +2;</div>
<div>
end</div>
<div>
;</div>
<div>
<br /></div>
<div>
end.</div>
</div>
</div>
Μερεντίτης Νίκοςhttp://www.blogger.com/profile/00700183505881900365noreply@blogger.com0tag:blogger.com,1999:blog-1956897847228145336.post-77299151515317233602014-11-14T00:45:00.001-08:002014-11-14T00:45:19.302-08:00Άσκηση Νούμερο 3 WHILE,FOR και IF<div dir="ltr" style="text-align: left;" trbidi="on">
<b><span style="color: red;">Εκφώνηση</span></b><br />
Να γίνει πρόγραμμα σε pascal το οποίο:<br />
<br />
α) Να περιέχει τμήμα δηλώσεις μεταβλητών<br />
<br />
β) Να διαβάζει απο το πληκτρολόγιο έναν 4ψηφιο αριθμό\<br />
<br />
γ)Αν ο αριθμός δεν ειναι 4ψηφιος να εμφανίζει ένα ακατάλληλο μήνυμα και έπειτα να τερματίζει.<br />
<br />
δ)Σε διαφορετική περίπτωση το πρόγραμμα να υπολογίζει και να εμφανίζει τον παλινδρομικό(αντίθετο του) αριθμό<br />
<br />
ε)Όλα τα παραπάνω να επαναλαμβάνονται μέχρι να πατηθεί ο αριθμός 0<br />
<br />
στ)Το πρόγραμμα να προσθέτει τα ψηφία του αρχικού αριθμού και να βγάζει ένα κατάλληλο μήνυμα<br />
Πώς σπάω έναν αριθμό στα ψηφία του;<br />
<br />
Λύση<br />
<br />
<br />
program while_if_and_for_duskoli;<br />
var<br />
x,y1,y2,y3,y4,sum1,sum2,sum_total,sum,k,l,palindr:integer;<br />
begin<br />
writeln('Πάτησε εναν αριθμό!');<br />
readln(x);<br />
while x <> 0 do<br />
begin<br />
if (x >= 1000) and (x <=9999) then<br />
begin<br />
writeln('Ο αριθμός που πάτησες είναι τετραψήφιος');<br />
writeln('Τώρα σπάω τον αριθμό στα ψηφία του.');<br />
y1 := x div 1000;<br />
k := x mod 1000;<br />
y2 := k div 100;<br />
l := k mod 100;<br />
y3 := l div 10;<br />
y4 := l mod 10;<br />
palindr := y4*1000 + y3*100 + y2*10 + y1*1;<br />
writeln('Ο παλλινδρομικός σου αριθμός είναι: ',palindr);<br />
sum := y1 + y2 + y3 + y4;<br />
if sum > 26 then<br />
begin<br />
sum1 := sum div 10;<br />
sum2 := sum mod 10;<br />
sum_total := sum1 + sum2;<br />
writeln('Ψάξε βρες τώρα ποιός σε σκέφτετε. Πάντως βγήκε το νούμερο ',sum_total,' αλλά δεν είμαι εγω!!!!');<br />
end<br />
else<br />
begin<br />
sum_total := y1 + y2 + y3 + y4;<br />
writeln('Ψάξε βρες τώρα ποιός σε σκέφτετε. Πάντως βγήκε το νούμερο ',sum_total,' αλλά δεν είμαι εγω!!!!');<br />
end<br />
;<br />
end<br />
else<br />
begin<br />
writeln('Δυστυχώς ο αριθμός που πάτησες δεν είναι τετραψήφιος!');<br />
end<br />
;<br />
writeln('Πάτα κι άλλον αριθμό');<br />
readln(x);<br />
end<br />
;<br />
writeln('Ευχαριστώ. Γειά σας. Τα δέοντα.');<br />
end.</div>
Μερεντίτης Νίκοςhttp://www.blogger.com/profile/00700183505881900365noreply@blogger.com0tag:blogger.com,1999:blog-1956897847228145336.post-5543098302020770372014-11-10T03:42:00.000-08:002014-11-10T03:42:00.487-08:00<div dir="ltr" style="text-align: left;" trbidi="on">
<div class="MsoNormal">
Να γίνει πρόγραμμα το οποίο</div>
<div class="MsoNormal">
1. να διαβάζει
επαναληπτικά από το πληκτρολόγιο αριθμούς.</div>
<div class="MsoNormal">
2. Για κάθε αριθμό </div>
<div class="MsoNormal">
α. να εμφανίζει ποιός είναι (τον εαυτό του) και </div>
<div class="MsoNormal">
β. αν είναι άρτιος ή περιττός. </div>
<br />
<div class="MsoNormal">
3. Ο αλγόριθμος να τερματίζει όταν πατηθεί το μηδέν 3 φορές.</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
program deixnw_ti_while_sta_paidia_mou;</div>
<div class="MsoNormal">
var</div>
<div class="MsoNormal">
x,fores_pou_patisa_mhden:integer;</div>
<div class="MsoNormal">
begin</div>
<div class="MsoNormal">
fores_pou_patisa_mhden:= 0;</div>
<div class="MsoNormal">
writeln('Πάτα αριθμούς από το πληκτρολόγιο οκ;)');</div>
<div class="MsoNormal">
readln(x);</div>
<div class="MsoNormal">
while fores_pou_patisa_mhden < 3 do</div>
<div class="MsoNormal">
begin</div>
<div class="MsoNormal">
writeln('Ο αριθμός που πάτησες είναι: ',x);</div>
<div class="MsoNormal">
if x mod 2 = 0 then</div>
<div class="MsoNormal">
begin</div>
<div class="MsoNormal">
writeln('Ο αριθμός που πάτησες είναι άρτιος');</div>
<div class="MsoNormal">
end</div>
<div class="MsoNormal">
else</div>
<div class="MsoNormal">
begin</div>
<div class="MsoNormal">
writeln('Ο αριθμός που πάτησες είναι περιττός');</div>
<div class="MsoNormal">
end</div>
<div class="MsoNormal">
;</div>
<div class="MsoNormal">
if x = 0 then</div>
<div class="MsoNormal">
begin</div>
<div class="MsoNormal">
fores_pou_patisa_mhden := fores_pou_patisa_mhden + 1;</div>
<div class="MsoNormal">
end</div>
<div class="MsoNormal">
;</div>
<div class="MsoNormal">
writeln('Πάτα κι άλλον άμα γουστάρεις γκιζντάνι');</div>
<div class="MsoNormal">
readln(x);</div>
<div class="MsoNormal">
end</div>
<div class="MsoNormal">
;</div>
<div class="MsoNormal">
writeln('MPAI');</div>
<div class="MsoNormal">
end.</div>
</div>
Μερεντίτης Νίκοςhttp://www.blogger.com/profile/00700183505881900365noreply@blogger.com0tag:blogger.com,1999:blog-1956897847228145336.post-20110101645799564242014-11-07T03:41:00.005-08:002014-11-07T03:41:49.075-08:00Συνδυασμός των δομών FOR και IF στην ίδια άσκηση! <div dir="ltr" style="text-align: left;" trbidi="on">
<b>Να γίνει πρόγραμμα σε Pascal το οποίο να διαβάζει από το πληκτρολόγιο 10 ακέραιους αριθμούς και να υπολογίζει και να εμφανίζει:</b><br />
<b>α. Για κάθε έναν το μήνυμα "ΑΡΤΙΟΣ" αν ο αριθμός είναι άρτιος ή το μήνυμα "ΠΕΡΙΤΤΟΣ" αν ο αριθμός είναι περιττός.</b><br />
<b>β. Το πλήθος των άρτιων και το πλήθος των περιττών αριθμών που πατήθηκαν</b><br />
<b>γ. Το άθροισμα όλων ( ανεξαιρέτως ) των αριθμών.</b><br />
<br />
<u><b>Λύση</b></u> <br />
<br />
program For_and_if;<br />
<br />
var<br />
x,a,ca,cp: integer;<br />
sum:integer;<br />
<br />
begin<br />
write('ΘΑ ΠΑΤΗΣΩ 10 ΑΡΙΘΜΟΥΣ ΚΑΙ ΘΑ ΜΟΥ ΒΓΑΖΕΙ ΓΙΑ ΚΑΘΕ ΕΝΑΝ ');<br />
writeln('ΑΝ ΕΙΝΑΙ ΑΡΤΙΟΣ Ή ΠΕΡΙΤΤΟΣ');<br />
ca := 0; { όπου ca ο μετρητής των ΑΡΤΙΩΝ}<br />
cp := 0; { όπου cp ο μετρητής των ΠΕΡΙΤΤΩΝ}<br />
sum:= 0;<br />
for x:=1 to 10 do<br />
begin<br />
writeln('Σε παρακαλώ γκιζντάνι, να πατάς ακέραιες τιμές!!!');<br />
readln(a);<br />
sum := sum + a;<br />
if a mod 2 = 0 then<br />
begin<br />
writeln('ΑΡΤΙΟΣ');<br />
ca := ca + 1;<br />
end<br />
else<br />
begin<br />
writeln('ΠΕΡΙΤΤΟΣ');<br />
cp := cp + 1;<br />
end<br />
;<br />
end<br />
;<br />
writeln('Άρα φιλαράκο πάτησες ',ca, ' ΑΡΤΙΟΥΣ');<br />
writeln('και ',cp, ' ΠΕΡΙΤΤΟΥΣ');<br />
writeln('Το συνολικό άθροισμα των νούμερων είναι: ', sum);<br />
end.</div>
Μερεντίτης Νίκοςhttp://www.blogger.com/profile/00700183505881900365noreply@blogger.com0tag:blogger.com,1999:blog-1956897847228145336.post-86931074195114990672014-11-07T02:19:00.002-08:002014-11-07T02:20:35.902-08:00Όλοι μαζί και πάλι στο προαύλιο της σχολής!!!<div dir="ltr" style="text-align: left;" trbidi="on">
<div class="separator" style="clear: both; text-align: center;">
Και άλλες selfieeeee!!!!! από όλους μας.</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="http://2.bp.blogspot.com/-Ub0UZNA2g7A/VFycRlGbxOI/AAAAAAAAJU0/9v5rkInypRQ/s1600/IMG_20141107_120435.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://2.bp.blogspot.com/-Ub0UZNA2g7A/VFycRlGbxOI/AAAAAAAAJU0/9v5rkInypRQ/s1600/IMG_20141107_120435.jpg" height="180" width="320" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://4.bp.blogspot.com/-7WATV5DUaCE/VFycRNDThgI/AAAAAAAAJUs/B1bjmgTaCkE/s1600/IMG_20141107_120438.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://4.bp.blogspot.com/-7WATV5DUaCE/VFycRNDThgI/AAAAAAAAJUs/B1bjmgTaCkE/s1600/IMG_20141107_120438.jpg" height="180" width="320" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://1.bp.blogspot.com/-Zp1JjtUhNoo/VFycdDBPs1I/AAAAAAAAJVY/1a9ctfcBg8U/s1600/IMG_20141107_120457.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://1.bp.blogspot.com/-Zp1JjtUhNoo/VFycdDBPs1I/AAAAAAAAJVY/1a9ctfcBg8U/s1600/IMG_20141107_120457.jpg" height="180" width="320" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://2.bp.blogspot.com/-UEqOjUmJAuU/VFycQxidLOI/AAAAAAAAJUo/zXQohyywzVU/s1600/IMG_20141107_120444.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://2.bp.blogspot.com/-UEqOjUmJAuU/VFycQxidLOI/AAAAAAAAJUo/zXQohyywzVU/s1600/IMG_20141107_120444.jpg" height="180" width="320" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://3.bp.blogspot.com/-Jh3OMJIhP-g/VFycXhNgItI/AAAAAAAAJVI/aFvSWWIr_aU/s1600/IMG_20141107_120527.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://3.bp.blogspot.com/-Jh3OMJIhP-g/VFycXhNgItI/AAAAAAAAJVI/aFvSWWIr_aU/s1600/IMG_20141107_120527.jpg" height="180" width="320" /></a></div>
<br /></div>
Μερεντίτης Νίκοςhttp://www.blogger.com/profile/00700183505881900365noreply@blogger.com0tag:blogger.com,1999:blog-1956897847228145336.post-38155658217586997372014-11-07T01:58:00.002-08:002014-11-07T02:01:27.503-08:00Οι σπουδαστές του τμήματος μας σε selfie!!!!!!<div dir="ltr" style="text-align: left;" trbidi="on">
Ορισμένες Selfie από όλους μας.<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://4.bp.blogspot.com/-FBwwyYAIvxA/VFyXAWsO3gI/AAAAAAAAJPw/UIuAfiEJnJE/s1600/003.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://4.bp.blogspot.com/-FBwwyYAIvxA/VFyXAWsO3gI/AAAAAAAAJPw/UIuAfiEJnJE/s1600/003.jpg" height="240" width="320" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://1.bp.blogspot.com/-T6Shl1-Xjt4/VFyXIX10WHI/AAAAAAAAJQQ/6UzcIP6gJJs/s1600/004.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://1.bp.blogspot.com/-T6Shl1-Xjt4/VFyXIX10WHI/AAAAAAAAJQQ/6UzcIP6gJJs/s1600/004.jpg" height="240" width="320" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://2.bp.blogspot.com/-Alove-3uD64/VFyXImMulYI/AAAAAAAAJQM/s0sSXskfhXk/s1600/IMG_20141107_112151.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://2.bp.blogspot.com/-Alove-3uD64/VFyXImMulYI/AAAAAAAAJQM/s0sSXskfhXk/s1600/IMG_20141107_112151.jpg" height="180" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="http://4.bp.blogspot.com/-EBJtTqiRHfQ/VFyYP6g4IeI/AAAAAAAAJRI/4-eSKElvRP8/s1600/IMG_20141107_112128.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://4.bp.blogspot.com/-EBJtTqiRHfQ/VFyYP6g4IeI/AAAAAAAAJRI/4-eSKElvRP8/s1600/IMG_20141107_112128.jpg" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<br /></div>
Μερεντίτης Νίκοςhttp://www.blogger.com/profile/00700183505881900365noreply@blogger.com0tag:blogger.com,1999:blog-1956897847228145336.post-14386732222274361892014-11-07T01:57:00.001-08:002014-11-07T01:57:03.278-08:00Οι πρώτες μας Φωτογραφίες<div dir="ltr" style="text-align: left;" trbidi="on">
Από την πρώτη μας συνάντηση με όλους τους σπουδαστές και των άλλων ειδικοτήτων.<div>
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="http://2.bp.blogspot.com/-KimGuAXFNU8/VFyXKT3O2sI/AAAAAAAAJQs/Zm06fJnDsw0/s1600/pic4.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://2.bp.blogspot.com/-KimGuAXFNU8/VFyXKT3O2sI/AAAAAAAAJQs/Zm06fJnDsw0/s1600/pic4.jpg" height="213" width="320" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://4.bp.blogspot.com/-QqEObxfSePI/VFyXKGxzRuI/AAAAAAAAJQk/EYFYgQQZOcU/s1600/pic3.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://4.bp.blogspot.com/-QqEObxfSePI/VFyXKGxzRuI/AAAAAAAAJQk/EYFYgQQZOcU/s1600/pic3.jpg" height="213" width="320" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://3.bp.blogspot.com/-lZLPgZTNyqc/VFyXI0y741I/AAAAAAAAJQU/PaVtQiPdyMQ/s1600/pic2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://3.bp.blogspot.com/-lZLPgZTNyqc/VFyXI0y741I/AAAAAAAAJQU/PaVtQiPdyMQ/s1600/pic2.jpg" height="213" width="320" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://1.bp.blogspot.com/-Oh_wZhurSFw/VFyXISNEwWI/AAAAAAAAJQE/hZvQktuuSd0/s1600/pic1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://1.bp.blogspot.com/-Oh_wZhurSFw/VFyXISNEwWI/AAAAAAAAJQE/hZvQktuuSd0/s1600/pic1.jpg" height="213" width="320" /></a></div>
<div>
<br /><div>
<br /></div>
</div>
</div>
Μερεντίτης Νίκοςhttp://www.blogger.com/profile/00700183505881900365noreply@blogger.com0tag:blogger.com,1999:blog-1956897847228145336.post-36982304167272593882014-11-07T01:12:00.001-08:002014-11-07T01:12:24.841-08:00Καλή Αρχή<div dir="ltr" style="text-align: left;" trbidi="on">
Στις 20 - 10 - 2014 έγινε η έναρξη των μαθημάτων του τμήματος <b>"Τεχνικός Εφαρμογών Πληροφορικής ( Multimedia / Web Design / Γραφιστική)"</b>στο <b>ΙΕΚ ΔΗΜΗΤΡΑ</b>.<br />
<br />
Το τμήμα παρακολουθούν 10 σπουδαστές γεμάτοι με όρεξη και ενδιαφέρον για μάθηση.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://2.bp.blogspot.com/-bvF2LY3JMH8/VFyMfajoiNI/AAAAAAAAJN8/ryr9Cr2OEdc/s1600/logo.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://2.bp.blogspot.com/-bvF2LY3JMH8/VFyMfajoiNI/AAAAAAAAJN8/ryr9Cr2OEdc/s1600/logo.jpg" height="320" width="239" /></a></div>
<br />
Καλή μας αρχή!!!!!</div>
Μερεντίτης Νίκοςhttp://www.blogger.com/profile/00700183505881900365noreply@blogger.com0