Учебно исследовательская работа по теме: “Программа на Turbo Pascal-тест по таблице умножения”.

Слайд 1

Учебно исследовательская работа по теме: “Программа на Turbo Pascal -тест по таблице умножения”. Подготовил работу : Степанов Алексей Ученик 8 класса “Б” МБОУ г. Астрахани школы №64. Руководитель: Рыженко Елена Владимировна.

Слайд 2

П еременные целого типа( integer ) и символьного типа( char ). Датчик случайных чисел( randomize ) и функция генерация случайного числа( random ). Процедура очистки экрана( clrscr ). Операторы ввода( readln ) и вывода( writeln ). Оператор цикла с пост условием( repeat ….. until ). Условный оператор( if ). Операторные скобки( begin….end) . В программе используются:

Слайд 3

Блок-схема

Слайд 4

Листинг программы . Program TM; Uses crt; Var a, b, p, otvet, n: integer; yn: char; Begin Clrscr; Repeat N:=n+1; A:=random(10)+2; B:=random(10)+2; Write(‘Skolko bidet ‘,a,’*’,b,’? ‘); Readln (otvet); If otvet=a*b then Begin Write(‘Verno! ‘); P:=p+1; End Else write(‘Neverno… ‘); Write(‘ Prodolzem test(Y/N) ‘); Readln(yn); Until (yn=’n’)or(yn=’N’); Clrscsr; Writeln (‘ Pezyltat testa : ‘); Write(‘ Zadano voprosov : ‘,n,’. Pravilnix otvetov : ‘, p,’.’); Readln; Readln; End.

Слайд 9

Эту программу можно использовать для проверки знаний учеников младших классов. П рименение

Слайд 10

Рапаков Г.Г. , Ржеуцкая С.Ю. “Turbo Pascal для студентов и школьников Источники информации