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

Немогу найти ошибку - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ как узнать трафик? http://www.cyberforum.ru/cpp/thread124015.html
как узнать трафик? Вот я создал форму интернет и там названия сайтов где я хожу, С двумя обновляемыми надписями (доступен - то есть модем подключен к розетке) и (подключен - это у же мышкой с компьютера), а как сделать чтобы можно бы узнать трафик вход/исходящий, подскажите.;D
C++ Сортировка c вычислением адреса Никак не могу разобратса в алгоритмен сортировка c вычислением адреса. Нужен исходный код http://www.cyberforum.ru/cpp/thread123929.html
XML ошибка формата C++
не знаю куда еще написать, браузер при открытии xml пишет XML Parsing Error: not well-formed Location: file:///home/fuckoff/%D0%94%D0%BE%D0%BA%D1%83%D0%BC%D0%B5%D0%BD%D1%82%D1%8B/C%20and%20C++%201/lesson01/index.xml Line Number 2, Column 6:<?xml:stylesheet type="text/xsl" href="common/layout.xsl" ?> -----^ подскажите что исправить плз, просто сам не шарю, только начинаю изучать...
Найти количество символов "с" в строке S C++
kolc - найти количество символов "с" в строке S int kolc (char*s, char c). Значение функции - количество символов. Прога должна быть на С. Помогите, пожалуйста и, если возможо, пояснить что к чему. :)
C++ Правильное чтение из файла! http://www.cyberforum.ru/cpp/thread123639.html
Помогите пожалуйста, уже опробовал все((( Суть задачи такая, есть файл data.txt в нем есть числа выглядит он так: 200,100,100, 100, 300 Ниже представлен код программы, которая просит ввести путь к файлу читает его и суммирует содержимое данного файла, сумма выводиться на экран. Проблема в том, что программа читает первую строчку а остальные не читает. Помогите дополнить код так чтобы...
C++ Функции! Приношу свои извинения за этот глупый вопрос, я начинающий программист и сейчас прохожу урок Функции, но не могу понять, очень не понятно описывается, подскажите что такое функции и для чего они нужны? Я знаю только одну функцию это Main! (Надеюсь не кого это не насмешило :) ) подробнее

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

Немогу найти ошибку - C++

01.05.2010, 09:38. Просмотров 405. Ответов 2
Метки (Все метки)

пытался перевести с помощью транслятора программу с паскаля на си, но выдает ошибку... почему не понимаю


программа:


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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
program pr1;
uses crt;
const WG=100;
type tmasi=array[1..WG] of integer;
var a:tmasi; n,kl:byte;
(*процедура ввода*)
procedure pr_wod(kl:byte; var n:byte; var mas:tmasi);
var i:byte;
begin
   if n=0 then begin
                  writeln('размерность массива');
                  readln(n);
               end;
   (*контроль значения переменной*)
   while n>WG do
   begin
     writeln('неверно ввёл попробуй ещё раз');
     readln(n);
   end;
     if kl=1 then randomize;
     for i:=1 to n do
     case  kl of
     1:mas[i]:=random(201)-100;
     2:begin
         writeln('введи ',i,' элемент массива');
         readln(mas[i]);
       end;
     end;
end;
(*процедура вывода*)
procedure pr_out(n:byte; mas:tmasi);
var i:byte;
begin
  for i:=1 to n do
  write(mas[i]:6);
  writeln;
end;
(*функция нахождения отр. элемента*)
function f_otr(n:byte; mas:tmasi):byte;
var i:byte;
begin
  f_otr:=0;
  for i:=1 to n do
  if mas[i]<0 then begin
                     f_otr:=i;
                     break;
                   end;
end;
(*функция нахождения суммы отр. элементов массива*)
function f_sum(n:byte; mas:tmasi):integer;
var i:byte; sum:integer;
begin
  sum:=0;
  for i:=1 to n do
  if mas[i]<0 then 
  sum:=sum+mas[i];
  f_sum:=sum;
end;
(*процедура работы с отрицательными элементами*)
procedure pr_otr_el(n:byte;var a:tmasi);
var i,j,pos:byte; sum:integer;
begin
  pos:=f_otr(n,a);
  if pos=0 then begin
                  writeln('В массиве отсутствуют отрицтельные элементы');
                  exit;
                end;
  sum:=f_sum(n,a);
  for i:=1 to pos-1 do
  a[i]:=sum;
  writeln('Первый отрицательный элемент- ',a[pos]);
  writeln('Сумма отрицательных элементов- ',sum);
  writeln('Массив переформирован');
  writeln;
end;
begin
  while true do
  begin
    repeat
    writeln('1- создать массив из целых чисел;');
    writeln('2- вывод элементов одномерного массива;');
    writeln('3- работа с отрицательными элементами массива;');
    writeln('4- конец работы.');
    readln(kl);
    until kl in [1..4];
    case kl of
    1:begin
        pr_wod(2,n,a);
        ClrScr;
        writeln('Массив введен');
      end;
    2:begin
      if n=0 then begin
                    n:=20;
                    pr_wod(1,n,a);
                  end;
      writeln('Массив');
      pr_out(n,a);
      end;
    3:begin
          pr_otr_el(n,a);
          writeln('Пункт выполнен');
          writeln;
      end;
    4:exit;
    end;
  end;
end.

транслятор move_space (нашел в какойто из тем...)
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru