Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [PASCAL] даны знаки,определить есть ли данный

Автор: bulgar99 9.1.2009, 21:58

Даны номерные знаки трёх автомашин. Определить, есть ли среди них знак
"МНЗ 2754" и напечатать об этом сообщение

Автор: mr.Anderson 9.1.2009, 22:16

Код


program Numbers;
const
  Eq = 'МНЗ 2754';
var
  N1, N2, N3: String;
begin
  ReadLn(N1, N2, N3);
  if (N1 = Eq) or (N2 = Eq) or (N3 = Eq) then
    WriteLn('Есть такой номер среди заданных.');
  ReadLn;
end.

Кажись, нечто подобное.

Автор: bulgar99 9.1.2009, 22:20

и это все?) smile

круто ХДД спасибо smile

Автор: SneG0K 9.1.2009, 22:21

В каком формате номерные знаки даются?

Код


program znaki;

var
  znaki:array[0..2] of string;
  i:integer;
  tmp:string;

begin
  for i:=0 to length(znaki) do
  begin
    readln(tmp);
    if tmp = 'end' then
      break;
    znaki[i]:=tmp;
  end;
  
  readln(tmp);
  for i:=0 to length(znaki) do
  begin
    if znaki[i] = tmp then
    begin
      write('Знак находится под индексом');
      writeln(i);
      exit;
    end;
  end;
  writeln('Нету такого');
  readln;
end;

Автор: bulgar99 9.1.2009, 22:27

формат не указан, подобно данному значит все должны быть