среда, 21 мая 2014 г.
среда, 7 мая 2014 г.
Домашнее задание "Ветвления на Паскале. Программирование диалога с компьютером."
№1.
Else If r<a and r<i Then WtiteLn('Меньшее число -' r) Else If i<a and i<r WriteLn('Меньшее число -' i)№2№3№4.
Составьте на Паскале программу определения минимума из трёх чисел с использованием логических операций. Программа должна иметь дружественный интерфейс.
Program meat;
Var a,r,i:integer;
Begin
Write('Введите числа.')
Writeln('a=');
ReadLn(a);
Writeln('b=');
ReadLn(b);
Writeln('c=');
ReadLn(c);
If a<r and a<i Then WriteLn('Меньшее число -' a)
Else If a=r=i WriteLn('Числа равны')
end.
Program age;
Var a,b,i: integer;
Begin
Writeln(‘Введите возраст Саши.’);
Readln(a);
Writeln(‘Введите возраст Маши.’);
Readln(b);
if a>b then WriteLn ('Саша - старший ребенок')
else if b>a then WriteLn ('Маша - старший ребенок')
else if a=b then WriteLn ('Дети одинакового возраста')
End.
Program three
Var x:integer;
Begin
WriteLn('Введите номер дня недели')
ReadLn(x);
If x=1 Then WriteLn('понедельник')
Else If x=2 Then WriteLn('вторник')
Var x:integer;
Begin
WriteLn('Введите номер дня недели')
ReadLn(x);
If x=1 Then WriteLn('понедельник')
Else If x=2 Then WriteLn('вторник')
Else If x=3 Then WriteLn('среда')
Else If x=4 Then WriteLn('четверг')
Else If x=5 Then WriteLn('пятница')
Else If x=6 Then WriteLn('суббота')
Else If x=7 Then WriteLn('воскресенье')
Else If x>7 Then WriteLn('Введите номер дня от 1 до 7');
Else if x<1 Then WriteLn ('Введите номер дня от 1 до 7')
End.
Данная программа вычисляет количество введенных чисел больше нуля.
Пример исходных данных и результата:
Пример исходных данных и результата:
1) x=4; y=-234; z=335; i=2
2) x= -13467; y=-35654; z=-235; i=0
2) x= -13467; y=-35654; z=-235; i=0
Подписаться на:
Сообщения (Atom)