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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Подсчитать количество слов, в тексте от пробела до пробела, и количество букв http://www.cyberforum.ru/cpp-beginners/thread519085.html
нужно создать програму считает количество слов, в тексте от пробела до пробела(если два пробела сразу конец текста), а также подсчитывало количество букв. большое спасибо
C++ Построить систему классов для описания плоских геометрических фигур Здравствуйте. Прошу помощи) Вот сама задача Построить систему классов для описания плоских геометрических фигур: круг, квадрат, прямоугольник. Предусмотреть методы для создания объектов, перемещения на плоскости, изменения размеров и вращения на заданный угол. Написать программу, демонстрирующую работу с этими классами. Программа должна содержать меню, позволяющее осуществить проверку... http://www.cyberforum.ru/cpp-beginners/thread519074.html
C++ блок интернета программой автоматический
Всем привет, вот мне срочно нужно решить такую задачу, мне нужно написать программу, которая будет запускаться, не отражаться в панеле вкладок и просматривать строки браузеров, то есть когда вводится сайт одноклассники, блокировать интернет и не давать войти туда, а то сестра надоела комп занимать), пожалуйста подскажите мне, как мне это сделать, что выучить, что подучить, вообще что для этого...
C++ Два файла объединяются по принципу: строчка из одного, строчка из другого(2 задачи)
Всем доброго времени суток! Помогите написать 2 программки. Теоретически (по моему мнению) они довольно просты, но реализовать их, у меня не получается. Помогите пожалуйста их написать. 1)Написать программу с использованием функции, вычисляющей наименьшее по модулю из чисел (от 3 до 5 чисел). Значение чисел задавать с использованием генератора случайных чисел (генератор уже есть, а вот...
C++ Определить общую стоимость оборудования за n лет http://www.cyberforum.ru/cpp-beginners/thread519025.html
фирма ежегодно на протяжении n лет закупала оборудование стоимостью S1, S2 ...Sn рублей в год. Ежегодно все5 имеющееся оборудование уценяется на р%. Определить общую стоимость оборудования за n лет. Заранее спасибо.... Если можно полностью решение.
C++ Нужно написать программу на си++ что бы работала в деф си++ вот задача. Задано трехзначное число. Определить сколько едениц. десятков и сотое содержит число... Помогите пожалуста. Заранее спасибо.... Если можно полностью решение написать!!! подробнее

Показать сообщение отдельно
litelpp
3 / 3 / 1
Регистрация: 03.05.2010
Сообщений: 69

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

14.03.2012, 22:52. Просмотров 295. Ответов 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, возможно ли заделать такую же програму только на Си.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru