.: ONLINE BİLGİ :.

Pascal Program Örnekleri - Basamaklar

Soru: 3 HANELİ BİR TAM SAYININ BİRLER, ONLAR VE YÜZLER BASAMAĞINI BULUP EKRANA YAZDIRAN PASCAL PROGRAMI ?

Soru: 3 HANELİ BİR TAM SAYININ BİRLER, ONLAR VE YÜZLER BASAMAĞINI BULUP EKRANA YAZDIRAN PASCAL PROGRAMI ?
--------------------------
Cevap:

uses crt;
var
a:real;
begin
clrscr;
write('3 haneli bir sayi gir:');
readln(a);
writeln('');
writeln('Yuzler basamagi',(a/100)*100:10:2);
writeln('Onlar basamagi',(a/100)*10:10:2);
writeln('Birler basamagi',(a/100)*1:10:2);
writeln('');
writeln('BY HASAN');
readkey;
end.
-----------------

" Resimde bu programın Ekran çıktısı bulunmaktadır "

Okuyucu Yorumları

Toplam 5 Yorum

bu program olmamış hacı ama, basamaklarına bu şekilde ayıramazsın..

bu program girilen sayıyı basamaklarına ayırmamış, baştaki sayıyı tüm basamaklara yazdırmıştır,
3 basamaklı bir sayının basamak değerlerini şu şekilde yazabilirsiniz.

var
yuz,on,bir:integer
begin
write('3 basamaklı bir tam sayi giriniz: ');reandln(a);
yuz:=trunc(a/100);
on:=trunc(a/10)-yuz*10;
bir:=a-trunc(a/10)*10;
writeln;
writeln('Yuzler Basamagi : ',yuz);
writeln('Onlar Basamagi : ',on);
writeln('Birler Basamagi : ',bir);
readln;
end.

ne yani şimdi hangisi doğru

klavyeden girilen 5 adet sayı diziye aktarıp bunların toplamını ve sayının kare kökunun ekrana yazdıra program kodunu yazdır

bu sayıyı klavyeden girip bunu basamaklarına ayıran programı arıyorum yapmaya çalıştım olmuyo bana yardımcı olursanız çok sevinirim

Sen de yorum yaz

Takip Edin