Pascal'da ufak bir sorun

05.11.2012 22:29

isolmaz Will Be a Grafic Designer Kullanıcı

Üyelik 10.08.2012
Yaş/Cinsiyet 30 / E
Meslek isolmaz.om
Konum İstanbul Anadolu

Ad Soyad I** S**
Mesajlar 121
Beğeniler 70 / 23
Ticaret 1, (%100)

Arkadaşlar merhabalar pascalı yeni yeni öğreniyorum.Bir sorunum var.Vücut kitle endeksini hesaplamaya çalışıyorum fakat sorun çıkıyor,(Boyu 1.80 şeklinde yazamıyorum 180 şeklinde oluyor ve hangi değişken türünü yazacağım bilemedim, real yazınca küsürat fazla oluyor) vücut kitle endeksinin formülü aşağıdadır.Yardımlarınızı bekliyorum.

Vücut Kitle Endeksi nasıl hesaplanır?
Vücut kitle endeksi, vücut ağırlığınızın boy uzunluğunuzun karesine bölünmesi ile elde edilir.

Yazdığım Kod.

uses crt;
var
boy,kilo:word;
indeks:real;
begin
clrscr;
writeln('Boy ve kilonuzu girin...');
readln(boy,kilo);
indeks:=boy*sqr(kilo);
writeln('Kitle Endeksiniz : ',indeks);
readln;
end.

Sorun Çözüldü.Vücut Kitle Endeksi hazırlama Programı Pascal ile aşağıdaki kodlarla yapılabilir.

Başka Forumdan @alper307 adlı arkadaş çok yardımcı oldu sağolsun.
[QUOTE]program indekshesaplama;
uses crt;
var indeks,boy,kilo:real;
begin
clrscr;
writeln('boy ve kilo giriniz');
readln(boy,kilo); indeks :=kilo/(boy*boy);
writeln('kitle indeksiniz :',indeks:2:1);
readln;
end.

[/QUOTE]

06.11.2012 00:01

#2

Zent WM Aracı Kullanıcı

Üyelik 07.07.2011
Yaş/Cinsiyet 36 / E
Meslek Blog Yazarı ve Web Geliştirici
Konum İstanbul Avrupa

Ad Soyad Z** Z**
Mesajlar 267
Beğeniler 31 / 46
Ticaret 3, (%100)

Virgülden sonrasını atmak istiyorsan Trunc fonskiyonu var ancak bilgilerim eski olduğu için verdiğin örnekte uygulayamadım.

begin
  Writeln (Trunc(123.456));  { Çıktı 123  }
  Writeln (Trunc(-123.456)); { Çıktı -123 }
  Writeln (Trunc(12.3456));  { Çıktı 12   }
  Writeln (Trunc(-12.3456)); { Çıktı -12  }
  readln;
end.

www.zaferzent.com - blogger

06.11.2012 02:28

#3

fatihcan www.ktubotekulubu.com Kullanıcı

Üyelik 28.08.2012
Yaş/Cinsiyet 32 / E
Meslek Öğrenci
Konum Trabzon

Ad Soyad ** **
Mesajlar 478
Beğeniler 212 / 75
Ticaret 2, (%100)

isolmaz adlı üyeden alıntı

Arkadaşlar merhabalar pascalı yeni yeni öğreniyorum.Bir sorunum var.Vücut kitle endeksini hesaplamaya çalışıyorum fakat sorun çıkıyor,(Boyu 1.80 şeklinde yazamıyorum 180 şeklinde oluyor ve hangi değişken türünü yazacağım bilemedim, real yazınca küsürat fazla oluyor) vücut kitle endeksinin formülü aşağıdadır.Yardımlarınızı bekliyorum.

Vücut Kitle Endeksi nasıl hesaplanır?
Vücut kitle endeksi, vücut ağırlığınızın boy uzunluğunuzun karesine bölünmesi ile elde edilir.

Yazdığım Kod.

uses crt;

var

boy,kilo:word;

indeks:real;

begin

clrscr;

writeln('Boy ve kilonuzu girin...');

readln(boy,kilo);

indeks:=boy*sqr(kilo);

writeln('Kitle Endeksiniz : ',indeks);

readln;

end.

Böyle deneme

uses crt;

var

boy,kilo:word;

indeks:real;

begin

clrscr;

writeln('Boy ve kilonuzu girin...');

readln(boy,kilo);

indeks:=boy*sqr(kilo);

writeln('Kitle Endeksiniz : ',Trunc(indeks));

readln;

end.

SAdece başına Trunc yazdım öylede olabilir yada başına round da yazabilirsin

06.11.2012 22:08

#4

isolmaz Will Be a Grafic Designer Kullanıcı

Üyelik 10.08.2012
Yaş/Cinsiyet 30 / E
Meslek isolmaz.om
Konum İstanbul Anadolu

Ad Soyad I** S**
Mesajlar 121
Beğeniler 70 / 23
Ticaret 1, (%100)

Sağolun arkadaşlar sorunu çözdüm,

Sorun Çözüldü.Vücut Kitle Endeksi hazırlama Programı Pascal ile aşağıdaki kodlarla yapılabilir.

Başka Forumdan @alper307 adlı arkadaş çok yardımcı oldu sağolsun.
[QUOTE]program indekshesaplama;
uses crt;
var indeks,boy,kilo:real;
begin
clrscr;
writeln('boy ve kilo giriniz');
readln(boy,kilo); indeks :=kilo/(boy*boy);
writeln('kitle indeksiniz :',indeks:2:1);
readln;
end.

[/QUOTE]

Pascal'da ufak bir sorun

Üye Girişi Yap