Формирование нового списка или из pascal -> с++

@Twist2323 · Регистрация: 12.09.2012

Студворк — интернет-сервис помощи студентам

Добрый вечер всем! Друзья помогите пожалуйста решить задачу на языке С++.
Комп содержит записи, состоящие из трех полей: 1) фамилия 2) год рождения 3) соц положение (1- крестьянин 2-рабочий 3-интелегент). Прога должна сформировать новый список записей из 2-х полей. 1) фамилия 2) год рождения в которые войдут ТОЛЬКО КРЕСТЬЯНЕ.

Вот задача) Попробывал ее решить на паскале вроде получилось. Решите пожалуйста или переведите из паскаля в С++
буду очень благодарен.

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
  uses crt;
  Type krest= record
             name: string[25];
              year, social: integer;
 
              end;
 
 
 var a: array [1..100] of krest;
  n,k,i:integer;
begin
writeln('vvedite kol-vo zapisei');
readln(n);
for i:=1 to n do
begin
writeln('Familiya:');
readln(a[i].name);
writeln('God rojdeniya:');
readln(a[i].year);
writeln('social polojenie 1-krestyanin 2-rabochiy 3-intelegent');
readln(a[i].social);
writeln;
end;
for i:=1 to n do
begin
if (a[i].social=1) then
begin
writeln(a[i].name);
writeln(a[i].year);
end;
end;
end.

@SatanaXIII · 11.02.2013, 16:52

Сообщение от Twist2323

или переведите из паскаля в С++

C++
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
#include <iostream.h>
//uses crt; // не помню
struct krest{
            char name[25];
            int year, social;
            };
 
krest a[100];
 
int n,k,i;
 
int main()
{
cout << "vvedite kol-vo zapisei";
cin >> n;
for(i=0; i<n; i++)
{
  cout << "Familiya:";
  cin >> a[i].name; 
  cout << "God rojdeniya:";
  cin >> a[i].year;
  cout << "social polojenie 1-krestyanin 2-rabochiy 3-intelegent";
  cin >> a[i].social;
  cout << "\n";
}
for(i=0; i<n; i++)
{
  if(a[i].social==1)
  {
    cout << a[i].name << "  ";
    cout << a[i].year << "\n";
  }
}
cin.ignore(2);
return 0;
}

@Twist2323 · 11.02.2013, 16:58 **[ТС]**

спасибо большое))))

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .

@Twist2323 0 / 0 / 0 Регистрация: 12.09.2012 Сообщений: 15
	11.02.2013, 16:58 [ТС]
	спасибо большое)))) 0

Формирование нового списка или из pascal -> с++

Решение