Question

PILNE!!

Potrzebuję przykładów działania div i mod w Programowaniu w Turbo Pascalu tak,żeby wynik był wpisany od tyłu (np.wynik to 49,a ma być wpisane 94)

i takie pytanie.. Czy length można w powyższym programie użyć?

Dam naj!

Z góry dzięuję za pomoc

Answer 1

Podstawowe działania matematyczne  +   - dodawanie - np. wynik := a+b;
  -   - odejmowanie - np. wynik := a-b;
  *   - mnożenie - np. wynik := a*b;
  /   - dzielenie - np. wynik := a/b;
  div   - dzielenie całkowite - np. wynik := a div b;
  mod   - reszta z dzielenia - np. wynik := a mod b;
  sqrt   - pierwiastek 2 stopnia - np. sqrt(a);
  sin   - sinus - np. sin(a);
  cos   - cosinus - np. cos(a);
  sqr   - kwadrat liczby - np. sqr(a);
  abs   - wartość bezwzględna - np. abs(a); PROGRAM matma;

VAR
  liczba1, liczba2, wynik: integer;    operator: char;
BEGIN
  write ('Pierwsza liczba: ');
  readln (liczba1);
  write ('Operator (*,-,+,d,m): ');
  readln (operator);
  write ('Druga liczba: ');
  readln (liczba2);
    case operator of
      '+': wynik := liczba1 + liczba2;
      '-': wynik := liczba1 - liczba2;
      '*': wynik := liczba1 * liczba2;
      'd': wynik := liczba1 div liczba2;
      'm': wynik := liczba1 mod liczba2;
    else
      writeln ('Podales zly znak!');
    end;
  writeln ('Wynik: ',wynik);
  readln;
END.

 

Program sprawdzony !!! Działa

length mozna uzyc zawsze, jednak działa on tylko ze zmiennymi tekstowymi, a tu masz zmienne integer (liczby całkowite) po przerobieniu liczby na tekst można oczywiście zastosować lenght. Ale po co ?