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

перевод с pascal на c++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Программы на языке С http://www.cyberforum.ru/cpp-beginners/thread206241.html
Помогите пожалуйста написать программы на языке С... 1. Объявить тип данных, который позволит задать значение определённого типа (double) и исследовать побайтово это значение. Выделить поля...
C++ Найти в строке тройку слов таких, что из букв двух слов можно получить третье Найти в строке тройку слов таких, что из букв двух слов можно получить третье (при составлении этого слова следует использовать все буквы двух других). Если таких троек несколько, вывести ту, которая... http://www.cyberforum.ru/cpp-beginners/thread206240.html
C++ Массивы, очень срочно, скоро зачетная неделя, а по с++ все туго)))))
Найти в массиве натуральных чисел самое большое подмножество элементов, в котором любые два элемента имеют одинаковое множество простых делителей. Помогите, пожалуйста, кому нетрудно))
Циклическая структура C++
Столкнулся с такой проблемой. При попытке вывести структуру получаю сообщение об ошибке памяти а указатель ошибки указывает на строку "while (cur->next!=start){" в этом коде. Что может быть не так?...
C++ Разложение числа на цифры (где ошибка?) http://www.cyberforum.ru/cpp-beginners/thread206225.html
Надо разложить четырехзначное число на цифры. Вот мой код: #include <stdio.h> void main() { int N,a,b,c,d; printf("Введите четырехзначное число N:"); scanf("%d",&N); a=N/1000;
C++ функции Необходимо вычислить и вывести на экран все значения математической функции F на интервале от x = -10.0 до x = 10.0 с шагом 1.0. Вычисление значения функции F необходимо выполнить с использованием... подробнее

Показать сообщение отдельно
Balthazar
0 / 0 / 0
Регистрация: 08.12.2010
Сообщений: 5

перевод с pascal на c++ - C++

08.12.2010, 18:51. Просмотров 256. Ответов 0
Метки (Все метки)

помогите перевсти программу на с++
uses crt;
var t:text;
st:string;
i,j,k:byte;
o:char;
begin
assign(t,'text.txt');
writeln('Введите арифметическое выражение: ');
rewrite(t);
repeat
readln(st); write(t,st);
write('продолжать ввод? (y/n)'); read(o);
for i:=2 to length(st) do begin
if st[i-1] in ['+','-','*','/'] then
if st[i] in ['+','-','*','/'] then
inc(j);
end;
for i:=2 to length(st) do begin
if (st[i-1] in ['0'..'9']) and (st[i] in [' '])
and (st[i+1] in ['0'..'9'])then inc(j);
if (st[i-1] in ['+','-','*','/']) and (st[i] in [' '])
and (st[i+1] in ['+','-','*','/'])then inc(j);
end;
if j=0 then
writeln(t,' - выражение записано верно!')
else
writeln(t,' - выражение записано не верно!');
until o='n';
close(t);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru