Pascal

[hasban]

merhaba arkadaşlar benim bir pascal ödevim var. bana bu ödev hakkında yardımcı olabilecek bir arkadaş varmı acaba şimdiden teşekkürler. ödev konusu şu...

Bir şirketin müşteri sayısını kullanıcıya sorduktan sonra sırayla bu müşterilerin isimlerini, yaptıkları alış veriş miktarını klavyeden bilgisayara girdikten sonra alış veriş miktarı üzerine %18 kdv ekleyerek alış veriş miktarı 100 TL ve üzeri ise ekrana ?Kargolu? aksi taktirde ?Kargosuz? yazdıran ve toplam alış veriş miktarını hesaplayan bir program yazınız?

Örnek Ekran Çıktısı:

Toplam Müşteri Sayısı : 4

1. Müşterinin adı soyadı: Ali Gel

1. Alış veriş miktarı : 50

İsim : Ali Gel Miktar : 59 Kargo Durumu : Kargosuz

2. Müşterinin adı soyadı: Veli Git

2. Alış veriş miktarı: 100

İsim : Veli Git Miktar: 118 Kargo Durumu : Kargolu

3. Müşterinin adı soyadı: Can Dan

3. Alış veriş miktarı: 0

İsim : Can Dan Miktar: 0 Kargo Durumu : Kargosuz

Toplam Alış Veriş Miktarı : 117

[karapenam]

son 1 saat kaldı ödev vermeye bende yapmadım daha..

[SecondLife]

Veri Tabanı Olarak Ne Kullanılacak ?

[hayal@_kny]

Veri Tabanı Olarak Ne Kullanılacak ?

What did you say :D

veritabanımı :D:D

[hayal@_kny]

öncelikle ilk alınan sayıyı for döngüsünde kullanacaksın ve döngünün içinde:

ad

miktar

soracaksın

miktar deişkenine %18 işlemi yaptır

miktaryuzdeli=miktar*100\18; gibi birşey

ve

burada bir if kullan if değişken>=100 then kargolu else kargosuz;

bunu da yaptırdıktan sonra

for u bitirmeden hemen önce değişkenleri ekrana yazdır

ardından foru bitir.

[SecondLife]

Evet Veri Tabanı Ne Oldu ?

[hayal@_kny]

Evet Veri Tabanı Ne Oldu ?

Pascal Programlama Dilinde Veri tabanı kullanılmaz en fazla verilerini bir not defterine bir dat dosyasını vs vs vs kaydedebilirsin. sen hangi veritabanı deyince çok komiime gitti kişisel algılama

[SecondLife]

Pascal da kullanılabilecek bir çok veri tabanı var (Tabiki Günümüz Teknolojisinden ve databse lerinden bahsetmiyorum ).

İllaki programa ait bir veri tabanı oluştumuştur..

[hayal@_kny]

işte onu diyorum pascal ın yok bu arada ödev sahibi arkadaş açıklamadan programı yapabildinmi ?

[SecondLife]

Bende Onu Soruyorum Programa veri tabanımı yazılacak yoksa hazırda kullandı bir şeymi var

(Bir şirketin müşteri sayısını kullanıcıya sorduktan sonra) Elinde Bir Şeymi var Yoksa Sıfırdan birşeymi istiyor.

elinde şirket kayıtlarını tutan bir veri tabanı varmı ? onlar hakkında bilgi istemiştim

[hasban]

Bende Onu Soruyorum Programa veri tabanımı yazılacak yoksa hazırda kullandı bir şeymi var

(Bir şirketin müşteri sayısını kullanıcıya sorduktan sonra) Elinde Bir Şeymi var Yoksa Sıfırdan birşeymi istiyor.

elinde şirket kayıtlarını tutan bir veri tabanı varmı ? onlar hakkında bilgi istemiştim

arkadaşlar bir veri tabanı yok sadece pascal siyah ekranında müşteri sayısı istenecek daha sonra yaptığı alışveriş miktarı. bunlar girildikten sonra 1.müşteri:adı soyadı, alış veriş miktarı:... yani ilk başta kaç tane müşteri sayısı girildiyse hepsine ait bilgiler girilecek ve alış veriş miktarı 100 ve üzeri ise kargo durumu:kargolu değilse kargosuz diyecek şimdiden teşekkürler...

[hasban]

öncelikle ilk alınan sayıyı for döngüsünde kullanacaksın ve döngünün içinde:

ad

miktar

soracaksın

miktar deişkenine %18 işlemi yaptır

miktaryuzdeli=miktar*100\18; gibi birşey

ve

burada bir if kullan if değişken>=100 then kargolu else kargosuz;

bunu da yaptırdıktan sonra

for u bitirmeden hemen önce değişkenleri ekrana yazdır

ardından foru bitir.

sevgili arkadaşım ben yeni başladığım için kodları bilmiyorum birde uzaktan eğitim görüyorum bilgisayar ortamında gösteriyorlar ama birşey anlamadım.. mümkünse kodları yazıp yollayabilirmisin?

[hayal@_kny]

uses crt;

var

i,sayi:integer;

deger,miktar,kargo: Array[1..100] of integer; \\ bu kısımda ben 100 le sınırladım bunu isteğine göre ayarlarsın...

begin

clrscr;

writeln('Müşteri sayınızı Giriniz..:'); Readln(sayi);

for i:=0 to sayi do

Begin

writeln('müşteri adi..:'); ReadLn(deger);

writeln('miktar..:'); Readln(miktar);

if miktar>=100 then kargo:=('kargo durumu:kargolu') else kargo:=('kargo durumu : Kargosuz');

End;

for i:=0 to sayi do

Begin

writeln(deger);

WriteLn(miktar);

writeln(kargo);

end;

ReadLn();

end.

İlk defa hızlı cevap bölümünde program yazıyorum:) word de not defterinde falan çok yazdım ama bu baya bi farklı oldu umarım yardımı olur ve programdan anlaşıldığı üzre veri tabanı sorunuda çözülür umarım saygılarla...

[hasban]

uses crt;

var

i,sayi:integer;

deger,miktar,kargo: Array[1..100] of integer; \\ bu kısımda ben 100 le sınırladım bunu isteğine göre ayarlarsın...

begin

clrscr;

writeln('Müşteri sayınızı Giriniz..:'); Readln(sayi);

for i:=0 to sayi do

Begin

writeln('müşteri adi..:'); ReadLn(deger);

writeln('miktar..:'); Readln(miktar);

if miktar>=100 then kargo:=('kargo durumu:kargolu') else kargo:=('kargo durumu : Kargosuz');

End;

for i:=0 to sayi do

Begin

writeln(deger);

WriteLn(miktar);

writeln(kargo);

end;

ReadLn();

end.

İlk defa hızlı cevap bölümünde program yazıyorum:) word de not defterinde falan çok yazdım ama bu baya bi farklı oldu umarım yardımı olur ve programdan anlaşıldığı üzre veri tabanı sorunuda çözülür umarım saygılarla...

öncelikle teşekkürlerimi sunuyorum arkadaşım sağolasın. ama burada else de bir tip hatası veriyor acaba nedeni ne olabilir.

[hayal@_kny]

vallaa programı pascal da denemedim ama internetten if then else kullanımı diye bakarsan çözümü bulursun yada hata kodunu arattır google amcada o yardımcı olur asıl ben teşekkür ederim yardımcı olabildiysem başarılar...