Головна | Приклади програм | Реєстрація | Вхід
Ви увійшли як Гість | Група "Гості" | RSS   П`ятниця, 14.12.2018, 22:51
Меню сайту
Категорії розділу
Нормативно-правові документи [10]
Навчальні програми [6]
Календарні плани [13]
Розробки уроків [4]
Контрольні та тестові роботи [2]
Бібліотека [9]
Олімпіади, конкурси [18]
Позакласна робота [1]
ДПА з інформатики [3]
Тести [2]
Документація кабінету інформатики [2]
Soft [14]
Статистика

Онлайн всього: 1
Гостей: 1
Користувачів: 0
Форма входу

Приклади програм

Перетворення з маленької літери у велику

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.


Календар
«  Грудень 2018  »
ПнВтСрЧтПтСбНд
     12
3456789
10111213141516
17181920212223
24252627282930
31
Пошук

Архів записів
Друзі сайту
 

Copyright Nico - Заболотний Микола Григорович © 2018Безкоштовний конструктор сайтів - uCoz