зчитати

Приклад 1:
ShowMessage (“Введіть числа в Memo1”); return; for(i=0; iLines->Strings[i]); //Зчитати число з Memo1 if(x>-10 && x<10 && x!=0) // Якщо x – ненульове одноцифрове число, sum+=x; k++; // додаємо його до суми sum і збільшуємо кількість на 1. if(k!=0) // Якщо такі числа є, aver=sum/k; // обчислити середнє арифметичне, Edit1->Text=FormatFloat(“0.00”,aver); else // інакше – вивести повідомлення.
— Невідомий автор, “132 Trofimenko Og Prokop Iuv Shvaiko Ig Ta Inc Osnovi Programuva Tech”

Приклад 2:
Текст програми : // Розв’язання за допомогою циклу for void __fastcall TForm1::Button1Click(TObject *Sender) int x, i, n, S=0; n=Memo1->Lines->Count; if(n==0) ShowMessage (“Введіть числа до Memo1”); return; Memo2->Clear(); // У циклі умова iLines->Strings[i]); if(x%2==0) Memo2->Lines->Add(IntToStr(x)); S+=x; Розділ 4 148 //———————————————————— // Розв’язок за допомогою циклу while void __fastcall TForm1::Button2Click(TObject *Sender) int x, i=0, n, S=0; n=Memo1->Lines->Count; if(n == 0) ShowMessage (“Введіть числа до Memo1”); return; Memo2->Clear(); while(iLines->Strings[i]); if(x%2 == 0) Memo2->Lines->Add(IntToStr(x)); S+=x; i++; //———————————————————— // Розв’язок за допомогою циклу do-while void __fastcall TForm1::Button3Click(TObject *Sender) int x, i=0, S=0, n=Memo1->Lines->Count; if(n == 0) ShowMessage (“Введіть числа до Memo1”); return; Memo2->Clear(); do x=StrToInt(Memo1->Lines->Strings[i]); if(x%2 == 0) Memo2->Lines->Add(IntToStr(x)); S+=x; i++; while (iЗчитати числа з Memo, допоки не зустрінеться 0. Віднайти найменше з цих чисел.
— Невідомий автор, “132 Trofimenko Og Prokop Iuv Shvaiko Ig Ta Inc Osnovi Programuva Tech”

Приклад 3:
Edit1->Text = FloatToStr(min); Приклад 4.53 Зчитати числа з Memo, допоки не зустрінеться 0. Віднайти мі- німальне додатне число.
— Невідомий автор, “132 Trofimenko Og Prokop Iuv Shvaiko Ig Ta Inc Osnovi Programuva Tech”