Giriş Yap / Kayıt Ol

WM Aracı'na üyelikler tekrar açıldı! Kayıt olmak için TIKLAYIN!

Cevap Yaz Favorilerime Ekle
Seçenekler Stil
Geri Git   Forum > > Yazılım

Delphi Ödev Yaptırılacak (Ücretli)

  #1  
Okunmamış 15 Nisan 2021, 21:20
Avatar Seçilmemiş
WM Aracı
 
Üyelik Tarihi: 13 Ekim 2013
Cinsiyet: Erkek
Meslek: yok
Konum: Adana
Ad, Soyad: Ka... Ka...
Mesajlar: 88
Beğeniler: 16 / 21
Ticaret: 4, 100%
Merhabalar delphi ile daha önce hiç çalışmadım bir ödev yapmam gerekiyor.
Tam bölenleri bulma, asal sayıları bulma, tek çift sayıları bulma tarzında 6 soru bulunuyor.
Yardımcı olabilecek varsa pm üzerinden iletişime geçerse ücret konusunda görüşebiliriz.
  #2  
Okunmamış 15 Nisan 2021, 23:20
emreyvz Adlı Üyenin Avatarı
.NET Core & Angular & PHP
 
Üyelik Tarihi: 19 Nisan 2016
Cinsiyet: Erkek
Meslek: Öğrenci
Ad, Soyad: Em... Ya...
Mesajlar: 702
Beğeniler: 186 / 104
Ticaret: 23, 100%
PM gönderildi.
  #3  
Okunmamış 17 Nisan 2021, 16:32
Avatar Seçilmemiş
WM Aracı
 
Üyelik Tarihi: 23 Ocak 2016
Yaş / Cinsiyet: 42 / Erkek
Ad, Soyad: Me... Em...
Mesajlar: 1.247
Beğeniler: 335 / 8
Ticaret: 0, 0%
tam bölenleri bulma ;

var
sayi,k,adet:integer;
begin
adet:=0;
sayi:=strtoınt(edit1.text);
memo1.clear;
for k:=1 to sayi do
begin
if sayi mod k=0 then
begin
adet:= adet+1;
memo1.lines.add(ınttostr(k));
end;
end;
memo1.lines.add(ınttostr(k));
end;
end;


-------------------------------------------------------
Asal sayı bulma ;

unit Unit1;
interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
baslangic,bitis,carpan,i,j:integer;
begin
//listbox temizleniyor.
listbox1.clear;
//İstenilen aralık alınıyor..
baslangic:=strtoinT(edit1.text);
bitis:=strtoint(edit2.text);
//Aralıktaki her sayının asal sayı olup olmadığını kontrol etmek için döngü kuruluyor.
For i:=baslangic To bitis Do Begin
//Asıl kısım..Buradan sonra bir sayının asal olup olmadığı kontrol edilir.
//Bir sonraki sayının kontrolü için carpan değişkeni sıfırlanıyor.
carpan:=0;
For j:=1 To i Do
//Sayı 1’den kendisine kadar olan sayılara bölünür.Kalan 0 ise tam bölünmüş demektir.

//Tam bölünüyorsa carpan degiskeninin değeri 1 arttırılıyor.
If (i mod j=0) Then
carpan:=carpan+1;
//Sayı 1 ve kendisine yani 2 adet sayıya tam olarak bölünürse asaldır..Sayının asal olup olmadığı kontrol ediliyor.
If carpan=2 Then
listbox1.Items.add(inttostr(i)); //sayı asal ise listbox’a ekleniyor..
end;
end;

end.
-------------------------------------------------------------------

çift tek sayı bulma
var
sonuc,sayi:integer;
begin

sonuc:= sayi mod 2;
if sonuc = 0 then
showmessage ('çift')
else
showmessage ('tek');
end;
Cevap Yaz Favorilerime Ekle

1113x90

Bu Alana Reklam Ver



Konuyu toplam 1 kişi okuyor. (0 üye ve 1 Ziyaretçi)
 
Seçenekler
Stil
Normal Normal

Geri Git   Forum > Yazılım


Yetkileriniz
Konu açma yetkiniz: Yok
Cevap Yazma Yetkiniz Yok
Eklenti yükleme yetkiniz: Yok
Mesajınızı değiştirme yetkiniz: Yok

BB code: Açık
İfadeler: Açık
[IMG] Kodları: Açık
HTML kodu: Kapalı





Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şu anki Zaman: 00:49.