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

Перевести код из Pascal на С++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Структура воинской службы http://www.cyberforum.ru/cpp-beginners/thread1039783.html
Известны данные о 16 сотрудниках фирмы: фамилия и отношение к воинской службе (военнообязанный или нет). Напечатать фамилии всех военнообязанных сотрудников.Только чтобы фамилии в ручную не пришлося вводить.
C++ Программа в С++.Классы Есть программа для решения линейных уравнений методом неполной релаксации,но не использованы классы.Помогите пожалуйста использовать классы в данной программе. #include<iostream.h> #include<math> int maximal(int n, double R0){ int i,f; f=0.0; http://www.cyberforum.ru/cpp-beginners/thread1039781.html
C++ прямоугольный треугольник из символов
Вот, еще 4 задачи, помогите химикам)) Программа просит ввести символ после чего, рисует из них прямоугольный треугольник, стороной которого является число, задаваемое оператором.
graphics.h C++
В Visual Studio 2012 не могу подключить graphics.h и <alloc.h>. В программировании новичок, и не могу сам решить эту проблему ...ПОМОГИТЕ ОЧЕНЬ НАДО!!!
C++ Создать программу, которая будет определять с какой буквы вы ввели слово с А, с Б или с В и выводить об этом сообщение http://www.cyberforum.ru/cpp-beginners/thread1039765.html
Ребят, нужна помощь. С++ Создать программу, которая будет определять с какой буквы вы ввели слово с А, с Б или с В и выводить об этом сообщение.
C++ Программа в С++.Классы Есть программа для решения линейных уравнений методом неполной релаксации,но не использованы классы.Помогите пожалуйста использовать классы в данной программе. #include<iostream.h> #include<math> int maximal(int n, double R0){ int i,f; f=0.0; подробнее

Показать сообщение отдельно
DaStAn1996
0 / 0 / 0
Регистрация: 09.12.2013
Сообщений: 19
13.12.2013, 10:36     Перевести код из Pascal на С++
Перевести код из Pascal на С++:
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 
 book=Record 
 fam: String; 
 pred: String; 
 st: Byte; 
 nagr: Byte; 
 end; 
 Var 
 x: Array [1..20] of book; 
 i,n: Integer; 
 BEGIN 
 Clrscr; 
 Writeln('Введите кол-во учителей: '); Readln(n); 
 For i:=1 to n do 
 begin 
    Write('Фамилия учителя: '); Readln(x[i].fam); 
    Write('Предмет: '); Readln(x[i].pred); 
    Write('Стаж: '); Readln(x[i].st); 
    Write('Нагрузка: '); Readln(x[i].nagr); 
 end; 
 Writeln('Список тех учителей школы, которые преподают математику и информатику:'); 
 For i:=1 to n do 
 If (x[i].pred='Математика') or (x[i].pred='Информатика') Then 
 begin 
    Writeln(x[i].fam); 
    Writeln(x[i].st); 
    Writeln(x[i].nagr); 
    Writeln('--------'); 
 end; 
 Readln 
 END.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 15:07. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru