Форум программистов, компьютерный форум, киберфорум
Наши страницы

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

Войти
Регистрация
Восстановить пароль
 
Басаман Максим
1 / 1 / 0
Регистрация: 26.09.2013
Сообщений: 43
#1

Перевести с Паскаля на Си - C++

08.04.2014, 03:47. Просмотров 241. Ответов 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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
uses crt;
type
  info = record
    FIO: string;
    d: 1..31;
    m: 1..12;
    y: 1990..1996;
    p: string[1];
    end;
var
 i,n,m: integer;
 st,max: info;
 a:array [1..50] of info;//не integer
 c: char;
begin
 clrscr;
 window(1,1,80,25);
 textcolor(6);
 textbackground(8);
 clrscr;
 write('Введите количество записей: ');
 readln(n);
 for i:=1 to n do
 begin
 clrscr;
 writeln('*** Запись №',i,' ***');
 write('Введите ФИО: ');
 readln(st.FIO);
 write('Введите день рождения: ');
 readln(st.d);
 write('Введите месяц рождения: ');
 readln(st.m);//не d
 write('Введите год рождения: ');
 readln(st.y);
 write('Введите пол: ');
 readln(st.p);
 a[i]:=st;
 end;
 clrscr;
 max:=a[1];
 For i:=2 to n do
   if (a[i].p='m') and ((a[i].d<max.d) and (a[i].m<=max.m) and (a[i].y<=max.y))then
      max:=a[i];
   writeln('Самый старший мужчина: ',max.FIO);
   write('Введите букву: ');
   readln(c);
   for i:=1 to n do
   if a[i].fio[1]=c then
   writeln(a[i].FIO);
 write('Введите месяц: ');
 readln(m);
 for i:=1 to n do
 if a[i].m=m then
 writeln(a[i].FIO);
 readln;
 end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.04.2014, 03:47
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести с Паскаля на Си (C++):

Перевести с Паскаля на С++ - C++
Помогите, пожалуйста! Переведите код с Паскаля на С++!! Срочно!! program ghost; uses crt; type man = Record ...

Перевести с Паскаля на С++ - C++
uses crt; var n,k:byte; p,s:longint; begin clrscr; write('Введите произведение нескольких первых нечетных натуральных чисел...

Перевести из паскаля на с++ - C++
program laba3; var n, i: integer; a, y: real; begin writeln ('Введите n'); ...

Перевести с паскаля - C++
program maximum; var a: array of integer; // массив масс предметов max: integer; // масса самого тяжелого предмета i: integer; //...

Перевести из паскаля на c++ - C++
program laba2; var x,y: real; begin writeln ('введіть координати точки: '); read(x,y); if (sqrt(x)+sqrt(y)&lt;=4) AND NOT((...

перевести на c++ с паскаля - C++
переведите пожалуйста как написать эти строчки на с++ for i:=1 to Length(s) do for j:=length(sl) downto 1 do Добавлено...

1
SatanaXIII
Супер-модератор
Эксперт С++
5667 / 2712 / 255
Регистрация: 01.11.2011
Сообщений: 6,641
Завершенные тесты: 1
08.04.2014, 09:43 #2
Структура элемента массива работник. Определить фамилию самого старшего мужчины
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.04.2014, 09:43
Привет! Вот еще темы с ответами:

Перевести из паскаля на c++ - C++
Program laba2; var d, m: integer; begin writeln('Введіть день'); readln (d); writeln('Введіть мiсяць'); readln (m); ...

Перевести из паскаля в c++ - C++
собственно вот паскалевский код, тут через файлы. На с++ надо через ввод/вывод. var N:integer; E:integer; En1,En2:integer; ...

перевести в си++ из паскаля - C++
var n:longint; i,c:integer; s:string; A:array of boolean; begin write('Введите N: '); readln(n); str(n,s); ...

Перевести с паскаля на С++ - C++
Program p1; Var x,i,n:integer; Begin Write ('n= '); Read (n); x:=10; i:=0; repeat if (n div x) &lt;&gt; 0 then...


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

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

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