В состав алфавита языка Паскаль входит:
Символы для составления переменных-
латинские(строчные, прописные)
 символ "_"
 цифры (0..9)
Символы разделители (пробельные символы)
Составные символы - особенная группа символов, которая 
 воспринимаются компилятором как 
 один символ "<=", ":=",">=", "..", "//" "<>" "(*" "*)"
Зарезервированные слова- слова, несущие определенное 
 смысловое значение для компилятора
Спец-символы- символы, которые предназначены для построения 
 конструкций языка, в Паскале это:
 ' - + / * : ; = { } [ ] ( ) $ и т.п

На самом деле их больше, но это основные.

0 0

4 года назад

Составьте программу сложения двух простых дробей. Результат должен быть несократимой дробью. Используйте подпрограмму вычисления

JaneJane1512 [48]

===== PascalABC.NET =====

function GCD(a, b: integer): integer;// НОД

begin

while b <> 0 do

begin

a := a mod b;

Swap(a, b)

end;

Result := a

end;

procedure RedFrac(var a, b: integer);// сокращение дроби

begin

var sgna := Sign(a); // мы должны учитывать знак!

var sgnb := Sign(b); // мы должны учитывать знак!

a := Abs(a);

b := Abs(b);

var d := GCD(a, b);

a := (a div d) * sgna;

b := (b div d) * sgnb

end;

begin

var (p1, q1) :=

ReadInteger2('Дробь 1. Введите числитель и знаменатель:');

var (p2, q2) :=

ReadInteger2('Дробь 2. Введите числитель и знаменатель:');

var p3 := p1 * q1 + p2 * q2;

var q3 := q1 * q2;

RedFrac(p3, q3);

Println(p3, '/', q3)

end.

0 0

5 лет назад