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

Перевод из Паскаля в Си++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Как называется и что означает такая форма объявления объекта (конструктор) http://www.cyberforum.ru/cpp-beginners/thread840517.html
Конструктор явно вызывать нельзя, но эта форма записи у меня часто ассоциируется с "явным" вызовом конструктора. Как правильно это называть и объяснить человеку что происходит? MyClass obb; obb...
C++ Определите поезда, которые отправляются с 21 до 23 часов Определите поезда, которые отправляются с 21 до 23 ч. Информация о поездах (город назначения и время отправления) хранится в соответствующих массивах. http://www.cyberforum.ru/cpp-beginners/thread840508.html
Задача в С++ C++
Составьте программу для решения следующих задач. Программы снабдите подробными комментариями. Подготовьте блок-схему алгоритма. 1. Дана последовательность натуральных чисел а1, а2,..., аn....
Операция new. Указатель на указатель C++
Всем aloha. Проблема в следующем: в своей програмке я создаю указатель на указатель person** ptrP затем инициализирую его массивом указателей на объекты класса person person** ptrP = new person*...
C++ Удаление из массива а)Все четные элементы б)Все элементы с четными индексами http://www.cyberforum.ru/cpp-beginners/thread840491.html
помогите=)
C++ Даны натуральные числа а1, а2,., а n . Указать те из них, у которых остаток от деления на М равен L, где (0 ≤ L ≤ M-1) Даны натуральные числа а1, а2,..., аn . Указать те из них, у которых остаток от деления на М равен L, где (0 ≤ L ≤ M-1) подробнее

Показать сообщение отдельно
gigas
7 / 1 / 1
Регистрация: 30.11.2012
Сообщений: 91

Перевод из Паскаля в Си++ - C++

17.04.2013, 14:48. Просмотров 202. Ответов 0
Метки (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var kr:array[1..100] of real;
    br:array[1..100] of string;
    n,i:integer;
begin
clrscr;
write('Количество бригад n=');
readln(n);
writeln('Введите данные:');
for i:=1 to n do
 begin
  writeln('Бригада ',i);
  write('  Название: ');readln(br[i]);
  write('  Результат(тонн): ');readln(kr[i]);
 end;
writeln('Не выполнили план в 1 тонну:');
for i:=1 to n do
if kr[i]<1 then writeln(br[i]);
readln
end.
Ребят помогите перевести программу

 Комментарий модератора 
Используйте теги подсветки кода
Перевод из Паскаля в Си++
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru