- Главная
- Разное
- Образование
- Спорт
- Естествознание
- Природоведение
- Религиоведение
- Французский язык
- Черчение
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, фоны, картинки для презентаций
- Экология
- Экономика
Презентация, доклад на тему Практическая работа Число рождения (оператор VAl, WHILE, CASE)
Содержание
- 1. Практическая работа Число рождения (оператор VAl, WHILE, CASE)
- 2. Определить число вашего рождения, т.е. сумму цифр,
- 3. Пример.18 ноября 1992 годаСумма чисел:28+12+1996=2036 – четырехзначное число2+0+3+6=11 – двузначное число1+1=2 – число рождения Энергичность
- 4. ПодсказкиОформим нахождение суммы цифр в виде подпрограммы-функции.Используем цикл с предусловием.
- 5. Листинг.Uses crt;VarT:string;Day, mon, god, fl1, fl2,fl3, number
- 6. Begin Repeat write(‘Введите дату рождения: дд.мм.гг:
- 7. Write (‘ Ваше наиболее яркое качество:
- 8. 1. Напишите на Паскале программу, которая запрашивает
Определить число вашего рождения, т.е. сумму цифр, входящих в дату рождения, причем суммирование продолжается до тех пор, пока сумма не станет однозначным числом.
Слайд 2 Определить число вашего рождения, т.е. сумму цифр, входящих в дату рождения,
причем суммирование продолжается до тех пор, пока сумма не станет однозначным числом.
Слайд 3Пример.
18 ноября 1992 года
Сумма чисел:
28+12+1996=2036 – четырехзначное число
2+0+3+6=11 – двузначное число
1+1=2
– число рождения Энергичность
Слайд 4Подсказки
Оформим нахождение суммы цифр в виде подпрограммы-функции.
Используем цикл с предусловием.
Слайд 5Листинг.
Uses crt;
Var
T:string;
Day, mon, god, fl1, fl2,fl3, number : integer ;
Function sum(
n : integer) : integer ;
Var
s: integer;
Begin
s:=0;
while n>0 do
begin S:=s+(n mod 10); n:=n div 10 ; end ;
sum:=s;
End;
Var
s: integer;
Begin
s:=0;
while n>0 do
begin S:=s+(n mod 10); n:=n div 10 ; end ;
sum:=s;
End;
Слайд 6Begin
Repeat
write(‘Введите дату рождения: дд.мм.гг: ’) ;
readln (T) ;
val (copy (T, 1, 2), day, fl1) ;
val (copy (T, 4, 7), day, fl2) ;
val (copy (T, 7, 4), day, fl3) ;
until (fl1=0) and ) (fl2=0) and (fl3=0) ;
number:=day+mon+god;
while number>=10 do
number:=sum(number) ;
Writeln (T, ‘ - ’ , number);
end .
Слайд 7Write (‘ Ваше наиболее яркое качество: ’);
Case number of
1:T
: =‘ воля’ ;
2:T : =‘ энергичность’ ;
3:T : =‘ любознательность’ ;
4:T : =‘ здоровье’ ;
5:T : =‘ интуиция’ ;
6:T : =‘ мастерство’ ;
7:T : =‘ удачливость’ ;
8:T : =‘ правдолюбие’ ;
9:T : =‘ ум, память’ ;
End;
Writeln (T);
2:T : =‘ энергичность’ ;
3:T : =‘ любознательность’ ;
4:T : =‘ здоровье’ ;
5:T : =‘ интуиция’ ;
6:T : =‘ мастерство’ ;
7:T : =‘ удачливость’ ;
8:T : =‘ правдолюбие’ ;
9:T : =‘ ум, память’ ;
End;
Writeln (T);
Слайд 81. Напишите на Паскале программу, которая запрашивает с клавиатуры массив из
N чисел, а затем выводит среднее арифметическое всех элементов массива.
2. Перепишите программу на Паскале, исправив ошибки:
Program massiv;
Var a:array(-10..10) of integer;
Begin
For i:=1 to 20 Do
Read(a[i]);
For i:=1 to 20 Do
a[i]:=a[i]/10;
For i:=1 to 20 Do
Write(a[i])
End.
2. Перепишите программу на Паскале, исправив ошибки:
Program massiv;
Var a:array(-10..10) of integer;
Begin
For i:=1 to 20 Do
Read(a[i]);
For i:=1 to 20 Do
a[i]:=a[i]/10;
For i:=1 to 20 Do
Write(a[i])
End.
