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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
litelpp
3 / 3 / 1
Регистрация: 03.05.2010
Сообщений: 69
#1

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

14.03.2012, 22:52. Просмотров 305. Ответов 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
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, возможно ли заделать такую же програму только на Си.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.03.2012, 22:52
Здравствуйте! Я подобрал для вас темы с ответами на вопрос перевести на С (C++):

Текстовый файл перевести в двоичный, а потом полученный двоичный файл перевести обратно в текстовый - C++
Всем привет. Есть такая задачка: "текстовый файл перевести в двоичный, а потом полученный двоичный файл перевести обратно в текстовый" ...

Перевести с С на С++ - C++
#include <iostream> void inversion(double **A, int N) { double temp; double **E = new double *; for (int...

Перевести на c++ - C++
uses crt; var m,n:integer; mm,mn:set of byte; begin clrscr; repeat writeln('Введите 2 натуральных числа до 9999'); ...

Перевести из с++ в си - C++
Переведите из c++ в си пожалуйста #include <string> #include <sstream> #include <vector> #include <iostream> using namespace std;...

Перевести из C++ на С. - C++
нужно код перевести в С! #include <iostream.h> #include <fstream.h> main(int argc, char *argv) { //definition of the...

Перевести из с в с++ - C++
#include <stdlib.h> #include <stdio.h> #include <locale.h> int main() { setlocale(LC_ALL,"r"); int i,n; long int...

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

Распечатать список по номерам отрядов, начиная с наименьшего номера и заканчивая самым большим. Вывести информацию о конкретного студента X. Количество отрядов> 5, X вводится с клавиатуры.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.03.2012, 23:25
Привет! Вот еще темы с ответами:

Перевести из Си в С++ - C++
#include "stdafx.h" #include <stdio.h> #include <stdlib.h> #include <string.h> int check (char str) { int i,length; ...

Перевести с С на С++ - C++
1) Задача #include <stdio.h> #include <conio.h> int main () {clrscr (); char symv = 'A'; char str = "Це стрічка"; const...

Перевести из C# в С++ - C++
Перевести из C# в С++. Очень желательно с сохранением всех пояснений. Вот задача: Алгоритм сортировки подсчетом прост. Подсчитывается...

Перевести с С++ на С - C++
#include "stdafx.h" #include <iostream> using namespace std; void main() { setlocale(LC_ALL,"Russian"); int n;...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru