Колаж онлайн
https://www.fotor.com
http://createcollage.ru/
http://pro-photos.net/collage/uk
Колаж 4-А
Колаж 4-Б
понеділок, 23 жовтня 2017 р.
четвер, 12 жовтня 2017 р.
3 клас. Види інформації.
Вправа 1. Спосіб подання інформації.
Вправа 2 Способи подання інформації. (пазл)
Вправа 3. Способи подання повідомлень.
Вправа 4. Види інформації за способом подання.
Вправа 5. Види інформації за способом подання.
Вправа 6. Способи подання повыдомлень.
Вправа 2 Способи подання інформації. (пазл)
Вправа 3. Способи подання повідомлень.
Вправа 4. Види інформації за способом подання.
Вправа 5. Види інформації за способом подання.
Вправа 6. Способи подання повыдомлень.
вівторок, 10 жовтня 2017 р.
понеділок, 9 жовтня 2017 р.
четвер, 5 жовтня 2017 р.
вівторок, 3 жовтня 2017 р.
5 клас. Операційна система та її інтерфейс.
Вправа1. Операційні системи.
Вправа2. Обєкти ОС.
Вправа3. Обєкти графічного інтерфейсу.
Вправа4. ОС вікторина.
Вправа2. Обєкти ОС.
Вправа3. Обєкти графічного інтерфейсу.
Вправа4. ОС вікторина.
понеділок, 2 жовтня 2017 р.
неділя, 1 жовтня 2017 р.
9 клас. Введення та виведення табличних величин.
Вправа1 с.113. Введення масиву дійсних чисел.
procedure TForm1.Button1Click(Sender: TObject);
var i,n:integer;
x:array[1..20]of real;
begin
n:=StrToInt(Edit1.Text);
for i:= 1 to n do
x[i]:=StrToFloat(InputBox('Введення елементів масиву','Введіть'+IntToStr(i)+'елемент','0,00') );
end;
end.
Вправа2 с.114. Введення масиву цілих чисел.
procedure TForm1.Button1Click(Sender: TObject);
var i,n: integer;
a:array[1..20] of integer;
s:string;
begin
n:=StrToInt(Edit1.Text);
Randomize;
for i:=1 to n do
a[i]:=random(10);
s:='';
for i:=1 to n do
s:=s+IntToStr(a[i])+' ';
MessageDlg(s,Mtinformation,[mbOk],0);
end;
end.
Додаткове завдання.
Модифікуйте проект Вправи 1.: Розмістіть на екранній формі ще одну кнопку "Вивести", натиснувши її, на екран виводився б уведений масив.
Домашнє завданя. с.110-116, Впр 1-3 с.119 (виконати в зошиті)
procedure TForm1.Button1Click(Sender: TObject);
var i,n:integer;
x:array[1..20]of real;
begin
n:=StrToInt(Edit1.Text);
for i:= 1 to n do
x[i]:=StrToFloat(InputBox('Введення елементів масиву','Введіть'+IntToStr(i)+'елемент','0,00') );
end;
end.
Вправа2 с.114. Введення масиву цілих чисел.
procedure TForm1.Button1Click(Sender: TObject);
var i,n: integer;
a:array[1..20] of integer;
s:string;
begin
n:=StrToInt(Edit1.Text);
Randomize;
for i:=1 to n do
a[i]:=random(10);
s:='';
for i:=1 to n do
s:=s+IntToStr(a[i])+' ';
MessageDlg(s,Mtinformation,[mbOk],0);
end;
end.
Додаткове завдання.
Модифікуйте проект Вправи 1.: Розмістіть на екранній формі ще одну кнопку "Вивести", натиснувши її, на екран виводився б уведений масив.
Домашнє завданя. с.110-116, Впр 1-3 с.119 (виконати в зошиті)
Підписатися на:
Дописи (Atom)