Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.05.2012, 19:12   #1
Fmk
Новичок
Джуниор
 
Регистрация: 17.05.2012
Сообщений: 4
Восклицание Перевод с С++ в Паскаль

Памагите пажалуста перевести из С++ в Паскаль фрагмент программы:
case 3 : //Пошук за введеним імям номеру телефону
cout<<" vvedit Name : ";
cin>>nm;
file.seekg(0,ios::beg);
found=0;
while(file.read((char *) &rec, sizeof(rec)))
{
if(strcmp(nm,rec.getname())==0)
{
found=1;
rec.showdata();
}
}
file.clear();
if(found==0)
cout<<"\n\n---Zapys ne znaydeno---\n";
getch();
break;

case 4 : //Пошук за введения номером телефону імені (запису)
cout<<"\n\n vvedit telephone : ";
cin>>telno;
file.seekg(0,ios::beg);
found=0;
while(file.read((char *) &rec, sizeof(rec)))
{
if(strcmp(telno,rec.getphno())==0)
{
found=1;
rec.showdata();
}
}
file.clear();
if(found==0)
cout<<"\n\n---Zapys ne znayden---\n";
getch();
break;

case 5 : //Оновлення номера телефону
cout<<"\n\n vvedit Name : ";
cin>>nm;
file.seekg(0,ios::beg);
found=0;
int cnt;
cnt=0;
while(file.read((char *) &rec, sizeof(rec)))
{
cnt++;
if(strcmp(nm,rec.getname())==0)
{
found=1;
break;
}
}
file.clear();
if(found==0)
cout<<"\n\n---Zapys ne znayden---\n";
else
{
int location = (cnt-1) * sizeof(rec);
cin.get(ch);
if(file.eof())
file.clear();

cout<<"Enter New Telephone No : ";
cin>>telno;
file.seekp(location);
rec.update(nm,telno,addr,mis);
file.write((char *) &rec, sizeof(rec));
file.flush();
}
break;
case 6 : goto out;

}
}
out:
Fmk вне форума Ответить с цитированием
Старый 18.05.2012, 10:18   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

кросспостинг запрещен правилами
p51x вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
перевод массивов.Паскаль dimka123 Помощь студентам 12 26.12.2011 19:26
Перевод из C в паскаль KAIIUK Помощь студентам 2 12.12.2011 23:40
Перевод из Бэйсика в Паскаль Heming Помощь студентам 13 03.12.2011 17:29
Перевод программы с Паскаль на С++ Sentteriys Общие вопросы C/C++ 1 16.05.2011 22:40
Паскаль перевод чисел Darf Помощь студентам 9 27.05.2009 17:46