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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ программа меняет массивы местами.что не так? http://www.cyberforum.ru/cpp-beginners/thread1142026.html
#include <iostream>; #include<locale> using namespace std; int rl1,rl2,rl3,c,t; int main() { setlocale (LC_ALL,"Rus"); int a; cin>>a;
C++ Сложение чисел в восьмеричной системе счисления Исходными данными являются два числа, вводимые пользователем в десятичной системе счисления. После ввода они переводятся в восмеричную систему счисления, результат перевода выводится на экран,... http://www.cyberforum.ru/cpp-beginners/thread1142025.html
Преобразование строки в дробь C++
Выводит только первые 2 цифры после точки. Как сделать, чтобы дробь выводилась полностью? typedef wchar_t Char; typedef char ByteChar; //... template<class TValue> std::wstring ToString(...
C++ Работа со строками. Error C3861: getline: идентификатор не найден
#include "stdafx.h" #include <iostream> #include <string.h> using namespace std; int _tmain(int argc, _TCHAR* argv) { setlocale(LC_CTYPE,"");
C++ Менять массивы местами при условии http://www.cyberforum.ru/cpp-beginners/thread1142008.html
#include <iostream>; #include<locale> using namespace std; int rl1,rl2,rl3,c; int main() { setlocale (LC_ALL,"Rus"); int a; cin>>a;
C++ Избавиться от cin.ignore() Приветствую всех! Написал простенькую программку для работы с классами. #include "stdafx.h" #include <iostream> using std::cout; using std::endl; using std::cin; #include <string> подробнее

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

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

08.04.2014, 03:47. Просмотров 230. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru