|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.05.2012, 19:12 | #1 |
Новичок
Джуниор
Регистрация: 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: |
18.05.2012, 10:18 | #2 |
Старожил
Регистрация: 15.02.2010
Сообщений: 15,760
|
кросспостинг запрещен правилами
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
перевод массивов.Паскаль | 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 |