Онда
THEN
ТаңдауELSE Оқу
READ Үшін
WRITE Жазу
FOR Егер
CASE Әйтпесе
Разделы презентаций
- Разное
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Презентация по информатике "Паскаль программирование"
Содержание
- 1. Презентация по информатике "Паскаль программирование"
- 2. IF
- 3. асb1) a = 4cm, b =
- 4. Program Perimetr;Var a,b,c,P:integer;BeginReadln(a,b,c);P:=a+b+c;Writeln(P);End.Program Audan;Var a,b,S:integer;BeginReadln(a,b);S:=ab/2;Writeln(S);End.Program gipotenusa;Var a,b,c:integer;BeginReadln(a,b);c:=sqrt(sqr(a)+sqr(b));Writeln(c);End.
- 5. Екі санның үлкенін табу.Апта күнін анықтау. 1
- 6. Program max;Var a,b,max:integer;BeginReadln(a,b);if a>b then max:=a else
- 7. Program Apta;Var i,n,S:integer;BeginReadln (n); S:=0; Beginfor i:=1
- 8. Венн диаграммасыАлгоритм. Паскаль тілі
- 9. Скачать презентанцию
IF ОндаTHEN
Слайды и текст этой презентации
Слайд 3а
с
b
1) a = 4cm, b = 3cm, c =
5cm
P - ?
2) a =
4cm, b = 3cm, S - ?
3) a = 4cm, b = 3cm,
c - ?
«Алгоритм» оқыта үйрету.
Слайд 4Program Perimetr;
Var a,b,c,P:integer;
Begin
Readln(a,b,c);
P:=a+b+c;
Writeln(P);
End.
Program Audan;
Var a,b,S:integer;
Begin
Readln(a,b);
S:=ab/2;
Writeln(S);
End.
Program gipotenusa;
Var a,b,c:integer;
Begin
Readln(a,b);
c:=sqrt(sqr(a)+sqr(b));
Writeln(c);
End.
Слайд 5Екі санның үлкенін табу.
Апта күнін анықтау.
1 – ден 100
– ге дейінгі сандар қосындысын табу.
Деңгейлік тапсырмалар.
Слайд 6Program max;
Var a,b,max:integer;
Begin
Readln(a,b);
if a>b then max:=a else max:=b;
Writeln (max);
End.
Program kosu;
Var
i,n,S:integer;
Begin
Readln (n);
S:=0;For i:=1 to n do
Begin
S:=s+I;End;
Writeln (S);
End.
Program Apta;
Var n:integer;
Begin
Readln (n);
Case
n of1:write(‘mondey’);
2:write(‘tuersdey’);
3:write(‘yensedey’);
4:write(‘fridey’);
5:write(‘saturdey’);
6:write(‘sandey’);
else
End.
b then max:=a else max:=b;Writeln (max);End.Program kosu;Var i,n,S:integer;BeginReadln" alt="Program max;Var a,b,max:integer;BeginReadln(a,b);if a>b then max:=a else max:=b;Writeln (max);End.Program kosu;Var i,n,S:integer;BeginReadln (n);S:=0;For i:=1 to n doBeginS:=s+I;End;Writeln (S);End.Program">Слайд 7Program Apta;
Var i,n,S:integer;
Begin
Readln (n);
S:=0;
Begin
for i:=1 to n do
S:=s+exp(i*ln(2));
End;
S:=s+1;
Writeln
(S);
End.
Әрбір бактерия бір минутта екіге бөлінеді. Басында бір бактерия берілген
деп, 5минтта неше бактерия пайда болатынын тап. Жаңа бактериялар да минут сайын көбейіп отырады.
