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

Алгоритм на С/С++ не могу перевести в Паскаль! - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Очень редкий учебник по Си. Стивен Прат. http://www.cyberforum.ru/cpp-beginners/thread426623.html
Вот есть книга на гугле , "Язык программирования С. Лекции и упражнения. Стивен Прата" , может у кого то она есть , или кто-то поможет с ссылочкой. Нужна именно она. Помогите пожалуйста...Очень нужна. http://books.google.ru/books?id=SOLy5EmvkzsC&printsec=frontcover&hl=ru#v=onepage&q&f=false
C++ Необходимы пояснения по коду Здравствуйте знатоки C++. Прошу не бранить меня сильно за мои вопросы. Только начал изучать C++. Изучаю очереди. Нашел тут хороший топик - http://www.cyberforum.ru/cpp-beginners/thread178335.html . Из него почерпнул некоторые знания. Но есть не большой кусок кода, который я не могу понять. Если кто может, поясните мне данный код. А именно последние 2 строки кода. Что это за переменная tail? head... http://www.cyberforum.ru/cpp-beginners/thread426615.html
описание программы C++
#include <stdio.h> #define MIN(a, b) ( (a) > (b) ? (b) : (a) ) #define MAX(a, b) ( (a) < (b) ? (b) : (a) ) #define MIN3(a, b, c) ( MIN(MIN((a), (b)), (c)) ) #define MAX3(a, b, c) ( MAX(MAX((a), (b)), (c)) ) #define MIDDLE(a, b, c) ( (a) == MAX3((a), (b), (c)) ? MAX((b), (c)) : (a) == MIN3((a), (b), (c)) ? MIN((b), (c)) : (a) ) int main(void){ int a, b, c;
Стек: функция удаления и переприсвоение массива (Builder 6) C++ Builder
И еще, одна проблема, как всегда стек=/ Ребятки, помогите чем можете, пожалуйста- я замучалась.. есть задача на стек в архиве(сделана и работает) но есть одно но! Мне надо переделать функцию удаления элемента стека=( void udal(TStek & s) { // уменьшаем количество при наличии элементов if(s.kol>0)
C++ создание прошитого бинарного дерева http://www.cyberforum.ru/cpp-beginners/thread426564.html
есть файл fIn.txt A BC D_IF ___L то есть _ значает что потомка нет (например у B потомок только B, второго нет); , информация может быть какой угодно. Вопрос КаК построить это дерево если допустим я написал класс
C++ Определить номер той строки, в которой больше всего согласных букв Переведите, пожалуйста: Uses CRT; Var f,f2:text; s,s2:string; i,l,n1,n2,n,max,ind,c:integer; begin Assign(f,'D:\1.txt'); Assign(f2,'D:\2.txt'); подробнее

Показать сообщение отдельно
auqarisu
5 / 5 / 0
Регистрация: 11.04.2011
Сообщений: 77
12.01.2012, 01:26  [ТС]     Алгоритм на С/С++ не могу перевести в Паскаль!
Можете примерный вариант реализации на паскале показать?
я тут пытался вот результат:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
begin
     {otkrivaem fily}
     OpenFiles;
 
     while (not EoF(inf)) do
     begin
          n:=1;
          read(inf,s);
          phrase_num:=FindPhrase(n, s);
          if (phrase_num <> 1) then
             n:=phrase_num
          else
          begin
               write(outf, n:INDEX_LN, s:8);
               AddPhrase(n, s);
               n:=1;
          end;
     end;
 
     {zakryvaem faily}
     CloseFile;
end.
 
Текущее время: 23:07. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru