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

Переписать с Паскаля в с++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Графика winBGI в среде программирования dev-c++ http://www.cyberforum.ru/cpp-beginners/thread544577.html
Есть ли стандартная функция, которая позволила бы вставить картинку? И если можно подскажите какую-нибудь литературу по графике winBGI на русском языке
C++ Стек и очередь; хеш-таблица (помогите) Разработать подпрограммы, которые обеспечивают запросы на запись или чтение данных из очереди, стека или дека. Для организации указанных структур использовать массивы или списки. Проверить... http://www.cyberforum.ru/cpp-beginners/thread544574.html
C++ Файл: Изменить программу таким образом чтобы ввод исходных данных осуществлялся из файла, результат также должен выводиться в файл
Помогите разобраться с этой проблемой, исходную задачу я написал, а вот как считать из файла не получается. Необходимо изменить программу таким образом чтобы ввод исходных данных осуществлялся из...
C++ Портировать программу с графиком из Pascal в С++ (метод наименьших квадратов)
имеется код программы , которая реализует метод наименьших квадратов и строит графики. Может ли кто-то переписать код под С++ или рассказать как это сделать самой? Подскажите, пожалуйста, для чего...
C++ Сортировка матрицы построчно. http://www.cyberforum.ru/cpp-beginners/thread544552.html
Упорядочить все строки матрицы по числу элементов, кратных 3, т.е. на первое место поставить строку с наименьшим числом таких элементов и тд., на последнее место - с наибольшим числом таких...
C++ Найти число, полученное при прочтении цифр числа справа налево дано трёхзначное число.найти число, полученное при прочтении его цифр справа налево. помогите пожалуйста подробнее

Показать сообщение отдельно
Fox01
3 / 3 / 0
Регистрация: 04.03.2012
Сообщений: 55

Переписать с Паскаля в с++ - C++

10.04.2012, 20:07. Просмотров 323. Ответов 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
type
student=record
imy:string[30];
fam:string[30];
otch:string[30];
first:byte;
second:byte;
third:byte;
foer:byte;
five:byte;
end;
Var a:array[1..20] of student;
i:byte;
begin
for i:=1 to 20 do
begin
Writeln('familia');
readln(a[i].fam);
Writeln('imya');
readln(a[i].imy);
Writeln('otchestvo');
readln(a[i].otch);
Writeln('ruscii icenka');
readln(a[i].first);
Writeln('matematika');
readln(a[i].second);
Writeln('informatica');
readln(a[i].third);
Writeln('fisica');
readln(a[i].foer);
Writeln('literatura');
readln(a[i].five);
if ((a[i].first) and (a[i].second) and (a[i].third) and  (a[i].foer) and (a[i].five)) < 3
then Writeln('student ',a[i].fam,' ne cdal');
end;
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.