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

переоброзавать из паскаля в с++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ написанием функции 100системы оценивания http://www.cyberforum.ru/cpp-beginners/thread106810.html
help! обьясните или покажите хоть как примерно будет выглядить код Написать функцию, которая получает оценку студента по 100 бальной системе и возвращает оценку в 12 бальной системе. За основу...
C++ поменять местами мин и мах дано масив одномерный и нужно найти мин и мах и поменять их местами. как найти мин и мак я знаю а вот как поменять местами помогите.. Добавлено через 3 минуты #include <iostream>... http://www.cyberforum.ru/cpp-beginners/thread106804.html
C++ Вычислить площадь треугольника по формуле Герона
ВЫЧЕСЛИТЬ ПЛОЩАДЬ ТРЕУГОЛЬНИКА ПО ФОРМУЛЕ ГЕРОНА S=√p(p-a)(p-b)(p-c) где p-полупериметр a,b,c-стороны
Массив.Сортировка методом обмена. C++
Дан целочисленный массив A из N точек. Расположить значения данного массива по убыванию в диапазоне между максимальным и минимальным значениями. Максимальное и минимальное значение не входят в...
C++ Для заданного текста определить длину содержащейся в нем максимальной серии символов http://www.cyberforum.ru/cpp-beginners/thread106771.html
Для заданного текста определить длину содержащейся в нем максимальной серии символов, отличных от латинских букв
C++ Найти такие k, что k-я строка матрицы совпадает с k-м столбцом Для заданной матрицы размером N x N найти такие k, что k-я строка матрицы совпадает с k-м столбцом. С помощью массива. подробнее

Показать сообщение отдельно
lp_4eva
Учусь...
59 / 2 / 1
Регистрация: 20.03.2010
Сообщений: 167

переоброзавать из паскаля в с++ - C++

20.03.2010, 15:43. Просмотров 291. Ответов 0
Метки (Все метки)

C++
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
program p367;
uses Crt;
var
 a: array [1..3] of integer;
 b: array [1..3,1..3] of integer;
 i, j: byte;
 
begin
 ClrScr;
 writeln('введите три элемента массива А');
 write('a[1]-? '); readln(a[1]);
 write('a[2]-? '); readln(a[2]);
 write('a[3]-? '); readln(a[3]);
 
writeln;
writeln('массив B');
 for i:=1 to 3 do
   begin
     for j:=1 to 3 do
       begin
         b[i,j]:=a[i]-3*a[j];
         write(b[i,j]:4);
       end;
     writeln;
   end;
 
 ReadKey;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru