Kullanıcıdan alınan sınav notunun 50'den büyük olması durumunda "Tebrikler Geçtiniz" mesajı verecek.50'den küçük olması durumunda bütünleme notunu isteyecek girilen bütünleme notunun 50'den küçük olması durumunda "Kaldınız" mesajı verecek 50'den büyük olması durumunda ise "Tebrikler Geçtiniz" mesajı verecek program.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int but=StrToInt(InputBox("Giriş Notu","Sınav Notunu Giriniz",""));
if(but>50)
Application->MessageBox("Tebrikler Geçtiniz","Durum",MB_ICONINFORMATION);
else
{
but=StrToInt(InputBox("Bütünleme Notunuz","Giriş Notu",""));
if(but>50)
Application->MessageBox("Tebrikler Geçtiniz","Durum",MB_ICONINFORMATION);
else
Application->MessageBox("Kaldınız","Durum",MB_ICONINFORMATION);
}
}
//---------------------------------------------------------------------------