Процедуры и функции обработки строковых данных в Паскаль

• 1 слайд

  Процедуры и функции обработки строковых данных в Паскаль
  (урок 3)
  Жевтило Ирина Аскольдовна
  учитель информатики высшей категории
  

• 2 слайд

  Задача 1
  Определить разрядность числа, рассмотрев два варианта:
  Работа со строковыми данными
  Работа с числовыми данными
  

• 3 слайд

  Программа
  Program prim1;
  Var s: string;
  x, k: integer;
  Begin
  Writeln('введите число');
  Readln(x);
  Str( x, s);
  k:=length(s);
  Writeln('в числе ',k,' цифр');
  End.
  Program prim1_Ch;
  Var a, x, k : integer;
  Begin
  Writeln('введите число');
  Readln (a);
  X:=a; k:=0;
  While x>0 do begin
  K:=k+1;
  X:= x div 10;
  End;
  Writeln (a, ' - ', k ,' значное число');
  End.
  

• 4 слайд

  Задача 2
  Составить программу перевода десятичного числа в двоичное
  

• 5 слайд

  Var s1,s2: string;
  k,x,a:integer;
  begin
  write('a=');
  readln(a);
  s1:= '';
  x:=a;
  While x>0 do
  begin
  k:= x mod 2;
  str (k,s2);
  s1:=s2+s1;
  X:= x div 2;
  End;
  writeln(a, s1:10);
  end.
  

• 6 слайд

  Задача 3
  Составить программу перевода десятичного числа в n систему счисления (n<=9)
  

• 7 слайд

  Var s1,s2: string;
  n,k,x,a: integer;
  begin
  write('Введите десятичное число');
  readln(a);
  write('Введите основание системы счисления для перевода');
  readln(n);
  s1:= '';
  x:=a;
  While x>0 do
  begin
  k:= x mod n;
  str (k,s2);
  s1:=s2+s1;
  X:= x div n;
  End;
  writeln(a, s1:20);
  end.
  

• 8 слайд

  Задача 4
  Составить программу определения возраста человека по дате рождения и текущему году
  

• 9 слайд

  program string8;
  var s1,s2:string;
  n,g, let:integer;
  begin
  s1:='23.02.1995';
  s2:=copy(s1,7,4);
  val(s2,g,n);
  let:=2015-g;
  writeln(let);
  end.
  

• 10 слайд

  Задача 5. Переменные A и B содержат строки цифр. Найти сумму соответствующих чисел.
  Program prim5;
  Var A, B: string;
  S, x, y, n, k: integer;
  Begin
  Writeln('введите первое число');
  Readln(A);
  Writeln('введите второе число');
  Readln(B);
  Val(A, x, n);
  Val(B, y, k);
  S:=x+y;
  Writeln('сумма чисел равна ',S);
  End.