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

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

Восстановить пароль Регистрация
 
Басаман Максим
1 / 1 / 0
Регистрация: 26.09.2013
Сообщений: 43
08.04.2014, 03:47     Перевести с Паскаля на Си #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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.04.2014, 03:47     Перевести с Паскаля на Си
Посмотрите здесь:

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

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
SatanaXIII
Супер-модератор
Эксперт С++
 Аватар для SatanaXIII
5549 / 2563 / 233
Регистрация: 01.11.2011
Сообщений: 6,334
Завершенные тесты: 1
08.04.2014, 09:43     Перевести с Паскаля на Си #2
Структура элемента массива работник. Определить фамилию самого старшего мужчины
Yandex
Объявления
08.04.2014, 09:43     Перевести с Паскаля на Си
Ответ Создать тему
Опции темы

Текущее время: 21:37. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru