пʼятниця, 26 червня 2015 р.
середа, 24 червня 2015 р.
значення функції Ейлера мовою Паскаль
function gcd (A,B: longint): longint;
begin
while (A <> B) do
begin
if (A > B) then
Dec(A, B)
else
Dec(B, A);
end;
gcd := A;
end;
var
N: longint;
I,A: longint;
begin
WriteLn ('Input N: ');
ReadLn (N);
A := 0;
for I := 1 to N-1 do
if (gcd(I, N) = 1) then
Inc (A);
WriteLn ('The Euler Function of N is: ', A);
ReadLn;
end.
четвер, 28 травня 2015 р.
Онлайн посібник мови Pascal
Онлайн посібник мови Pascal
- Завантажити Паскаль (Turbo Pascal v7.0)
- Опис мови Pascal
- Середовище розробки Turbo Pascal v7.0
- Синтаксис та семантика
- Типи даних
- Змінні та константи
- Вирази
- Оператори введення і виведення
- Структура програми
- Організація розгалужень
- Оператор умовного переходу (if .. then .. else)
- Оператор вибору (case .. of .. end)
- Оператор безумовного переходу (goto)
- Цикли
- Процедури і функції
- Структуровані типи даних
- Файли
У вас є питання? Щось не розумієте? Будемо раді вас бачити на українському форумі програмістів.
пʼятниця, 8 травня 2015 р.
Прості задачі на складання програм мовою Pascal,
Практична робота ОПЕРАТОРИ МОВОЮ PASCAL
Дати відповіді на запитання:
А) X1 := 4*a + 2*b/(a – b); X2 :=int(b/a + sqr(b)); X3 :=int(b/a)+ frac(b/a);
Є)L1 := abs(100*sqrt(a*a)
-
1000*sqrt (b*b))) mod a.
Ж) V1:=2015 mod
(abs(9*b -
3*a)). V2:=2016 div
(abs(8*b -
2*a)).
2.Якщо А = 3,
В = 2, тоді
результати обчислень для
заданих операторів
А)W = НСД((A + B) div 1000, (A*B - 9) mod 10).
Б)Q = НСК((10*A + 100*B) mod 100, (10*A*B - 8) mod 10).
3. Якщо а = 3, b = 1, , тоді
результати обчислень для операторів:
А) P1 := (a3 + b2) div (a2 + b3); P2 := int((a2 + b4)/(a4 – b2));
Б) H1 := abs(7*b - 9*a) div (8*b - a); H1 := abs(8*b -12*a) mod (18*b -
a);
В) G1 := abs(3*b2 - 5*a) mod (abs(b2 - 4*a));
Г) F1 := abs(a*b-100) mod (b + a); F2 := abs(32*b-10) mod (b*b + a+3);
Д) D1 := int(abs( (a3 + b3)/(a2 – b2))) div (sqr(4*b));
Е) S1 := int((a4 - b4)/(a2
+ b2) div a) mod (3*b);
Є)T1 :=
int(100*sqrt(abs (a))
+ 10*sqrt (abs (b)))
mod (10*b –
2*a); .
4.Скласти алгоритм і
записати програму мовою Pascal, що:
А1) знаходить усі цифри, що є дільниками даного
трицифрового десяткового числа АВС, тобто утворює множину одноцифрових
дільників числа.
А2) знаходить усі числа, що є дільниками даного
двоцифрового десяткового числа АВ, тобто утворює множину дільників числа АВ.
А3) знаходить усі двоцифрові числа, що є кратними
для даного двоцифрового десяткового числа АВ , тобто утворює множину кратних
чисел для числа АВ.
А4) переставляє місцями цифру розряду сотень і цифру розряду одиниць для даного трицифрового
десяткового числа АВС, тобто будує число СВА і виводить його на екран.
А5) знаходить порівняння добутку та суми усіх цифр
даного трицифрового десяткового числа АВС і, тобто утворює нові числа С*В*А
та С+В+А, потім порівнює їх і виводить результат порівняння.
А6) знаходить усі цифри, що є дільниками даного трицифрового
десяткового числа АВС, тобто утворює множину одноцифрових дільників числа.
А7) знаходить найбільший спільний
дільник для двох двоцифрових чисел десяткового числа АВ та ВА.
А8) знаходить найменше спільне
кратне для двох двоцифрових чисел
десяткового числа АВ та ВА.
А9) знаходить найменшу цифру: а) у
двоцифровому числі; б) у трицифровому числі.
А10) знаходить найбільшу цифру: а) у
двоцифровому числі; б) у трицифровому числі.
А11) знаходить не найбільшу і не найменшу цифру: а) у
двоцифровому числі; б) у трицифровому числі.
четвер, 23 квітня 2015 р.
лекції для програмістів
Компьютерные технологии
- Программирование для всех (Python) (10 недель, 1 июня, Мичиганский университет).
- Компьютерное обучение (уже идет, Стэнфордский университет).
- Основы обработки цифровых видео и изображений (уже идет, Северо-Западный университет).
- Анализ процессов: обработка и анализ данных в действии (уже идет, Технический университет Эйндховена).
- Универсальная игровая программа (уже идет, Стэнфордский университет).
- Разработка технологии искусственного интеллекта (уже идет, Эдинбургский университет).
- Принципы реактивного программирования (уже идет, Федеральная политехническая школа Лозанны).
- Введение в программирование с MATLAB (уже идет, Университет Вандербильта).
- Разработка продуктов обработки данных (4 недели, 4 мая, Университет Джона Хопкинса).
- Вредоносные программы и их экономическая подоплека (6 недель, 27 апреля, Лондонский университет).
- Визуализация данных (4 недели, 20 июля, Иллинойсский университет в Урбана-Шампейн).
- Приложения для облачных вычислений (4 недели, 24 августа, Иллинойсский университет в Урбана-Шампейн).
- Архитектуры веб-приложений (уже идет, Университет Нью-Мексико).
- Защита аппаратных средств (уже идет, Мэрилендский университет в Колледж-парке).
- Кибербезопасность и 10 сфер ее применения (уже идет, Система университетов штата Джорджия).
- Криптография (6 недель, 20 апреля, Стэнфордский университет).
- Облачные сети (4 недели, 26 октября, Иллинойсский университет в Урбана-Шампейн).
Источник: http://www.adme.ru/svoboda-kultura/130-besplatnyh-onlajn-kursov-ot-topovyh-universitetov-900410/ © AdMe.ru
вівторок, 21 квітня 2015 р.
Проблема предмету ПРОГРАМУВАННЯ
Рівно 3 роки тому я криком кричав про необхідність такого кроку на з'їзді вчителів інформатики (у прямому сенсі, інакше не бажали слухати в президії, аж зірвав голос). Невже наступило прозріння? Але за час панування концепції "немає соціального замовлення на алгоритміку та програмування, а є соцальне замовлення на користувача..." ми втратили не лише ціле покоління випускників, які вже ніколи не зможуть зайняти вакантні робочі місця в софтверних компаніях, а й покоління учителів, які зможуть навачити покоління майбутніх претендентів на ці робочі місця...Учитель інформатики без БАЗОВОЇ МАТЕМАТИЧНОЇ ОСВІТИ не може якісно ці теми викладати...
http://pedrada.com.ua/…/zakonodavst…/programa_z_informatiki/
http://pedrada.com.ua/…/zakonodavst…/programa_z_informatiki/
Підписатися на:
Дописи (Atom)