0 / 0 / 0
Регистрация: 27.11.2012
Сообщений: 19
1

Перевод готовой программы

06.09.2013, 13:34. Показов 979. Ответов 1
Метки нет (Все метки)

Добрый день! Помогите мне перевести готовую программу на с++. И нужно сделать классы по возможности.

Pascal
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
Uses crt;
Type
book=Record
a: Integer;
b: Integer;
c: Integer;
fam: String;
ceh: String;
end;
Var
sa,sb,sc,i,n,k,sum: Integer;
str: String;
x: Array[1..100] of book;
Begin
Clrscr;
Writeln('Количество записей: '); Readln(n);
Writeln('Значения расценок SA,SB,SC: '); Readln(sa,sb,sc);
For i:=1 to n do
begin
 Write('Введите фамилию рабочего: '); Readln(x[i].fam);
 Write('Введите наименование цеха: '); Readln(x[i].ceh);
 Write('Количество изделий A: '); Readln(x[i].a);
 Write('Количество изделий B: '); Readln(x[i].b);
 Write('Количество изделий C: '); Readln(x[i].c);
end;
Writeln('Введите наименование цеха, по которому нужно выдать информацию: '); Readln(str);
Writeln('Работники этого цеха:');
For i:=1 to n do
If x[i].ceh=str Then begin
 Inc(k);
 Writeln(x[i].fam);
 sum:=sum+(sa*x[i].a+sb*x[i].b+sc*x[i].c);
 end;
Writeln('Зарплата для работников цеха ',str,' =',sum);
Writeln('Средняя зарплата= ',sum/k:2:2);
Readln
End.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.09.2013, 13:34
Ответы с готовыми решениями:

Запуск готовой программы
Ребят всем привет, помогите пожалуйста с запуском алгоритма с сайта: ...

Оптимизация кода готовой программы
Всем привет! Есть условие задачи: "Входной файл INPUT.TXT содержит две строки. В первой строке...

Блок-схема для готовой программы
Здравствуйте! В данной теме я хотел бы попросить вас указать на мои ошибки в составлении блок-схемы...

Прошу объяснить работу готовой программы
Что требуется: При описании решения задачи следует отдельно выделить постановку задачи с указанием...

1
50 / 50 / 9
Регистрация: 18.07.2013
Сообщений: 138
Записей в блоге: 1
06.09.2013, 14:21 2
Лучший ответ Сообщение было отмечено alextony как решение

Решение

Цитата Сообщение от alextony Посмотреть сообщение
Добрый день! Помогите мне перевести готовую программу на с++. И нужно сделать классы по возможности.
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
54
55
56
57
58
59
#include <iostream>
#include <string>
using namespace std;
 
class Book
{
public:
    int a;
    int b;
    int c;
    string fam;
    string ceh;
};
 
int main()
{
    int sa,sb,sc,n,k = 0,sum = 0;
    string str;
    Book x[100];
    
    cout << "Кол-во записей: ";
    cin >> n;
    cout << "Значения расценок SA,SB,SC: ";
    cin >> sa >> sb >> sc;
    cin.get();
    for (int i = 0; i < n; i++)
    {
        cout << "Введите фамилию рабочего: ";
        getline(cin,x[i].fam);
        cout << "Введите наименование цеха: ";
        getline(cin,x[i].ceh);
        cout << "Количество изделий A: ";
        cin >> x[i].a;
        cout << "Количество изделий B: ";
        cin >> x[i].b;
        cout << "Количество изделий C: ";
        cin >> x[i].c;  
        cin.get();
    }
 
    cout << "Введите наименование цеха, по которому нужно выдать информацию: ";
    getline(cin,str);
    cout << "Работники этого цеха:" << endl;
    for (int i = 0; i < n; i++)
    {
        if(x[i].ceh == str)
        {
            k++;
            cout << x[i].fam << endl;
            sum += sa * x[i].a + sb * x[i].b + sc * x[i].c; 
        }
    }
 
    cout << "Зарплата для работников цеха " << str << " = " << sum << endl;
    cout << "Средняя зарплата = " << (sum / k) << endl;
 
    cin.get();
    return 0;
}
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.09.2013, 14:21
Помогаю со студенческими работами здесь

нужно описать что делают строки готовой программы
нужно описать что делают строки готовой программы #include &lt;iostream&gt; #include &lt;string&gt;...

Можно ли вытащить текст программы из готовой программы?
Как это можно сделать? файл exe

Изменение готовой программы
Здравствуйте, сразу хочу сказать - С++ для меня неизведанная область, но вопрос, всё же задам....

Пожалуйста, скомпилируйте EXE файл для готовой программы
Доброго времени суток. У меня возникла проблема, мне написали программу, но я не могу открыть...

Создание готовой программы из готовой базы данных
Добрый день. Есть полностью готовая база данных с таблицами, формами, отчетами. Короче полностью...

Написать макрос к готовой программе (Перевод символов в верхний регистр)
Здравствуйте, есть прога, которая переводит символы в верхний регистр. Для неё нужно написать любой...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru