Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
MrSkita
2 / 2 / 0
Регистрация: 12.02.2014
Сообщений: 67
Завершенные тесты: 1
1

перевести в Delphi

23.05.2015, 11:12. Просмотров 179. Ответов 0
Метки нет (Все метки)

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
#include <iostream>
#include <fstream>
#include <conio.h>
using namespace std;
 
 
//---------------------------------------------------------------------------
struct kostum   {char form[30];
                int razm;
                int rasx;
                int cena;
                };
const int n=3; kostum od[n];
 
 main()
{
for (int i=1;i<n;i++)
{
//ofstream book("kostum.DAT");
cout<<"\n"<<i<<"Tip formy:  ";
cin>>od[i].form;
book<<od[i].form<<endl;
cout<<"\n"<<"Razmer:";
cin>>od[i].razm;
book<<od[i].razm<<endl;
cout<<"\n"<<"Rasxod(m2): ";
cin>>od[i].rasx;
book<<od[i].rasx<<endl;
cout<<"\n"<<"Cena: ";
cin>>od[i].cena;
book<<od[i].cena<<endl;
cout<<"\n\n"; }
 
ifstream ifs ("kostum.txt");
int f;
if (ifs) {
 ifs>>od[0].razm>> od[0].rasx>>od[0].cena>>od[0].form;
}
ifs.close();
 
cout<<"\n Vvedite razmer: ";
int a;
cin>>a;
for (int i=0;i<n;i++)
{
if(a==od[i].razm)   
cout<<"Tip formy:  "<<od[i].form<<" Razmer:"<<od[i].razm<<" Rasxod(m2):"<<od[i].rasx<<"Cena: "<<od[i].cena;    
else 
cout<<"Takogo razera net!";
}
getch();
 
}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.05.2015, 11:12
Ответы с готовыми решениями:

Перевести на Delphi c С++
Как перевести такой код: class Container; class Content{ ...

Перевести с C# на Delphi
using System; using System.Collections.Generic; using System.ComponentModel;...

Перевести с паскаля на Delphi
program rgb; uses crt; var a:array of longint; i,j: integer; begin...

Перевести функцию из Си в Delphi
Привет всем необходимо перевести функцию которая находится в некой библиотеке....

Нужно перевести с Delphi на C#
Здравствуйте, Дорогие программисты. Я тупень в этом языке программировании....

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.05.2015, 11:12

Перевести из Pascal в Delphi
Uses CRT; Const maxn = 10; Type Data = Real; Matrix =...

Перевести код с С++ на Delphi
код #include &lt;fstream&gt; #include &lt;vector&gt; bool possible(int n,unsigned...

Перевести код С++ -> Delphi
пожалуйста переведите с С++ на Delphi...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru