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

Перевод с Pascal на C++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Ввод строки , результат число http://www.cyberforum.ru/cpp-beginners/thread413158.html
Вводится строка например "5+5*5/6-7=" нужно посчитать чему она равна с учетом приоритета операторов. Подскажите пжлст:P
C++ консольное приложение.запись в файл, некорректный вывод содержимого файла. #include "stdafx.h" #include "string.h" #include "locale.h" #include "conio.h" //Определение структуры данных - канцелярских товаров struct TOfficeEquip { char* kind; float dlinaK; float plS; http://www.cyberforum.ru/cpp-beginners/thread413152.html
Дан символ и строка, удвоить каждое вхождение символов в строку C++
Дан символ и строка, удвоить каждое вхождение символов в строку! кто может помочь?) помогите пожалуйста!
C++ файлы
Получить списки студентов заданной группы, пропустивших занятия отдельно по уважительной и неуважительной причинам с указанием часов пропуска. Добавлено через 7 минут #include <iostream> #include "stdio.h" #include"iomanip" #include <string.h> using namespace std; struct data{ char name;
C++ Построить таблицу значений функции z=sh*(x+y)-sh*(x-2y)/sh*sh*(x-y) http://www.cyberforum.ru/cpp-beginners/thread413140.html
Построить таблицу значений функции z=sh*(x+y)-sh*(x-2y)/sh*sh*(x-y) , где x меняется от 1 до 2 с шагом 0,2; y меняется от 2 до 3 с шагом 0,1. Вычисление
C++ Найти количество первых целых положительных чисел, сумма которых не превышает S. Значение S вводить с клавиатуры. Найти количество первых целых положительных чисел, сумма которых не превышает S. Значение S вводить с клавиатуры. подробнее

Показать сообщение отдельно
Ru1n
Сообщений: n/a
22.12.2011, 08:36     Перевод с Pascal на C++
Задача на картинке: Ссылка на картинке

Буду очень признателен, кто поможет с решением, или хотя бы с частью решения

Добавлено через 31 минуту
Вот что получилось в паскале, но надо в С++

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
x,y,maxx,maxy:real;
i,j,t:integer;
s:string;
 
begin
  try
x:=0;
maxx:=0;
   repeat
         y:=0;
             if x<=1 then
             repeat
     if (x-1)*(x-1)+y*y<=1 then s:= ' DA ' else s:=' NET ';
     write(' x=',x:3:1,' y=',y:3:1,s);
             if s=' yes ' then
                    if x>maxx then
                        begin
                        maxx:=x;
                        maxy:=y;
                        end;
                inc(t);
             if t mod 2=0 then writeln;
             y:=y+0.3;
                until y>1.5
              else
                      repeat
      if (x-1)*(x-1)+y*y<=1 then s:=' DA 'else s:=' NET ';
      write(' x=',x:3:1,' y=',y:3:1,s);
                      if s=' yes ' then
                          if x>maxx then
                              begin
                              maxx:=x;
                              maxy:=y;
                              end;
                  inc(t);
             if t mod 2=0 then writeln;
                       y:=y+0.3;
                    until y>2.1 ;
   x:=x+0.6;
   until x>2;
write('tochka s max x vnutri kruga x=',maxx:3:1,' y=',maxy:3:1);
except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  sleep(60000); // показывать форму в течении 1 минуты
end.
Добавлено через 1 минуту
Помощь ещё нужна
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 02:11. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru