Black Ice 2. soruyu şöyle bi şey çözer sanırırım Program asalsayi; var sayi, i, bolensayisi, d:integer; bolum:real; begin bolensayisi:=0 ; writeln ; readln ; writeln ; for i:=1 to sayi do begin bolum:=sayi/i; if bolum=round then begin writeln ; bolensayisi:=bolensayisi+1; end; end; if bolensayisi>2 then writeln else writeln ; readln; end. vakit bulursam diğerlerinede bakarım ama 3 ve 4 böyle kısa olmaz birde 1. soruyu tam anlamadım 0-50 arasında üç sayının karesi cinsinden ifade edilen sayılarımı arıyoruz... Madem salıya yetişecek ve 25-30 kişi varsınız bence soruları paylaşın acil bi durum varsa -

Arkadaşım bu forumda geyik bölümüde var. lütfen bu tür esprileri şakaları dalgaları orada yapalım. burası yeri değil. bunu hatırlatmak için mesaj silinmemiş onun yerine editlenmiştir. -

işte yaptığım soruların cevapları : 1)uses crt; var i, j, t, k, d:integer; a, b, c:array of integer; begin clrscr; for i:=1 to 50 do begin a:=i; b:=i; c:=i; end; for t:=1 to 50 do for j:=1 to 50 do begin d:= sqr + sqr ; for k:=1 to 50 do begin if d=sqr then writeln ; end; end; readln; end.

3) uses crt; var g, j, f, h, i, c, d, e, m, n:integer; t:string; a:array of string; b:array of integer; l:array of integer; begin clrscr; for f:=1 to 18 do begin writeln ; readln ; end; for i:=1 to 34 do begin for c:=1 to 18 do begin writeln ; readln ; b := b +d; writeln ; readln ; l := l +m; end; writeln ; writeln ; for g:=1 to 18 do begin for j:=g+1 to 18 do begin if b < b then begin h:=b ; b :=b ; b :=h; n:=l ; l :=l ; l :=n; t:=a ; a :=a ; a :=t; end; end; writeln ; end; writeln ; end; writeln('d nem sonu ampiyon tak m', a ,'... averaj ...', l ); readln; end.

ok güzel de hepsini tek bir başlık altında yazsan iyi olurdu. neyse bu seferlik olsun bakalım böyle. soruları yaptığına sevindim bu arada. umarım geçersin dersinden

delphi çözüm merkezinden sonra birde ödev yapım merkezi açsak daha iyi olacak sanırım. arkadaşım bende bir eğitimci olduğum için söylüyorum bunları yanlış anlama hoca size o ödevleri veriyorsa elbetteki birşeyler öğrenmenizi istediği için veriyor. biraz çabalamanız çabaladıktan sonra birşeyler yapmanız ve o yaptığınız birşeylerin içinden takıldığınız yerleri sormanız bence daha mantıklı. sakın alınma üzülme ama armut piş ağzıma düşü çok seviyoruz. delphi esasında object pascal dır. tabiki bizde pascal la başladık ama bayağı zaman oldu açıkçası. genede zamanım olursa bu sorulardan birkaç tanesini yapıp buraya atacağım. iyi çalışmalar diliyorum. iyşallah bu dersten geçersin. saygılar.

arkadaşlar yardımlarınız için çok teşekkür ederim. ben hepsini tek başıma olmasa bile yardım alarak yaptım...

2) uses crt; var f, sonuc, b, a, c:longint; tus:char; begin clrscr; repeat sonuc:=1; writeln ; readln ; for b:=2 to (a-1) do begin c:=a mod b; if c=0 then begin sonuc:=0; break; end; end; if sonuc=0 then begin writeln ; for f:=2 to (a-1)do if = Trunc then writeln ; end; if sonuc >0 then writeln ; tus:=readkey; until tus=

Bencede önce bi uğraş takıldığın yer olursa sor. Öyle yazın verin ödevi demek hoş olmuyo

Al benden de 1. Soru procedure TForm1. Button1Click ; var a, b:integer; h:integer; begin for h:=1 to 50 do begin for a:=1 to 50 do begin for b:=1 to 50 do begin if sqr =sqr +sqr then showmessage(floattostr +' '+inttostr +' '+inttostr ; end; end; end; end; Arkadaşım gördüğün gibi bu delphide yazılmış. pascalım yok kurallarıda malum kaç sene oldu unuttuk. ama delphide object pascaldır birkaç editlemeyle pascal haline çevirirsin. kolay

Arkadaşlar dün hoca turbo pascal dersinde ortalaması düşük olanlar için finale ek olarak 35 puanlık en kalaylısından 4 tane soru verdi.07.06.2005 tarihi saat 16:30 kadar acele yetiştirmem gerek. Eğer aranızda pascal programlama dilinden anlayan varsa aşağıda verdiğim programların kodlarını yazarsa en az 25-30 kişinin hayır duasını alacak İşte sorular: 1)0 ile 50 arasındaki a2+b2+c2 eşitliğini sağlayan sayıları bulan programın kodları 2)Klavyeden girilen herhangi bir sayının asal sayı olup olmadığını ve girilen sayı asal değilse hangi sayılara bölündüğünü ekrana yazan program. 3)18 takımlı bir ligde galibiyet (3 puan) beraberlik (1 puan) mağlubiyet ve averaj bilgilerinin girişi ardından ligdeki şampiyon takımı bulan ve ligdeki puan durumunu (18 takımın tüm bilgileriyle büyükten küçüğe ) listeleyen program kodlarını yazınız. 4)Klavyeden girilen herhangi bir mesajı aşağıdaki şekildeki gibi ekrana yazan programın kodları B B UU UU R R R R S S S S A A A S S S S R R R R UU UU B B ÖNEMLİ NOT:Hoca her satır açıklanacak Yardımlarınızı bekliyorum

aga pascal dan hiç çakmıyorum uğraşmasına uğraşırım ama bu iki günde bitecek bi iş değil hoca salı gününe kadar istedi. o gün verdim verdim. veremedim seneye bi ders için yine üniversiteye gidecem. hadi basic delphi felan olsa neyse ama pascal benim karnımı doyurmayacak bi şey