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

перевести на С - C++

Восстановить пароль Регистрация
 
litelpp
3 / 3 / 1
Регистрация: 03.05.2010
Сообщений: 69
14.03.2012, 22:52     перевести на С #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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
uses crt;
 
const zag= '   student kotorie pribuli ';
      line='-----------------------------------------|';
      shap='|   Familiyaя |  #otryad  |   Fakultet   |';
 
type students = record
     fam:  string[10];
     no:   integer;
     fak:  string[20];
     end;
 
var s: students;
    i,imax,r,n:integer;
    f: file of students;
    x: string;
 
begin
assign(f,'E:\st.dat');
rewrite(f);
write('skolko studentov ? ');
readln(n);
writeln('Vvod danux pro studenta: ');
imax:=0;
for i:=1 to n do
    with s do
         begin
         write(' Familiyaя ',i,' studenta: '); readln(fam);
         write('# otryada  : '); readln(no);
         if no>imax then imax:=no;
         write(' Fakultet : '); readln(fak);
         write(f,s);
         end;
writeln(' Infa save');
repeat
writeln('0-exit');
writeln('1-read inf.');
writeln('2-vuvesti inf.');
readln(r);
if r=1 then
   begin
   clrscr;
   writeln(zag);
   writeln(line);
   writeln(shap);
   writeln(line);
   for i:=1 to imax do
       begin
       reset(f);
       while not (eof(f)) do
             begin
             read(f,s);
             with s do
                  if no=i then
                     begin
                     writeln('|',fam:11,'|':3,no:7,'|':5,fak:12,'|':3);
                     writeln(line);
                     end;
             end;
         end;
   end;
if r=2 then
   begin
   clrscr;
   write('Familiya studenta: ');
   readln(x);
   reset(f);
   while not (eof(f)) do
         begin
         read(f,s);
         with s do
              if fam=x then
                 begin
                 writeln('Familiyaя: ',fam);
                 writeln('# otryada : ',no);
                 writeln('Fakultet : ',fak);
                 end;
         end;
   end;
until r=0;
readln;
close (f);
end.
Даный код с Turbo Pascal, возможно ли заделать такую же програму только на Си.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.03.2012, 22:52     перевести на С
Посмотрите здесь:

C++ Перевести с С на С++
Перевести из C++ на С. C++
C++ Перевести на C++
C++ Перевести JS на C++
Перевести с С++ на С C++
C++ Перевести с С на С++
Перевести в С++ C++
C++ Перевести из C# в С++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Jupiter
Каратель
Эксперт C++
6542 / 3962 / 226
Регистрация: 26.03.2010
Сообщений: 9,273
Записей в блоге: 1
Завершенные тесты: 2
14.03.2012, 22:53     перевести на С #2
что эта программа делает? задание какое?
litelpp
3 / 3 / 1
Регистрация: 03.05.2010
Сообщений: 69
14.03.2012, 23:25  [ТС]     перевести на С #3
Цитата Сообщение от Jupiter Посмотреть сообщение
что эта программа делает? задание какое?
Создать файл, содержащий информацию о студентах, которые прибыли в лагерь.
Структура записи:
- Фамилия,
- Номер отряда,
- Наименование факультета.

Распечатать список по номерам отрядов, начиная с наименьшего номера и заканчивая самым большим. Вывести информацию о конкретного студента X. Количество отрядов> 5, X вводится с клавиатуры.
Yandex
Объявления
14.03.2012, 23:25     перевести на С
Ответ Создать тему
Опции темы

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