- Klavyeden Vize ve Final Notları giriliyor. Vize Notunun % 40'ı, Final Notunun % 60'ı Geçme Notunu oluşturuyor. Final Notu veya Geçme Notu 60'dan küçük ise ekranda 'BÜTÜNLEMEYE KALDI'; diğer durumda 'GEÇTİ' mesajını görüntüleyen programı yazınız.
- Klavyeden sıcaklık bilgisi giriliyor. Sıcaklık 0 ile '20 arasında ise ekrana 'Mavi Alarm', 25 ' 30 arasında ise 'Sarı Alarm', sıcaklık 30'un üzerinde ise 'Kırmızı Alarm' mesajını görüntüleyen programı yapınız.
- 2 label ve 1 butonun yer aldığı bir formda butona tıklandığında label nenelerindeki değerlerin yerlerini değiştiren programı yazınız.
- Yukarıdaki gibi bir form üzerinde 3 Radiobutton, 2 Textbox ve 2 Label bulunacak. Bu Radiobutton seçeneleri Kare, dikdörtgen, daire olacak. Kullanıcı bunlardan hangisini seçerse o şeklin alanı text kutularına girilen kenar veya yarıçap değerlerine göre hesaplanıp msgbox ile ekranda görüntülenecektir.
Not-1: Karenin alanı ve dairenin alanı hesaplanırken 1 text kutusuna ihtiyaç duyulacağından 2.text kutusu gizlenmeli, dikdörtgenin alanı hesaplanırken 2 text kutusu da form üzerinde görünmelidir.
Not-2: Text kutusunun solundaki Label'de o anda girilen değerle ilgili mesaj olmalıdır.
Ör: Daire seçildiğinde Label'de "Yarıçapı giriniz" gibi bir değer olmalıdır. - 10 elemanlı bir diziye sayı girilecektir. Bu dizide 100 sayısının adetini bulan programı yazınız.
- Klavyeden 40 öğrencinin not bilgisi giriliyor. Bu notlardan sınıf ortalaması altındakilerin sayısını bulan programı yapınız.
bunların cevapları haniii
soru üretmek kolay önemli olan cevaplarııııı
aslında hiç bu kadarını bekliyordum bilisimogretmeni.com olduğu için hiç bu kadarını bekliyordum
Dim a, b As Integer
Dim c As Single
a = TextBox1.Text
b = TextBox2.Text
c = Math.Sqrt(a ^ 2 + b ^ 2)
MsgBox(“Hipotenus =” & c)
gerçekten çoq qüseLL oLmuş eLLeriNize sağLık yazılıda çıktı bunlar emeğe saygı…….
Dim a, b, c, d, f As Integer
a = TextBox1.Text
b = TextBox2.Text
c = a * 40 / 100
d = b * 60 / 100
f = c + d
If f < 60 Or d < 60 Then
MessageBox.Show(“Bütünlemeye Kaldı”, “Kaldı”, MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
MessageBox.Show(“Geçti”, “Geçti”, MessageBoxButtons.OK, MessageBoxIcon.None)
End If
sayi,kalan,i,j:integer;
Begin
Repeat
Clrscr;
write(‘Sayı Giriniz…:’);Readln(sayi);
for i:=1 to sayi do
begin
kalan:=(sayi mod i);
if kalan=0 then j:=j+1;
end;
if j=2 then writeln(‘Sayı Asaldır’);
if j2 then writeln(‘Sayı Asal Değildir.’);
readln;
clrscr;
j=0;
until keypressed=27;
end.
:D
sayi,kalan,i,j:integer;
Begin
Repeat
Clrscr;
write(‘Sayı Giriniz…:’);Readln(sayi);
for i:=1 to sayi do
begin
kalan:=(sayi mod i);
if kalan=0 then j:=j+1;
end;
if j=2 then writeln(‘Sayı Asaldır’);
if j2 then writeln(‘Sayı Asal Değildir.’);
readln;
clrscr;
j=0;
until keypressed=27;
end.
:D
:oops:
iki sayının asal sayısını bulan program?
hocam lütfen dğer sorularının cvp yazabilrmisniz ben ilk yazılımı burdaki koymuş oldğunuz sorulardan çalışmıştm ve onlara benzer çıkmıştı cvp lütfen verirmisnz bizde inceleyip anlasak
vize = TextBox1.Text
final = TextBox2.Text
vize = (vize * 100) / 40
final = (final * 100) / 60
If (final
vize = TextBox1.Text
final = TextBox2.Text
vize = (vize * 100) / 40
final = (final * 100) / 60
If (final
arkdaşlar
ben forma 2 label ve 2 textbox bir tanede buton ekleyerek yptım .farklı yönlerden de yapılabilir vize ve finali inputbox olrakta kullanıcadan isteyebilirsinz yada sonuç değişkenini ayrı bir texbox da yazdırabilrsiniz
vize = TextBox1.Text
final = TextBox2.Text
vize = (vize * 100) / 40
final = (final * 100) / 60
If (final
:oops: ALLAH RIZASI ıÇıN SORULANIN CEVAPLARINI ıSTıYORUM SORULARI YAZMIZMIşSININZ HOCADA SıZıN SıTENıZDEN ALDI BıZE VERDı ÇARşAMBAYA SINAV OLCAZ BU SORULARDAN CEVAPLARI BULAMIYORUZ BıZE ULAşTIRIRSANIZ SEVıNıRıM şıMDıDEN TEşEKKÜR EDERıM