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

Домашнее задание №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.

Эта программа вычисляет количество введенных чисел больше нуля.
Пример исходных данных и результата:
1)x=10, y=3, z=0, i=2
2)x=-1, y=-23, z=31, i=1

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

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