Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Информатика 9 класс. PASCAL. Есть ли цифра в числе? (http://www.tehnari.ru/f41/t257221/)

Сергей1123 21.12.2017 19:53

Информатика 9 класс. PASCAL. Есть ли цифра в числе?
 
В программу вводятся 2 значения: любое семизначное число и любая цифра. Если цифра есть в данном числе программа должна написать "ДА", если такой цифры нет программа должна написать "НЕТ". ТОЛЬКО НА PASCAL.

Vladimir_S 22.12.2017 11:43

Цитата:

Сообщение от Сергей1123 (Сообщение 2542660)
В программу вводятся 2 значения: любое семизначное число и любая цифра. Если цифра есть в данном числе программа должна написать "ДА", если такой цифры нет программа должна написать "НЕТ". ТОЛЬКО НА PASCAL.

Например, так:
Код:

Var
 S:String;
 C:Char;
 b1,b2:boolean;
 i:byte;

Begin
 Repeat
  b1:=TRUE;
  b2:=TRUE;
  Write('N = ');
  Readln(S);
  if length(S)<>7 then b1:=FALSE;
  if b1 then
  for i:=1 to 7 do
    if (Ord(S[i])<48) or (Ord(S[i])>57) then b2:=FALSE;
  if (b1=FALSE) or (b2=FALSE) then
  Writeln('Incorrect value! Repeat the inputing!')
 Until b1 and b2;
 Repeat
  b1:=TRUE;
  Write('C = ');
  Readln(C);
  if (Ord(C)<48) or (Ord(C)>57) then
  begin
    b1:=FALSE;
    Writeln('Incorrect value! Repeat the inputing!');
  end;
 Until b1;
 b1:=FALSE;
 i:=0;
 repeat
  Inc(i);
  if S[i]=C then b1:=TRUE;
 until b1 or (i=7);
 if b1 then Writeln('Yes!') else Writeln('No!');
 Readln
End.


AlexZir 22.12.2017 13:54

Владимир Игоревич, ну вы и завернули! :))

Vladimir_S 22.12.2017 17:00

Цитата:

Сообщение от AlexZir (Сообщение 2542826)
Владимир Игоревич, ну вы и завернули! :))

Лёш, да ничуть! Там если контроль правильности ввода числа и цифры убрать, то вообще три строчки останется. А совпадение удобнее IMHO проверять в строковом формате, чем, например, семизначное число на отдельные цифры раздраконивать.

AlexZir 24.12.2017 16:56

Да я и сам умею код читать. Просто для 9-го класса с учётом того, что ЯП только начали изучать, такие конструкции уж оченно подозрительно выглядят при проверке :))

Скорее всего там требовалось реализовать проверку с использованием длинных целых и целочисленного деления :))

Vladimir_S 24.12.2017 20:13

Цитата:

Сообщение от AlexZir (Сообщение 2543488)
Скорее всего там требовалось реализовать проверку с использованием длинных целых и целочисленного деления

Ой, да пожалуйста — тоже мне, проблема века!
Код:

Var
 N:LongInt;
 D,A:Byte;

Begin
 Write('N = ');
 Readln(N);
 Write('D = ');
 Readln(D);
 repeat
  A:=N mod 10;
  if A<>D then N:=N div 10;
 until (A=D) or (N=0);
 if A=D then Writeln('Yes!') else Writeln('No!');
 Readln
End.



Часовой пояс GMT +4, время: 05:15.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.