- Главная
- Разное
- Образование
- Спорт
- Естествознание
- Природоведение
- Религиоведение
- Французский язык
- Черчение
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, фоны, картинки для презентаций
- Экология
- Экономика
Презентация, доклад по информатике на темуРазветвляюшийся алгоритм
Содержание
- 1. Презентация по информатике на темуРазветвляюшийся алгоритм
- 2. ДаДаНетНетПолное ветвлениеНеполное ветвление
- 3. Общение - это не только обмен информацией, знаками, но и совместная деятельность.
- 4. 1. Я и круг моих друзей, знакомых и товарищей.
- 5. П. Кем я хотел бы стать (профессии).
- 6. Ш. Я (моя позиция) в служебной иерархии
- 7. IV. Какой я? (Мои качества)
- 8. IF (условие) TНEN (серия действий1) ELSE (серия действий2)
- 9. Program TEST; Var а,s : integer; Begin
- 10. _______________________________________________________________«Человек-природа»__________профессии: эколог, ветеринар, биолог, лесник_______________«Человек-техника»___профессии: автослесарь, инженер,
ДаДаНетНетПолное ветвлениеНеполное ветвление
Слайд 1«Алгоритмизация и программирование»
Учитель информатики Шакирова А.А.
Разветвляющие алгоритмы
10 класс
Слайд 9Program TEST;
Var а,s : integer;
Begin
Writeln ('Введите вашу фамилию,
имя');
Writeln ('Ответьте на вопросы «да» или <<нет». Если «да», то поставьте цифру - 1, если «нет», то цифру – 0’);
S:=0;
Writeln ('Вам предстоит обычная деловая встреча. Выбивает ли Вас ее ожидание из колеи?');
Readln (а);
if а=l TНEN s:=s+ 1 ELSE s:=s+0;
Writeln ('Не откладываете ли Вы визит к врачу до тех пор, когда станет
совсем уже невмоготу?'); Readln (а);
if а=1 TНEN s:=s+ 1 ELSE s:=s+0;
Writeln ('Вызывает ли у Вас смятение или неудовольствие предложение
выступить перед большим количеством людей?');
Readln (а);
if а=l TНEN s:=s+ 1 ELSE s:=s+0;
Writeln ('s=', s);
if(16<=s) and (s<=15) TНEN writeln (")
ELSE
If(14<=s) аnd (s<=12) THEN wгitеln (‘’) ELSE
if (11 <=s) аnd (s<=9) THEN writeln (‘’) ELSE
If(8<=s) аnd {s<=7) THEN \vгitеln (‘’) ELSE
If(6<=s) аnd (s<=4) THEN wгitеln (‘’)
ELSE
If (3<=s) апd (s<=2) THEN wгitеln (‘’) ELSE
If (l <=s) апd (s<=O) THEN writeln (‘’) Readln;
End.
Writeln ('Ответьте на вопросы «да» или <<нет». Если «да», то поставьте цифру - 1, если «нет», то цифру – 0’);
S:=0;
Writeln ('Вам предстоит обычная деловая встреча. Выбивает ли Вас ее ожидание из колеи?');
Readln (а);
if а=l TНEN s:=s+ 1 ELSE s:=s+0;
Writeln ('Не откладываете ли Вы визит к врачу до тех пор, когда станет
совсем уже невмоготу?'); Readln (а);
if а=1 TНEN s:=s+ 1 ELSE s:=s+0;
Writeln ('Вызывает ли у Вас смятение или неудовольствие предложение
выступить перед большим количеством людей?');
Readln (а);
if а=l TНEN s:=s+ 1 ELSE s:=s+0;
Writeln ('s=', s);
if(16<=s) and (s<=15) TНEN writeln (")
ELSE
If(14<=s) аnd (s<=12) THEN wгitеln (‘’) ELSE
if (11 <=s) аnd (s<=9) THEN writeln (‘’) ELSE
If(8<=s) аnd {s<=7) THEN \vгitеln (‘’) ELSE
If(6<=s) аnd (s<=4) THEN wгitеln (‘’)
ELSE
If (3<=s) апd (s<=2) THEN wгitеln (‘’) ELSE
If (l <=s) апd (s<=O) THEN writeln (‘’) Readln;
End.
Слайд 10_______________________________________________________________
«Человек-природа»
__________профессии: эколог, ветеринар, биолог, лесник_______________
«Человек-техника»
___профессии: автослесарь, инженер, строитель, . радиоэлектроник_______
«Человек-человек»
_______профессии: учитель,
продавец, юрист, врач, психолог _____________
«Человек - знаковая система»
__профессии: кассир, бухгалтер, экономист, программист, переводчик_________
«Человек - художественный образ»
__профессии: модельер, закройщик, дизайнер, художник, журналист_________
«Человек - знаковая система»
__профессии: кассир, бухгалтер, экономист, программист, переводчик_________
«Человек - художественный образ»
__профессии: модельер, закройщик, дизайнер, художник, журналист_________
