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

переведите с паскаля на с++.пожалуйста - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Проверить код на ошибки http://www.cyberforum.ru/cpp-beginners/thread904836.html
Всем привет! У меня есть программа, которая выполняет параллельное решения уравнения теплопроводности. Вот код: //Параллельное решение задачи /* Настройка среды программирования: */ #include "stdafx.h"
C++ Чтение 10-ой структуры из бинарного файла Здравствуйте как это реализовать, не перебирая все структуры. http://www.cyberforum.ru/cpp-beginners/thread904829.html
C++ Определить стоимость подписки с учётом приведённых условий.
Цена подписки на газету «Пресс-Курьер» на год определяется следующим образом: льготная подписка (при предъявлении квитанции за предыдущий год) на весь год–15 грн., подписка для тех, кто впервые станет постоянным читателем, – 18 грн., подписка для пенсионеров – 12 грн., подписка обыкновенная – 24 грн. Определить стоимость подписки с учётом приведённых условий.
Составить программу для вычисления значений заданной функции C++
Составить программу для вычисления значений заданной функции, используя исходные данные:
C++ Не получается исправить ошибку (Вводится диапазон, где 1-ое число-начало диапазона, 2-ое число приращени, 3-е число конец диапазона) http://www.cyberforum.ru/cpp-beginners/thread904814.html
Здравствуйте. Не могу исправить ошибку. Задание: Вводится диапазон, (например 5,1,10) где 1-ое число-начало диапазона, 2-ое число приращение (1 или -1), 3-е число конец диапазона. Обеспечить контроль существования диапазона. На выходе диапазоны записывать в следующем виде: range (<старт>, <приращение>, <финиш>) Например: 5...10 на выходе range (5,1,10) 5...0 на выходе range (5,-1,0) ...
C++ Функции. Не считает последнюю итерацию в цикле Добрый вечер. Не могу понять, почему в цикле не считает 12 итерацию. Ниже строка с комментарием. #include <iostream> #include <cmath> #include <stdlib.h> #include <conio.h> using namespace std; double qxx(double x, double result) { подробнее

Показать сообщение отдельно
Людка
0 / 0 / 0
Регистрация: 07.12.2012
Сообщений: 25

переведите с паскаля на с++.пожалуйста - C++

17.06.2013, 21:53. Просмотров 231. Ответов 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
38
uses  crt;
var i,j,n,k:integer;
a:array[1..100,1..100] of byte;
begin
Write ('Введите n=');
Readln(n);
clrscr;
k:=0;
j:=0;
i:=1;
while j<n do
begin
j:=j+1;
a[i,j]:=1;
end;
while i<n do
begin
i:=i+1;
a[i,j]:=1;
end;
while j>1 do
begin
j:=j-1;
a[i,j]:=1;
end;
while i>1 do
begin
i:=i-1;
a[i,j]:=1;
end;
for i:=1 to n do
  begin
   for j:=1 to n do
   write(a[i,j]:3);
   writeln
  end;
readln
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru