R. A. Yusupov C++ Builderda masalalar va topshiriqlar samarqand 2018 yil

1.20-rasm. Oyning o’rtacha xarorati dasturi oynasi

#include "DateUtils.hpp" // MonthOf ga murojaat uchun

/* GetString funksiyasi fayldan joriy o’rindan birinchi bo’sh joygacha belgilar satrini o’qiydi. Funksiya qiymati – o’qilgan belgilar sonidir*/

int GetString(int f, AnsiString *st);

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

ComboBox1->Style = csDropDownList;

ComboBox1->Items->Add("Yanvar");

ComboBox1->Items->Add("Fevral");

ComboBox1->Items->Add("Mart");

ComboBox1->Items->Add("Aprel");

ComboBox1->Items->Add("May");

ComboBox1->Items->Add("Iyun");

ComboBox1->Items->Add("Iyul");

ComboBox1->Items->Add("Avgust");

ComboBox1->Items->Add("Sentabr");

ComboBox1->Items->Add("Oktabr");

ComboBox1->Items->Add("Noyabr");

ComboBox1->Items->Add("Dekabr");

// эл-ты списка нумеруются с нуля

ComboBox1->ItemIndex = MonthOf(Now())-1;

}

// OK tugmasini bosganda

void __fastcall TForm1::Button1Click(TObject *Sender)

{

int h; // fayl deskriptori

h = FileOpen("meteo.txt",fmOpenRead);

if (h == -1)

{

ShowMessage("Ma'lumotlar fayli meteo.txt"

"topilmadi.");

return;

}

Memo1->Lines->Clear();

// Faylni qayta ishlash

AnsiString st; // fayldan o'qilgan satr

int ls; // satr uzunligi

TDateTime aDate; // sana

float temp; // xarorat

int nMonth; // oy

int n = 0; // kunlar mig'dori (o'qilgan satrlar)

float sum =0; // xarorat yig'indisi

float urta; // o’rtacha qiymat

AnsiString buf;

/*faylning xar bir satri qo’yidagicha ko’rinishga ega:

KK-OO.YYYY X

Bu yerda: KK.OO.YYYY-sana; X - xarorat*/