Geum.ru

А. В. Розина программирование на паскале методическое пособие

Вид материалаМетодическое пособие

Содержание


Условный оператор IF
Примеры программ
Подобный материал:
1   2   3   4   5   6   7   8   9   10

Условный оператор IF




  1. В компьютер заносятся результаты соревнований по плаванию для трех спортсменов. Составьте программу, которая выбирает лучший результат и выводит его на экран с сообщением, что это результат победителя.
  2. Составьте программу, реализующую эпизод применения компьютера в магазине. Компьютер запрашивает стоимость покупки и сумму денег, внесенную покупателем. Если сдачи не требуется, печатает "спасибо", если денег внесено больше, то печатает "возьмите сдачу" сумму сдачи. Если денег недостаточно, то печатает об этом сообщение и указывает размер недостающей суммы.
  3. Ввести года рождения трех сестер Ани, Оли и Лены. Определить младшую, среднюю и старшую.
  4. Даны действительные положительные числа a,b,c,x,y. Выяснить, пройдет ли кирпич с ребрами a,b,c в прямоугольное отверстие со сторонами x,y. Просовывать кирпич в отверстие так, чтобы каждое из его ребер было параллельно или перпендикулярно каждой из сторон отверстия.
  5. Составьте программу, проверяющую, делится ли введенное число без остатка на 3.
  6. Введите оценки за контрольные по физике и математике. Если сумма оценок  9, то напечатать "Молодец!", в противном случае – "Подтянись!"
  7. Составьте программу, определяющую, пройдет ли график функции Y = 5X2 – 7X + 2 через заданную точку с координатами (a, b).
  8. На работу принимают на конкурсной основе. Для приема необходимо не менее 20 лет стажа и возраст не более 45 лет. Напишите программу.
  9. В молодежный театр моды принимают молодых людей, у которых рост от 168 до 178 см и вес не более, чем (рост –115). Напишите программу.
  10. Составьте программу, которая по введенному k (k – целое число от 0 до 99) напечатает "Мне k лет ". В нужных случаях слово "лет" меняется на слово "год" или "года". Например, "Мне 3 года" или Мне 21 год".
  11. Составьте программу, которая по введенному вами k (k - целое число от 0 до 100) печатает фразу "Мы нашли k грибов", причем согласовывает окончание слова "гриб" с числом k.
  12. Хозяин обклеивает обоями стенку длиной А метров и высотой В метров. Рулон обоев имеет длину 12 м и ширину 1 м. Сколько он затратит денег на покупку обоев, если 1 рулон стоит С рублей?
  13. Стрелок стреляет в мишень, имеющую форму прямоугольника с координатами вершин: (x1, y1), (x1, y2), (x2, y1), (x2, y2). Написать программу, выводящую сообщение о попадании в цель или нет.
  14. Стрелок стреляет в мишень, имеющую форму круга с центром в начале координат и радиусом, равным R. Написать программу, выводящую сообщение о попадании в цель или нет.
  15. Стрелок стреляет в мишень, имеющую форму кольца, образованного двумя окружностями с центром в начале координат и радиусами, равными r и R. Написать программу, выводящую сообщение о попадании в цель или нет.
  16. На стене висят две мишени размером 3х3 см. Считается, что стрелок поразил цель, если попал в любую из мишеней. Будем считать, что мишени расположены на оси х симметрично оси y, расстояние между ними 10 см. Написать программу, выводящую сообщение о попадании в цель или нет.
  17. По известным 3-м вершинам прямоугольника (x1, y1), (x2, y2), (x3, y3) найти координаты четвертой вершины.
  18. Если число атомов водорода (Н) равно А, число атомов кислорода (О) равно В, число атомов серы (S) равно C, то сколько молекул серной кислоты ( H2SO4 ) может получиться?
  19. Дано натуральное трехзначное число n. Верно ли, что все цифры в нем различны?
  20. Вводится 4-значное число. Сколько раз входит заданная цифра в это число?
  21. Заданы три вершины треугольника. Проверить, является ли он прямоугольным.
  22. Дано время (часы, минуты, секунды) – три натуральных числа. Составьте программу для определения времени через 10 секунд.
  23. В 60-квартирном 4-подъездном 5-этажном доме по номеру квартиры определить подъезд и этаж.
  24. По введенной дате (месяц, число) выдать дату следующего дня. Выдать дату вчерашнего дня.



Примеры программ



Задача 11.

program grib;

var k,i:integer;

begin

writeln ( 'сколько грибов вы нашли '); readln (k);

i:=k mod 10;

if ((k<15) and (k>10)) or (i=0) or (i=5) or (i=6) or (i=7)

or (i=8) or (i=9) then writeln ( 'вы нашли ', k:4 ,' грибов ');

if ((i=2) or (i=3) or (i=4)) and ((k>15) and (k<11))

then writeln ( 'вы нашли ', k:4 ,' гриба');

if (i=1) and (k<>11) then writeln ( 'вы нашли ', k:4 ,' гриб');

end.


Задача 12.

program oboi;

const l = 12; h = 1;

var a, b, c, s : integer;

begin

writeln ( ' введите длину стены ' ); readln ( a );

writeln ( ' введите ширину стены ' ); readln ( b );

writeln (' стоимость 1 рулона ' ); readln ( c );

s := c * ( ( a * b ) div ( l * h ) );

if ( ( a * b ) mod ( l * h ) ) > 0 ) then s := s + c;

writeln ( ' затраты составляют ' , s , ' руб. ' );

end.


Задача 22.

program time;

var h, m, s : integer;

begin

writeln ( 'введите время' ); readln (h,m,s);

s := s+10 ;

if ( s >= 60 ) then begin

s := 0 ; m := m+1;

if ( m >= 60 ) then begin

m := 0 ; h := h+1;

if ( h = 24 ) then h := 0 ;

end;

end;

writeln ( 'новое время: ', h, ' час.',m, ' мин.', s,' сек.' );

end.


Задача 23.

program kwart;

var p1,pl,kw,pp,aa,a,p,k:integer;

{p - подъезд

a - этаж}

begin

writeln ( 'скольки квартирный дом' ) ; readln (kw);

writeln ( 'скольки этажный дом' ); readln (aa);

writeln ( 'скольки подъездный дом') ; readln (pp);

writeln ( 'введите номер квартиры' ); read (k);

{pl - кол-во квартир на площадке

p1 - кол-во квартир в подъезде}

pl := (kw div pp) div aa;

p1 := kw div pp;

if (k mod p1) = 0 then

{особый случай - квартира последняя в каждом подъезде}

begin p := k div p1; a := aa; end

else { все этажи, кроме последнего}

begin p := (k div p1) +1;

a := ((k mod p1) div pl);

if ((k mod p1) mod pl)<>0 then a := a+1;

end;


Writeln (p,' подъезд ',a,' этаж');

end.