понедельник, 21 апреля 2014 г.

26

Домашнее задание №26
Тема: Ветвления на Паскале. Программирование
диалога с компьютером

1. Составьте на Паскале программу определения минимума из трёх чисел с использованием логических операций. Программа должна иметь дружественный интерфейс.
program my;
var a,b,c:integer;
begin
  writeLn('a=');
  readLn(a);
  writeLn('b=');
  readLn(b);
  writeLn('c=');
  readLn(c);
  if a<b a<c then writeLn(a, ' - 
меньшее
')
  else If b<a b<c then wtiteLn(b, '- 
меньшее
')
  else If c<a c<b writeLn(c, ' - 
меньшее
')
  else If a=b=c writeLn('
числа
равны')
end.
2. Составьте на Паскале программу, которая запрашивает возраст двух детей (Саши и Маши), а затем выводит информацию о том, кто из них старше.
program my;
var a,b:integer;
begin
 
 writeLn('Возраст Саши');
 
 readLn(a);
 
 writeLn('Возраст Маши');
 
 readLn(b);
 
 if a>b Then writeLn('Саша старше Маши')
 
 else if b<a then wtiteLn('Маша старше Саши')
 
 else If a=b then writeLn ('Возраст Маши равен возрасту Саши')
end.
3. Запишите на языке Паскаль программу, которая по номеру для недели будет выводить его название.
program my; 
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('нет такого дня недели');
  end.

4. Что вычисляет приведённая ниже программа? Приведите два примера исходных данных и результата
Program example;
Var x,y,z,I :integer;
Begin
  ReadLn(a,b,c);
  i:=0;
  If a>0 then i:=i+1;
  If b>0 then i:=i+1;
  If c>0 then i:=i+1;
  WriteLn(i)
End.
Программа вычисляет количество введенных чисел больше нуля.




Комментариев нет:

Отправить комментарий