Mail

В этот день много лет назад...
7 декабря. В 1991 году (33 года назад) - Встреча глав России, Украины, Белоруссии в Беловежской пуще. Образование СНГ.

Уголок начинающего программиста

В данном разделе приводятся программы, написанные посетителями данного сайта. Идея данного раздела принадлежит Валерию из города Новотроицк Оренбургской области, который прислал мне письмо, в котором предложил публиковать его программы, мотивировав это тем, что на сайте не хватает простых, элементарных программ. А поскольку он все-равно будет "мучаться", то чтоб труд не пропадал зря, он предложил размещать его примеры на сайте. Мне эта идея понравилась и вот первая партия программ размещена в данном новом разделе. Я постараюсь снабжать программы комментариями, если что-то можно сделать в программах лучше. Я не обещаю проверять данные программы на работоспособность, компилируя их, но просматривать на предмет ошибок обязательно буду.

Модератор.

Задач в выбранных темах: 66

Страница 6

Условие задачи

Составить программу которая по названию месяца определяет сезон времени года.

Решение

program god;
uses crt;
var m: byte;
label o;
    BEGIN
    clrscr;
    writeln('задайте месяц');
    o: readln(m);
    case m of
    12,1,2: writeln('зима');
    3,4,5:  writeln('весна');
    6,7,8:  writeln('лето');
    9,10,11: writeln('осень');
    else writeln('число заданно не верно');goto o;
    end;
readln;
end.

Комментарии

Не используйте метки. А так все нормально.

to top

Условие задачи

Составить программу для определения четности ли нечетности заданного числа.

Решение

program chetnehet;
uses crt;
var n:integer;
begin
     clrscr;
     writeln('задайте целое число');
     readln(n);
               if odd(n) then writeln('нечетное') else writeln('четное');
               readln
end.

Комментарии

OK

to top

Условие задачи

Составить программу для определения четности ли нечетности заданного числа. В случае не четности числа выводить его знак.

Решение

program chetnehet;
uses crt;
var n:integer;
begin
     clrscr;
     writeln('задайте целое число');
     readln(n);
               if odd(n) then
               begin
               if n<0 then writeln('отрецательное, нечетное')
               else
               writeln('положительное');
               end
               else writeln('четное');
               readln;
end.

{ Подправленный вариант (Модератор)}
program chetnehet;
uses crt;
var n:integer;
  begin
  clrscr;
  writeln('задайте целое число');
  readln(n);
  if odd(n)
    then
    if (n<0)
       then writeln('отрецательное, нечетное')
       else writeln('положительное, нечетное')
    else writeln('четное');
  readln;
end.

Комментарии

1. В условном операторе begin end не нужны
2. Форматирование я бы сделал как в подправленном варианте
3. В случае положительного нечетного исходная программа выдавала бы только "положительное"!

to top

Условие задачи

По введенному с клавиатуры виду транспорта (маршрутное такси - 5 руб., трамвай - 2 руб, автобус - 3 руб, такси - 40руб) определить стоимость проезда для указанного колличесва людей в одном транспорте.

Решение

program transport;
uses crt;
var x, a:integer;
    begin
    clrscr;
    writeln('введите номер соответсвующей вашему запросу:');
    writeln('1-маршрутное такси');
    writeln('2-транвай');
    writeln('3-автобус');
    writeln('4-такси');
    readln(x);
    writeln('введите колличесво пассажиров');
    readln(a);
    writeln('общая стоимость проезда=');
    case x of
    1:if a>4 then write(a*5,', ', 'используется более одного транспорта')
    else writeln(a*5);
    2:writeln(a*2);
    3:writeln(a*3);
    4:if a>12 then write(a*40,', ', 'используется более одного транспорта');
    else writeln(a*40)
    end;
    readkey
    end.

Комментарии

Все нормально. Только что за комментарий 'используется более одного транспорта'? Если он был необходим, то надо, наверно, менять местами цифры в операторе case - 1: <=> 4:
поскольку это в маршрутном такси может перевозиться 12 человек, а в обычном - 4.

to top

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Задач в выбранных темах: 66