Приклади програм
Перетворення з маленької літери у велику
program example1;
var word: String;
begin
word := 'pascal';
word[1] := UpCase (word[1]);
WriteLn(word);
end.
Порахувати число пробілів у рядку
program example2;
var
str: string;
function CountSpaces (s: string): integer;
var
i, count: integer;
begin
count := 0;
for i:=1 to length(s) do
if s[i]=' ' then
count := count+1;
WriteLn(count);
end;
Знайти корені квадратного рівняння
program example3;
var a, b, c, d, x1, x2 : Real;
begin
Writeln ('Введіть коефіціенти');
Readln (a, b, c);
d := b*b - 4*a*c;
if d < 0 then WriteLn ('Немає коренів!')
else
begin
x1 := (-b+Sqrt(d))/2/a;
x2 := (-B-Sqrt(d))/2/a;
Writeln ('x1=', x1:8:3, ' x2=', x2:8:3)
end;
end.
Знайти кількість цифр у числі
program example4;
var
number, n: integer;
begin
Writeln('Введіть ціле число');
Readln(i);
n:=1;
While number > 10 DO
begin
number := number div 10;
Inc(n);
end;
Write('Количество цифр = ', n);
Readln;
end.
|
