Возникли сложности в переводе с языка Паскаль на C#
Формулировка задачи:
VAR
f,f_2,f_1,m:Longint;
BEGIN
Write('m (>1)= ');
Readln(m);
f_2:=1;
f_1:=1;
Repeat
f:=f_1+f_2;
f_2:=f_1;
f_1:=f;
Until f>m;
Writeln('f= ',f);
Readln;
END.Решение задачи: «Возникли сложности в переводе с языка Паскаль на C#»
textual
Листинг программы
//---------------------------------------------------------------------------
#include <vcl.h>
#include <iostream.h>
#include <conio.h>
#pragma hdrstop
//---------------------------------------------------------------------------
#pragma argsused
int f, f2, f1, m;
int main(int argc, char* argv[])
{
cout << "Vvedite m(>1):" << "\n";
cin >> m;
f2 = f1 = 1;
do{
f = f1+f2;
f2 = f1;
f1 = f;
}while(f<m);
cout << "Resultat f=" << f << "\n";
getch();
return 0;
}
//---------------------------------------------------------------------------