Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RFpro.ru: Консультации по информатике


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты по данной тематике

Роман Селиверстов
Статус: Советник
Рейтинг: 4302
∙ повысить рейтинг »
Коцюрбенко Алексей aka Жерар
Статус: Академик
Рейтинг: 3828
∙ повысить рейтинг »
CradleA
Статус: Бакалавр
Рейтинг: 2600
∙ повысить рейтинг »

/ НАУКА И ОБРАЗОВАНИЕ / Точные и естественные науки / Информатика

Номер выпуска:244
Дата выхода:07.02.2012, 12:00
Администратор рассылки:lamed (Академик)
Подписчиков / экспертов:98 / 115
Вопросов / ответов:0 / 0

Статья отправлена lamed (Академик)
дата отправки: 06.02.2012, 12:34

Решения к задачнику М.Э.Абрамяна. Выпуск 5. If

Добрый день, уважаемые читатели. Продолжаем выкладывать решения задач к популярному задачнику М. Э. Абрамяна. 1000 ЗАДАЧ ПО ПРОГРАММИРОВАНИЮ, Ростов-на-Дону 2004. Решения задач Boolean31..40 можно посмотреть здесь: Boolean31-40

Источники заданий
1. Часть I
2. Часть II
3. Часть III

Нумерация заданий соответствует приведенной в файлах Всю ответственность за допущенные в решениях ошибки несет автор решений: lamed.
С вопросами и пожеланиями обращайтесь в личную почту lamed@rfpro.ru.
Удачи!

If1. Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.
Код :
var
  a: integer;
begin
  readln(a);
  if a>0 then
    a:= a+1;
  writeln(a);
  readln;
end.

If2. Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число.
Код :
var
  a: integer;
begin
  readln(a);
  if a>0 then
    a:= a+1
  else
    a:= a-2;
  writeln(a);
  readln;
end.

If3. Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.
Код :
var 
  a: integer;
begin
  readln(a);
  if a>0 then 
    a:= a+1
  else if a= 0 then 
    a:=10
  else 
    a:= a-2;
  writeln (a);
  readln;
end.

If4. Даны три целых числа. Найти количество положительных чисел в исходном наборе.
Код :
var 
  a,b,c,k: integer;
begin
  readln(a,b,c);
  k:=0;
  if a>0 then 
    k:= k+1;
  if b>0 then 
    k:= k+1;
  if c>0 then 
    k:= k+1;
  writeln(k);
  readln;
end.

If5. Даны три целых числа. Найти количество положительных и количество отрицательных чисел в исходном наборе.
Код :
var
  a,b,c, positive, negative: integer;
begin
  readln (a,b,c);

  positive:= 0;
  negative:= 0;

  if a<0 then
    negative:= negative+1
  else if a>0 then
    positive:= positive+1;;

  if b<0 then
    negative:= negative+1
  else if b>0 then
    positive:= positive+1;
    
  if c<0 then
    negative:= negative+1
  else if c>0 then
    positive:= positive-1;

  writeln (positive, ' ', negative);
  readln;
end.

If6. Даны два числа. Вывести большее из них.
Код :
var 
  a,b: integer;
begin
  readln(a,b); 
  if a>b then 
    writeln(a)
  else 
    writeln(b);
  readln;
end.

If7. Даны два числа. Вывести порядковый номер меньшего из них.
Код :
var 
  a,b: integer;
begin
  readln(a,b); 
  if a<b then 
    writeln(1)
  else 
    writeln(2);
  readln;
end.

If8. Даны два числа. Вывести вначале большее, а затем меньшее из них.
Код :
var 
  a,b: integer;
begin
  readln(a,b); 
  if a>b then 
    writeln (a,' ',b)
  else 
    writeln (b,' ',a);
  readln;
end.

If9. Даны две переменные вещественного типа: A, B. Перераспределить значения данных переменных так, чтобы в A оказалось меньшее из значений, а в B — большее. Вывести новые значения переменных A и B.
Код :
var 
  a,b: real;
  x: real;
begin
  readln(a,b); 
  if a>b then 
    begin
      x:= a;
      a:= b;
      b:= x;
    end;
  writeln (a,' ', b);
  readln;
end.

If10. Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.
Код :
var
  a,b : integer;
begin
  readln(a,b);
  if (a<>b)then
    a:= a+b
  else
    a:=0;
  b:= a;
  
  writeln(a,' ',b);
  readln;
end.

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка  |  восстановить логин/пароль

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!



В избранное