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

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

08.04.2014, 03:47. Показов 555. Ответов 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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.04.2014, 03:47
Ответы с готовыми решениями:

Перевести с Паскаля на C++
надо перевести с паскаля на c++ var i,adrs:integer; a:arrayof integer; begin //... for...

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

Перевести из Паскаля в си
program Ivan; var z:real; i,a,b,m:integer; begin writeln('Введите a и b'); readln(a,b); if...

Перевести с паскаля на си
Здравствуйте,помогите пожалуйста перевести с паскаля на си var s: string; i: byte; ...

1
Почетный модератор
Эксперт С++
5849 / 2860 / 392
Регистрация: 01.11.2011
Сообщений: 6,905
08.04.2014, 09:43 2
Структура элемента массива работник. Определить фамилию самого старшего мужчины
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.04.2014, 09:43
Помогаю со студенческими работами здесь

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

Перевести из паскаля в С++
Знаю паскаль хорошо, а вот с С++проблемы. Помогите перевести этот код. Буду благодарен procedure...

Перевести с паскаля в си
вот код: var n,m,min:integer; begin min:=10; readln(n); repeat m:= n mod 10; n:=n div 10;...

Перевести из паскаля в С
Условие: Постройте массив p=2,p,...,p, где p=2, p=3, ..., p - n-е простое число uses crt; ...

Перевести с Паскаля на Си
uses crt; var a,n:Longint; b:boolean; begin clrscr; write('a=');readln(a); n:=2; while...

Перевести с Паскаля на с#
For i:=1 to D1+1 do WRITEln (i:4,' y1 = ',x1:8:3,' ',mx:8:3); readln; n:=10; x2:=D2l;...


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

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

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