0 / 0 / 0
Регистрация: 15.12.2015
Сообщений: 1
1

Цикл: при прохождении цикла FOR программа неверно считает количество символов '+,-,*'

15.12.2015, 23:08. Показов 396. Ответов 1
Метки нет (Все метки)

Доброго времени суток!
У меня проблема с циклом FOR в Turbo Pascal'е. Проблема заключается в том, что при прохождении цикла FOR программа неверно считает количество символов '+,-,*', но это только при первом прохождении, а после считает всё верно (по крайней мере я так считаю ). Не могу понять где ошибка. Прошу помощи! Help me!
Вот сама программа:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Program P_L16_N1;
Var I,N,A,B,C:integer; S,M:Char;
Begin
 M:='N';
 While M='N' DO
  Begin
   A:=0; B:=0; C:=0;
   Write('Enter N='); Read(N);
   For I:=1 TO N DO
    Begin
     Write(I,'-symbol='); readln(S);
     If S='+' then inc(A);
     If S='*' then inc(B);
     If S='-' then inc(C);
    End;
   Writeln('Quantity "+" =',A);
   Writeln('Quantity "*" =',B);
   Writeln('Quantity "-" =',C);
   Writeln('Total quantity "+,*,-" =',A+B+C);
   Writeln('To finish the program (Y)Yes (N)No?'); Readln(M);
  End;
 Writeln('Program has finished work'); Readln;
End.
Пояснение к проблеме.
Например, если я введу 9 символов (три '+', три '*' и три '-'), то в ответе получу:
Quantity "+" = 2
Quantity "*" = 3
Quantity "-" = 3
Total quantity "+,*,-" = 8
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.12.2015, 23:08
Ответы с готовыми решениями:

Программа аварийно завершается при прохождении цикла
QVector<int> Set; QPair <int,int> Map; int c=0,Num,; srand(time(NULL)); ...

Неверно считает программа
Неверно считает программа в MathCAD метод Гаусса, помогите выяснить в чем причина, пожалуйста

Программа компилируется, но считает неверно
Программа компилируется ,но считает не верно. unit Unit1; interface uses Windows,...

Программа неверно считает результат
Здравствуйте! В общем, нужно было составить тест на любую тему. Я всё сделал, но программа...

1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
6176 / 3700 / 2560
Регистрация: 22.11.2013
Сообщений: 10,582
Записей в блоге: 1
16.12.2015, 00:07 2
Pascal
8
ReadLn(n);
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.12.2015, 00:07

Программа, которая считает количество парных(встречающихся 2 раза) символов в строке
Напишите программу, которая считает количество парных символов в строке. Вот программа которая...

Неверно считает количество раз открытий страницы
<?php session_start(); ?> <html> <head> <title> Использование сеансов </title>...

Какая здесь ошибка? Программа должна считать сумму в столбцах, но почему-то неверно считает
#include <iostream> #include <stdlib.h> main() { int S=0, a, Sum; for (int i = 1; i <=3; i++)...

При вводе букв или спец. символов программа уходит в цикл.
Всем доброго времени суток. Проблема такая, при запуске программы и вводе значений отличных от...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru