VPF::Числа 1 и 0 - Форум программистов

banan

Дата 8.12.2004, 21:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 53
Регистрация: 21.11.2004
Где: Киев

Репутация: нет
Всего: нет

Вводится число которое состоит с двох чисел(1 и 0).Например:0110,0111,011111110 и тд.
Если количество единиц равно количеству нулей написать:Y.Например:1100 Если число начинается с нуля написать:R .Если количество 0 не равно количеству 1 написать:N.
Пример:
1100
Y
110
N
0011
R

Spaun

Дата 8.12.2004, 22:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 4.12.2004

Репутация: нет
Всего: нет

А сделоть-то что нужно?

Pakshin A. S.

Дата 8.12.2004, 22:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61

Код


var
 c;char;
 c1,c0:integer;
begin
 write('Введите число -> ');
 read(c);
 c1:=0;
 c2:=0;
 while c <> #13 {вроде enter...} do
  begin
   if (c = '0') and (c1 + c2 = 0)
    then
     begin
      write('R');
      while c <> #13 do
       read(c);
     end
    else
     if c = '0'
      then
       inc(c0) 
      else
       inc(1);
    read(c);
  end;
 if c1 = c0
  then 
   write('Y')
  else
   write('N');
 readln;
 readln;
end.

Это для одного... для нескольких сам переделаешь... smile

Добавлено @ 22:27

Цитата(Spaun @ 8.12.2004, 23:18)

А сделоть-то что нужно?

решить зедечу... smile

Mixasik

Дата 14.11.2006, 19:55 (ссылка)

(нет голосов)

Загрузка ...

Little Delphi monstr

Профиль
Группа: Участник
Сообщений: 195
Регистрация: 4.10.2006
Где: Волгоград

Репутация: нет
Всего: нет

Код


Uses crt;
Var st:string;
    i,b,s:byte;
Begin
 b:=0;s:=0;
 Writeln('Vvedite chislo');
 Readln(st);
 If st[1]='0' then Write('R') else
  Begin
   For i:=1 to length(st) do
    Begin
     If st[i]='0' then b:=b+1;
     If st[i]='1' then s:=s+1;
    End;
    If b=s then Write('Y') else Write('N');
 End;
 Readkey;
End.

Если я правильно понял то вот так.

Это сообщение отредактировал(а) Mixasik - 14.11.2006, 19:57

volvo877

Дата 14.11.2006, 20:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Mixasik, у тебя одна переменная явно лишняя smile

Код

Uses crt;
Var st:string;
    i,s:byte;
Begin
  s:=0;
  Writeln('Vvedite chislo');
  Readln(st);
  If st[1] = '0' then Write('R')
  else begin

    for i := 1 to length(st) do
      if st[i] = '0' then s := s + 1
      else s := s - 1;

    If s = 0 then Write('Y') else Write('N');

  end;
  Readkey;
End.

Mixasik

Дата 14.11.2006, 21:21 (ссылка)

(нет голосов)

Загрузка ...

Little Delphi monstr

Профиль
Группа: Участник
Сообщений: 195
Регистрация: 4.10.2006
Где: Волгоград

Репутация: нет
Всего: нет

Цитата(volvo877 @ 14.11.2006, 20:54

)

Mixasik, у тебя одна переменная явно лишняя

Действительно, я о таком варианте даже не подумал)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »