Форум программистов, компьютерный форум CyberForum.ru

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
AnnaMo
0 / 0 / 0
Регистрация: 31.05.2014
Сообщений: 4
#1

Расчет среднего заработка (Pascal -> C++) - C++

03.07.2014, 14:06. Просмотров 274. Ответов 1
Метки нет (Все метки)

РАСЧЕТ СРЕДНЕГО ЗАРАБОТКА ЗА 3 месяца
ФИО Заработок за 1 месяц(руб.) Заработок за 2 месяца(руб.) Заработок за 3 месяца(руб.) Средний заработок (руб.)
Разработать программу, реализующую ввод данных с экрана, вывод данных в таблицу на экран монитора, поиск данных по ключу.

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
program laba;
uses crt;
Type
raschet = record
FIO:string[20];
zarab1:integer;
zarab2:integer;
zarab3:integer;
obshzar:integer;
end;
Var
rsz:array [1..20] of raschet;
n,k:integer;
procedure vvod;
var
i:integer;
begin
clrscr;
writeln('input N');
readln(n);
for i:=1 to n do
Begin
writeln('vvedite dannie');
readln(rsz[i].FIO);
writeln('vvedite zar1');
readln(rsz[i].zarab1);
writeln('vvedite zar2');
readln(rsz[i].zarab2);
writeln('vvedite zar3');
readln(rsz[i].zarab3);
end;
end;
procedure vivod;
var
i:integer;
begin
clrscr;
begin
clrscr;
writeln('г==========T==========T==========T=========T================¬');
writeln('¦FIO       ¦Zarab1    ¦  Zarab2  ¦ Zarab3  ¦    Obshzar     ¦');
for i:=1 to n do
begin
writeln('¦==========+==========+==========+=========+================¦');
writeln('¦',rsz[i].FIO:10,'¦',rsz[i].zarab1:10,'¦',rsz[i].zarab2:10,'¦',rsz[i].zarab3:9,'¦',(rsz[i].zarab1+rsz[i].zarab2+rsz[i].zarab3)/3:16:2,'¦');
end;
writeln('L==========¦==========¦==========¦=========¦================-');
readkey;
end;
end;
procedure poiskl;
var
i:integer;
h:string;
ch:char;
begin
clrscr;
h:=' ';
write('vvedite nazvanie');
readkey;
repeat
read(ch);
until(ch=#10);
readln(h);
i:=1;
while (h<>rsz[i].FIO) and (i<=n) do i:=i+1;
clrscr;
if h=(rsz[i].FIO) then
writeln('naiden element', i)
else writeln ('takogo elementa net');
readln;
end;
 
begin
while true do
begin
clrscr;
writeln('г==================================¬  ');
writeln('¦            M E N U               ¦  ');
writeln('¦==================================¦  ');
writeln('¦ 1-INPUT 2-OUPUT 3-SEARCH 4-EXIT  ¦  ');
writeln('L==================================-  ');
read(k);
case k of
 1:vvod;
 2:vivod;
 3:poiskl;
 4:exit
 else writeln ('vvedite chislo ot 1 do 4');
   read(k);
 end;
 end;
 end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.07.2014, 14:06
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Расчет среднего заработка (Pascal -> C++) (C++):

Расчет среднего арифметического трех чисел - C++
Пользователь вводит 3 числа. Программа должна вычислить их среднее арифметическое. Написать программу для расчета среднего...

Расчет среднего арифметического элементов массива, кратных 3 - C++
Ребята, проблема вот в чем. Сделать рассчет среднего арифметического числа для всех елементов массива, которое кратные 3 и вывести...

Вычисление среднего арифметического и среднего геометрического двух чисел - C++
Даны два действительных положительных числа. Записать алгоритм вычисления среднего арифметического и среднего геометрического этих чисел.

Разработайте перегруженные функции нахождения среднего арифметического и среднего геометрического трех целых и вещественных чисел - C++
Составьте программу для решения задачи. Выясните, что больше: среднее арифметическое или среднее геометрическое трех положительных чисел....

Расчет сумм в формуле и расчет xi должны быть оформлены в виде отдельных функций. - C++
День добрый товарищи специалисты, помогите пожалуйста с примером m=((1/n)*\sum_{i=1}^{n}{x}_{i}){}^{2}-\sum_{i=1}^{n}{x}_{i} ,n=5 ф-ция...

1C 8.x (тонкий) ЗУП-3. Пустой Расчет среднего заработка для работника в декрете - 1С
Добрый день! При формировании отпуска по уходом за ребенком (до 1,5 лет) формируем документ &quot;Расчет среднего заработка&quot;. В результате...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
henb
1 / 1 / 2
Регистрация: 06.02.2014
Сообщений: 15
03.07.2014, 15:28 #2
converter pascal to c++
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.07.2014, 15:28
Привет! Вот еще темы с ответами:

Расчет среднего арифметического - C#
Расчет среднего арифметического. Здравствуйте, подскажите пожалуйста где в следующей программе ошибка. Программа с начало...

Расчет среднего балла студентов - Visual C++
Безумно нужна помощь в написании программы. Тема интересная, про студентов =) Есть поля базы данных: ФИО студентов Пол Оценки з...

Расчет среднего арифметического из стринггрида - C++ Builder
Привет! Есть стринггрид из ста строк. Нужно посчитать среднее арифметическое по 20 строкам (в одном столбце), т.е. получится их пять...

Расчет среднего значения помесячно - SQL Server
Доброго времени суток. Вопрос. Как можно посчитать среднее &quot;помесячное&quot; значение за год, не разбивая в ручную по месяцам запрос?


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

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

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