копіювання

Приклад 1:
Він не уявляв собі майбутнє як поворот назад до Середньовіччя й Середньовіччя як Отчий дім людства, мистецтво прийдешнього як копіювання давнього, сучасність як відтворення минулого, як стверджений циклізм історії, рух по колу. Ще раз повторений Ярослав з родиною або наново перемальована фреска зі сходів Київської Софії.
— Домонтович В., “Доктор Серафікус”

Приклад 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(); // У циклі умова iкопіювання; // умова S<=10 означає, сума чисел, котрі було скопійовано, є менше за 10. for(i=0; 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 (iRowCount=rowc+1; double b=new double *[rowc]; // Оголошення матриці b for(i=0; iкопіювання** рядка у нову матрицю k++; / / і збільшення індексу рядка нової матриці. for(i=0; iCells[j+1][i+1]=FloatToStr(b[i][j]); for(int i=0; iCells[0][i]=IntToStr(i)+”-й рядок”; for(j=1;j<=4;j++) SG2->Cells[j][0]=IntToStr(j)+”-й стовпчик”; Питання та завдання для самоконтролю 1) Що являє собою пам’ять комп’ютера?
— Невідомий автор, “132 Trofimenko Og Prokop Iuv Shvaiko Ig Ta Inc Osnovi Programuva Tech”