Bu kodu daha iyi şekilde yazmanın yolu?

#include <iostream>
#include <string>
 using namespace std;
 
 const int num_stu=10;
 const int num_grade=5;
 
 struct student {
		string name;
		int grade[num_grade]; 
		double sum;		 
}s[num_stu];

void students(student s[])
{
s[0].name="Mehmet";
s[1].name="Mustafa"; 
s[2].name="Hakan";
s[3].name="Ayşe";
s[4].name="Ali";
s[5].name="Ahmet";
s[6].name="Harun";
s[7].name="Özge";
s[8].name="Haluk";
s[9].name="Salih";

//s0.grade[num_grade]={96,45,90,70,85}; // how do write this way ?
  s[0].grade[0] = 96;
  s[1].grade[0] = 76;
  s[2].grade[0] = 54;
  s[3].grade[0] = 85;
  s[4].grade[0] = 100;
  s[5].grade[0] = 96;
  s[6].grade[0] = 45;
  s[7].grade[0] = 85;
  s[8].grade[0] = 65;
  s[9].grade[0] = 85;
  
  s[0].grade[1] = 45;
  s[1].grade[1] = 85;
  s[2].grade[1] = 70;
  s[3].grade[1] = 90;
  s[4].grade[1] = 100;
  s[5].grade[1] = 76;
  s[6].grade[1] = 86;
  s[7].grade[1] = 70;
  s[8].grade[1] = 54;
  s[9].grade[1] = 90;
  
  s[0].grade[2] = 90;
  s[1].grade[2] = 96;
  s[2].grade[2] = 70;
  s[3].grade[2] = 90;
  s[4].grade[2] = 100;
  s[5].grade[2] = 54;
  s[6].grade[2] = 70;
  s[7].grade[2] = 90;
  s[8].grade[2] = 75;
  s[9].grade[2] = 90;
  
  s[0].grade[3] = 70;
  s[1].grade[3] = 80;
  s[2].grade[3] = 90;
  s[3].grade[3] = 95;
  s[4].grade[3] = 100;
  s[5].grade[3] = 40;
  s[6].grade[3] = 95;
  s[7].grade[3] = 80;
  s[8].grade[3] = 54;
  s[9].grade[3] = 95;
  
  s[0].grade[4] = 85;
  s[1].grade[4] = 65;
  s[2].grade[4] = 65;
  s[3].grade[4] = 100;
  s[4].grade[4] = 95;
  s[5].grade[4] = 100;
  s[6].grade[4] = 75;
  s[7].grade[4] = 85;
  s[8].grade[4] = 70;
  s[9].grade[4] = 100;

}
void get_grd(student stu);
void list_name(student stu[]);
void secim();
double stu_average(student stu);
void total_average();
void question();
int main () 
{
	students(s);
	question();
	return 0;
}
	

void get_grd (student stu)
{	
	cout<<"Öğrenci "<<  "ismi: " <<stu.name<<endl;
	cout<<"Sınavlar: ";
	for (int i=0; i<num_grade; ++i)
	{
	cout<<i+1<<":"<<*(stu.grade+i)<<" ";
		if(stu.grade[i] ==100)
		{cout<<"grade=A++ ";}	
		if (stu.grade[i] >=90 && stu.grade[i]<100)
		{cout<<"grade=A ";}
		if (stu.grade[i] >=80 && stu.grade[i] < 90)
		{cout<<"grade=B ";}
		if (stu.grade[i] >=70 && stu.grade[i] < 80)
		{cout<<"grade=C ";}
		if (stu.grade[i] >=60 && stu.grade[i] < 70)
		{cout<<"grade=D ";}
		if (stu.grade[i] <60)
		{cout<<"grade=F ";}
	}
	cout<<endl;
}

void list_name (student stu[])
{
	cout<<"Sınıfın Öğrencileri:"<<endl;
	for (int i=0; i<num_stu; ++i)
	{
	cout<<i+1<<":"<<stu[i].name<<" ";
	}
	cout<<endl;
}
void secim(){
	int t;
	double average;
	list_name(s);
	cout<<endl<<"İstenilen öğrencinin notlarını görmek için sıra numarasını giriniz: ";
	cin>>t;
	if (t>num_stu || t==0 )
	{
		while (t>num_stu || t==0) // What to do if the while loop give error when the letters are pressed? while döngüsünün harflere basıldığında hata vermemesi için ne yapmalı? 
		{
			cout<<"Sıra numarasını yanlış girdiniz. Tekrar Deneyiniz: ";
			cin>>t;
		}
		
	}
	if (t<=num_stu)
	{
		get_grd(*(s+t-1));
		average=stu_average(*(s+t-1));
		cout<<"Aldığı ortalama:"<<average<<endl;
	}

}

double stu_average(student stu)
{	
	double average;
	stu.sum=0;
	for (int i=0; i<num_grade; ++i)
	{
		stu.sum+=stu.grade[i];
	}
	average=stu.sum/5;
	return average;
}
void total_average()
{
	double totalAverage=0,classAverage=0;
	for (int i=0; i<num_stu; ++i)
	{
	totalAverage+=stu_average(*(s+i));
	}
	cout<<"totalAverage:"<<totalAverage<<"\t";
	classAverage=totalAverage/10;
	cout<<"Sınıf ortalaması:"<<classAverage<<endl;
	
}



void question()
{	
		char t;
	cout<<"Listeden istediğiniz işlemi seçiniz:"<<endl;
	cout<<"1. Öğrenci notlarını göster."<<endl;
	cout<<"2. Sınıf Ortalamasını göster."<<endl;
	cout<<"Seçiminiz: ";
	cin>>t;
		if(t =='1')
		{
			secim();
		}
	    if(t =='2')
		{
			total_average();
		}
}

//s0.grade[num_grade]={96,45,90,70,85}; // how do write this way ?
	if (t>num_stu || t==0 )
	{
		while (t>num_stu || t==0) // What to do if the while loop give error when the letters are pressed? 
                                          // While döngüsünün harflere basıldığında hata vermemesi için ne yapmalı? char olmaz çünkü int değeri olması gerekiyor variable t.
		{
			cout<<"Sıra numarasını yanlış girdiniz. Tekrar Deneyiniz: ";
			cin>>t;
		}
		
	}

get_grd (student stu)
{	
	cout<<"Öğrenci "<<buraya index of array element yazılacak<<  "ismi: " <<stu.name<<endl;

#include <iostream>

using namespace std;

 int main()
{
	int input;
	cout << "Enter an int:  ";
	cin >> input;
	if (cin.fail())
		cout << "Not an int
";
	else
		cout <<"Yes an int
";
	return 0;
}
 

#include <iostream>
#include <regex>
#include <string>

using namespace std;

int main()
{
	string input;
	regex integer("(\\+|-)?[[:digit:]]+");
	//As long as the input is correct ask for another number
	while(true)
	{
		cout<<"Give me an integer!"<<endl;
		cin>>input;
		if(!cin) break;
		//Exit when the user inputs q
		if(input=="q")
			break;
		if(regex_match(input,integer))
			cout<<"integer"<<endl;
		else
		{
			cout<<"Invalid input"<<endl;
		}
	}
}

(defstruct ogrenci isim not toplam) 
  
 (defparameter *ogrenciler* '()) 
  
 ;; klasik kod (uzun) 
  
 (push (make-ogrenci :isim "Mehmet" :not (list 96 45 90 70 85)) *ogrenciler*) 
 (push (make-ogrenci :isim "Mustafa" :not (list 76 85 96 80 65)) *ogrenciler*) 
 (push (make-ogrenci :isim "Hakan" :not (list 54 70 70 90 65)) *ogrenciler*) 
  
 (defun ogrenci-ekle (isim not-listesi) 
   (push (make-ogrenci :isim isim :not not-listesi) *ogrenciler*) 
   (concatenate 'string "yeni öğrenci eklendi: " isim)) 
  
 ;; daha kısa  
  
 (ogrenci-ekle "Sibel" '(90 90 95 100 94 87 100)) 
 (ogrenci-ekle "Ayşe" '(98 92 100 89 97 100 100 93)) 
 (ogrenci-ekle "Berk" '(58 61 47 73)) 
  
 (defun ogrenci-sil (isim) 
   (setf *ogrenciler* (remove-if 
    #'(lambda (ogrenci) (equal (ogrenci-isim ogrenci) isim)) 
    *ogrenciler*)) 
   (concatenate 'string "öğrenci silindi: " isim)) 
  
 (defun ogrenci-not-bas (isim) 
   (let ((ogrenci 
 	 (car (remove-if-not #'(lambda (kayit) (equal isim (ogrenci-isim kayit))) 
 			     *ogrenciler*)))) 
     (format t "~a, notları: " (ogrenci-isim ogrenci)) 
     (dolist (note (ogrenci-not ogrenci)) 
       (format t "~a " (notu-harfe-cevir note)))  
     'ok)) 
  
 (defun tum-ogrenciler () 
   (format t "~a~15t~a~%" "Öğrenci" "Notlar") 
   (dolist (ogrenci *ogrenciler*) 
     (format t "~a~15t~{~a~^ ~}~%" 
 	    (ogrenci-isim ogrenci) 
 	    (mapcar #'(lambda (x) (notu-harfe-cevir x)) 
 		    (ogrenci-not ogrenci)))) 
   'OK) 
  
 (defun genel-not-ortalama () 
   (let* ((veriler (not-toplam-adet *ogrenciler* 0 0)) 
 	 (toplam (car veriler)) 
 	 (adet (cdr veriler))) 
     (format t "~a adet not toplamı: ~a~%" adet toplam) 
     (format t "Not ortalaması: ~a" (/ (float toplam) adet)) 
     'OK)) 
  
 (defun not-toplam-adet (ogrenciler toplam adet) 
   (dolist (ogrenci ogrenciler (cons toplam adet)) 
     (dolist (note (ogrenci-not ogrenci)) 
       (setf adet (1+ adet)) 
       (setf toplam (+ note toplam))))) 
  
 (defun notu-harfe-cevir (note) 
     (cond 
       ((= note 100) 'A++)	 
       ((>= note 90) (< note 100) 'A) 
       ((>= note 80) (< note 90) 'B) 
       ((>= note 70) (< note 80) 'C) 
       ((>= note 60) (< note 70) 'D) 
       ((< note 60) 'F) 
       )) 
 

# DonanimHaber'de çok sayıda rumuzu haberdar 
 # edebilmek üzere her rumuza  'mention' etiketi ekleme betiği. 
 # Örnek: 
 # dh_uye 
 # dh uye 
 # dosyasını 
 # [mentioned]dh_uye[/mentioned] [mentioned]dh uye[/mentioned] 
 # dosyasına dönüştürür. 
  
 use File::Glob; # home '~' (tilde) için gerekli modül 
 local $/ = "\n"; 
 # $/ satır sonu kısayolunun ne olacağını belirler  
 # İlk başta local $_ = "\$" denendi fakat Mac'e uymadı 
 # Satır sonu kısayolu $/ ve değeri "\n" olmalı. 
  
 my $file = @ARGV[0]; 
  
 if ($file !~ m/[a-z]/i) { # RegEx ifadesi 
     print "Dosya adı girilmedi!\n"; 
     $file = glob("~/Documents/text-Files/rumuzlar_2018.txt");  
 }   # default dosya adı 
 # glob işlevi baştaki ~ (tilde) işaretini doğru yorumlar 
  
 print "dosya: $file\n"; 
 open INPUT, "<", $file 
     or die "Dosya açılamadı: $!\n"; 
  
 # .txt dosyasını açıp INPUT simgesine ata 
 # Dosya açılamazsa die 'den sonraki ifadeyi basıp çık. 
  
 my @cikti; 
 # my / benim alanımda @cikti dizisini tanımla 
  
 while (my $line = <INPUT>) { 
     # Her satırı çekip $line 'e ver 
     # Çektiğimiz satır örneğin @Glitch olsun 
     chomp $line; 
     # satırın sol ve sağdaki boşlukları temizle [chomp] 
     push @cikti , "\[mention\]$line\[/mention\]\n"; 
     # @cikti isimli diziye [mentioned]@Glitch[/mentioned] ekle 
 } 
  
 close(INPUT); 
  
 foreach(@cikti) 
 { 
     print "$_"; 
 } 
  
 (my $file_name = $file) =~ s/(.+?)(\.[^.]*$|$)/$1/; 
 # Dosya adını uzantısından ayırır. Açıklama: 
 # . Capture filenames that start with a dot (e.g. ".logs" is a file named ".logs", not a file extension), which is common in Unix. 
 # . Gets everything but the last dot: "foo.bar.jpeg" gets you "foo.bar". 
 # . Handles files with no dot: "secret-letter" gets you "secret-letter". 
 # Kaynak:https://stackoverflow.com/questions/ 
 # 624870/regex-get-filename-without-extension-in-one-shot 
  
 my $yeni_dosyaismi = "$file_name" . "_Sonuc.txt"; 
 open FH, ">", $yeni_dosyaismi 
     or die "'$outfile' yazılırken hata $!\n"; 
 print FH @cikti; 
 close FH;