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

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

Восстановить пароль Регистрация
Другие темы раздела
C++ Шифрование текста в файле http://www.cyberforum.ru/cpp-beginners/thread357189.html
проблема в то что в процессе работы программа должна считывать текст в файле и кодировать его. Прога работает нормально,т.е. кодирует декодирует текст при вводе его с клавиатуры, а в файле делает это не коректно(такой рандом выдает :)). #include "stdafx.h" #include <string.h> #include <stdlib.h> #include <locale.h> const char alphabet="abcdefghijklmnopqrstuvwxyz"; char mas; int...
C++ Составьте программу Составьте программу, проверяющую, образуют ли элементы двумерного массива магический квадрат( в магическом квадрате суммы чисел по всем вертикалям, всем горизонталям и двум диагоналям одинаковы). http://www.cyberforum.ru/cpp-beginners/thread357140.html
C++ Слейте две линейные таблицы А и В в новую таблицу С
Слейте две линейные таблицы А и В в новую таблицу С, поставив элементы таблицы А на нечетные места, а элементы таблицы В - на четные.
Даны коэфициенты квадратного уравнения a,b,c C++
Даны коэфициенты квадратного уравнения a,b,c. Найти действительные корни этого уравнения.
C++ Сист. Характеристики С++ http://www.cyberforum.ru/cpp-beginners/thread357123.html
У меня есть задание : "Напишите фрагмент программы на языке С++, который определяет системные характеристики компьютера и выводит их на экран." я еще новичек в системном программировании, подкиньте пожалуйста материал \ описание как это можно сделать, или порекомендуйте книгу где есть что то подобное.
C++ Учебник по Windows Form Application C++ Подскажите Учебник по Windows Form Application C++. подробнее

Показать сообщение отдельно
iMbateh
-6 / 0 / 0
Регистрация: 27.09.2011
Сообщений: 5
27.09.2011, 17:18     Перевести с Pascal на С++ . Знатоки
Pascal
1
2
3
4
5
6
7
var a, s: real;
begin
  write('Введите длину стороны квадрата ->');
  readln(a);
  s:=sqr(a);
  writeln('Площадь квадрата = ', s:6:2);
end.
Pascal
1
2
3
4
5
6
7
8
9
10
var s, d, l, r: real;
begin
  write('Введите площадь круга ->');
  readln(s);
  r:=sqrt(s/pi);
  d:=r*2;
  l:=2*pi*r;
  writeln('Диаметр окружности = ', d:6:2);
  writeln('Длина окружности = ', l:6:2);
end.
Pascal
1
2
3
4
5
6
7
8
9
var a, b: real;
begin
  write('Введите два числа ->');
  readln(a, b);
  writeln('Сумма модулей = ', abs(a)+abs(b):6:2);
  writeln('Разность модулей = ', abs(a)-abs(b):6:2);
  writeln('Произведение модулей = ', abs(a)*abs(b):6:2);
  writeln('Частное модулей = ', abs(a)/abs(b):6:2);
end.
Pascal
1
2
3
4
5
6
7
var x1, y1, x2, y2, d: real;
begin
  write('Введите координаты двух точек: (x1, y1) и (x2, y2) ->');
  readln(x1, y1, x2, y2);
  d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
  writeln('Расстояние между точками = ', d:6:2);
end.
Pascal
1
2
3
4
5
6
7
var a, b, sr: real;
begin
  write('Введите два числа ->');
  readln(a, b);
  sr:=sqrt(a*b);
  writeln('Среднее геометрическое = ', sr:6:2);
end.
Pascal
1
2
3
4
5
6
7
8
9
var x, d, e, y: integer;
begin
  write('Введите двузначное число ->');
  readln(x);
  d:=x div 10;
  e:=x mod 10;
  y:=e*10+d;
  writeln('Число наоборот = ', y);
end.
Pascal
1
2
3
4
5
6
7
var n, m: integer;
begin
  write('Введите количество секунд ->');
  readln(n);
  m:=n div 60;
  writeln('Минут = ', m);
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 12:22. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru