| Sahiplik | Değer |
| İsim | Ödev 1: Soru 1: program Biliyomu; use |
| Açıklama | Ödev 1: Soru 1: program Biliyomu; uses wincrt; var bilgi1,bilgi2 : char ; durum : integer ; Begin durum := 1; While durum=1 do begin Write(Biliyor mu?[E/H]: ); Readln(Bilgi1); if Bilgi1=E then begin Write(Bildigini Biliyor mu? [E/H]: ); Readln(Bilgi2); if Bilgi2=E then Writeln(Onun peşinden gidin! ) else Writeln(Onu uyandirin!); end; if Bilgi1=H then Begin Write(Bilmedigini biliyor mu? [E/H]: ); Readln(Bilgi2); if bilgi2=E then Writeln(Ona Ogretin!) else Writeln(Ondan Kacinin!); end; Durum:=0; Writeln; end; End. Soru 2: program dizidizidiziler; uses wincrt; var d: Array [1..10,1..10] of integer ; i,j,n : integer; Begin for i:=1 to 5 do begin D[i,1]:=1; for j:=2 to i+1 do D[i,j]:=D[i-1,j-1]+D[i-1,j]; D[i,i+1]:=1; end; Writeln(D[1,1]:5); For i:=1 to 5 do begin For j:=1 to i+1 do Write(D[i,j]:5); Writeln; end; End. Soru 3: program regres; uses wincrt; type Tdizi1 = Array [1..100] of real; Tdizi2 = Array [1..10,1..10] of real; var a,b: real; i,n:integer ; Function dTopla (A:Tdizi1; n:integer):real; var i : integer ; top : real ; begin top:=0; for i:=1 to n do top:=top+A[i]; dTopla:=top; end; Function dOrtalama(A:Tdizi1; n:integer):real; var i:integer; begin dOrtalama:=dTopla(a,n)/n; end; Function dStdSapma(A:Tdizi1; n:integer):real; var i : integer ; ort,varyans : real ; begin ort:=... |
| Dosya Adı | Bağlantı odev1s73.doc |
| Dosya Boyutu | Link |
| Dosya Tipi | doc (Mime Tipi: link) |
| Ekleyen | admin |
| Ekleme tarihi: | 07.10.2008 16:13 |
| İnceleyenler | Herkes |
| Kontrol Eden | Editor |
| İndirme sayısı | 8 İndirme sayısı |
| En son güncelleme | 07.10.2008 16:14 |
| Anasayfa | http://www.edubilim.com |
Ana Menü
| Anasayfa |
| Haberler |
| Arama |
| İlanlar |
| Eğitim Siteleri |
Edubilim
| Forum |
| Resim Galerisi |
| Video Galerisi |
| Program Arşivi |
| Döküman Arşivi |
| Bilim Adamları |
| Kolay Ulaşım |
Üniversiteler
| Türkiye Üniversiteleri |
| Yabancı Üniversiteler |
Popüler Döküman
Öğretim Yöntem ve Teknikleri (1023)(Eğitim)
WISC-R RAPORU (981)(Psikoloji)
DOĞAL AFETLER ÇEVREMİZİ NASIL DEĞİŞTİRİR? (554)(Eğitim)
OTEL REZERVASYONU OTOMASYON PROGRAMI (536)(Otelcilik)
İstanbulun Fethi (443)(Sunular)
Eğitim Siteleri
- Edebiyat- Türkçe -Şiir (12)
- Okul Öncesi (7)
- Sınavlar (10)
- Rehberlik Siteleri (11)
- Üniversite Siteleri (77)
- Eğitim Haberleri (12)
- Sözlük - Çeviri Siteleri (6)
- Ders Yardımcıları (5)
- Eğitim Forumları (9)
- Genel Eğitim Siteleri (13)