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

Программа неправильно работает

30.10.2010, 14:40. Показов 506. Ответов 2
Метки нет (Все метки)

Здравствуйте!!!Помогите кто может.Перебрала разные варианты...и все равно не выходит.
Написала пару программ на вывод.Но обе работают немного не так как нужно.Первая программа должна в итоге выводить +++--++----- в хаотическом порядке,пока ее не остановит пользователь.Вторая программа представляет первую в n- мерном случае.В ней заместо + и - могут быть числа и их может быть n штук.
первая программа:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program Consol;
var
  a,y,s:integer;
begin
  while (y<>0) do
  begin
    a:=0;
      while (a<100000) do
      begin
        write('+');
      end;
      while (a<100000) do
      begin
        write('-');
      end;
      write;
      readln(s);
      y:=s;
   end;
end.


вторая программа:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program Consol;
type
  vector= array [1..100] of integer;
var
  a,y,i,n:integer;
  k: vector;
begin
  writeln('VVedite n - kolichestvo potokov');
  readln(n);
  for i:=1 to n do
  begin
    writeln('Vvedite simvol potoka');
    readln(k[i]);
  end;
  {dly ostanovki vvivoda na ecran  nuzhno vvesti 0}
  while (a<>0) do
    begin
      writeln(k[i]);
      readln(y);
      a:=y;
    end;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.10.2010, 14:40
Ответы с готовыми решениями:

множества. Программа работает неправильно
uses crt; type mn=set of char; var a,b,c:mn; x,y,z:char; procedure enter(var a,b,c:mn); ...

Неправильно работает программа со списками
Пишу программу для работы магазина аудио-CD с использованием списков. Делал по примеру аналогичной...

Не могу понять, почему программа работает неправильно( Знаю, что где-то ошибки, но не могу найти
{Ввести последовательность натуральных чисел Aj j=1...n (n&lt;=1000). Упорядочить последовательность...

Сортировка неправильно работает
сортировке первых 5-ти чисел по возрастанию меняет первый и последний элементы : program...

2
36 / 37 / 13
Регистрация: 10.10.2010
Сообщений: 115
30.10.2010, 14:49 2
первая

Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
var choise:real;
begin
 randomize;
 writeln('Äëÿ îñòàíîâêè íàæìèòå ëþáóþ êëàâèøó.');
 repeat
  choise:=random;
  if choise>0.5 then write('+')
  else write('-');
 until KeyPressed;
end.
Добавлено через 3 минуты
насчёт второй, не понял, n - это кол-во выводимых символов(то есть без остановки пользователя, печатаем n штук), или это диапозон для выводимых чисел (то есть печатаем пока не остановит пользователь числа от 1 до n)?
1
0 / 0 / 0
Регистрация: 26.10.2010
Сообщений: 3
30.10.2010, 15:24  [ТС] 3
Спасибо большое))
Нет. Вот в первой мы сразу же задаем два символа "+" и "-".А во второй мы эти символы должны ввести с клавиатуры и потом эти символы вывести в хаотическом порядке как + и -.
Например n=5.Пусть зададим символы не + и -, а 1,2,3,4,5.Тогда в итоге программа должна выдавать 1123452431242222224515132222232455555 в хаотическом порядке.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.10.2010, 15:24

Неправильно работает процедура
Вот сама задача: Разработать модуль для работы с комплексными числами, представленными в...

Почему неправильно работает сортировка?
сортировка: for i := 1 to n-1 do begin if gruppa1.grupa&gt;gruppa1.grupa then begin ...

Простая процедура неправильно работает
Решил я сделать модуль и там одна процедура: procedure sumpro (a, b, w1, w2 : integer); begin ...

Процедура Intersection работает неправильно
помогите пожалуйста очень срочно надо. тупит процедура Intersection когда запускаешь пишет кучу...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.