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

Нужно переписать код в паскаль - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Нужно найти ошибку http://www.cyberforum.ru/cpp-beginners/thread267125.html
Вот код программы: #include <stdio.h> #include <conio.h> #include <stdlib.h> #include <locale.h> int main(void) { setlocale (LC_ALL, "Russian");
C++ с функцией Очень прошу помогите начинающему решить задачу! ! ! :scratch: Найти среднее арифметическое значение функции f(x) в точках a,b,(a+b)/2, используя обращение к функции f=arctg(x)+ln^2*x^2; a=1, b=3. в старом компиляторе с пояснениями. буду благодарен :) http://www.cyberforum.ru/cpp-beginners/thread267096.html
Создать 2 структуры: DEC и POL C++
Cоздать 2 структуры: DEC, состоящую из названия точки и её декартовых координат и POL, состоящую из названия точки и её полярных координат. Считать из файла 10 точек в декартовых координатах. Перевести все точки в полярные координаты. Упорядочить их по Фи по убыванию. Найти название точки по введенному Фи. Заранее благодарен всем тем, кто поможет!!!
C++ функции..
Задать пункты решенного варианта в виде функций. #include <iostream> #include <iomanip> // для манипулятора setw() using namespace std; const int m=3, n=3; void output(int ); void qq(){cout<<"----------------------------------------------"<<endl;}; int main() { setlocale (LC_ALL,".1251"); int j, i, k, bufer, z;
C++ Оконно-текстовый интерфейс в графическом режиме http://www.cyberforum.ru/cpp-beginners/thread267069.html
Доброго всем времени суток!Я делал задачу в которой требовалось создать оконно-текстовы интрефейс с помощью графики...но под конец возникли проблемы: припопытке переключения с 4 пункта на 3 и выше (клавиша 8) ничего не происходит на экране,хотя если нажать один раз 8 то запуститься 3 пункт (вначале выделен 4)!!такая же проблема и если нажимать цыфру 2!! #include <conio.h> #include <stdlib.h>...
C++ Имена файлов для fstream. Всем привет. Как использовать разные имена файлов? Вот что у меня получилось... #include <iostream> #include <fstream> using namespace std; подробнее

Показать сообщение отдельно
snql
3 / 3 / 0
Регистрация: 16.02.2010
Сообщений: 26
30.03.2011, 19:42     Нужно переписать код в паскаль
Пробуйте.
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
var a, b, i: integer;
 
function simple(x:integer):boolean;
var i : integer;
begin
  i:=2;
  while (i <= round(x/2)) do
  begin
    if ((x mod i) = 0) then
    begin
      simple := false;
      exit;
    end;
    inc(i);
  end;
  simple := true;
end;
 
  
begin
  write('Enter a->');
  readln(a);
  write('Enter b->');
  readln(b);
  writeln;
  write('Result ->');
  i := a;
  while (i <= b) do
  begin
    if (simple(i) and (i >= 2)) then
      write(i, ' ');
    inc(i);
  end;
  readln; 
end.
 
Текущее время: 23:38. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru