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

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


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

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

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

Роман Селиверстов
Статус: Советник
Рейтинг: 4296
∙ повысить рейтинг »
Коцюрбенко Алексей aka Жерар
Статус: Профессор
Рейтинг: 3759
∙ повысить рейтинг »
CradleA
Статус: Бакалавр
Рейтинг: 2620
∙ повысить рейтинг »

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

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

Статья отправлена lamed (Академик)
дата отправки: 22.01.2012, 18:08

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

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

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

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

Boolean21. Дано трехзначное число. Проверить истинность высказывания:
«Цифры данного числа образуют возрастающую последовательность».
Код :
var
  A: integer;
  c1,c2,c3,ost: integer;
begin
  readln(A);
  c1:= A mod 10;
  ost:= A div 10;
  c2:= ost mod 10;
  c3:= ost div 10;
  writeln((c3<c2) and (c2<c1));
  readln;
end.

Boolean22. Дано трехзначное число. Проверить истинность высказывания: «Цифры данного числа образуют возрастающую или убывающую последовательность».
Код :
var
  A: integer;
  c1,c2,c3,ost: integer;
begin
  readln(A);
  c1:= A mod 10;
  ost:= A div 10;
  c2:= ost mod 10;
  c3:= ost div 10;
  writeln((c3<c2) and (c2<c1) or (c3>c2) and (c2>c1));
  readln;
end.

Boolean23. Дано четырехзначное число. Проверить истинность высказывания: «Данное число читается одинаково слева направо и справа налево».
Код :
var
  A: integer;
  x1,x2: integer;
begin
  readln(A);
  x1:= A mod 100;
  x2:= A div 100;
  writeln((x1=10*(x2 mod 10)+x2 div 10));
  readln;
end.

Boolean24. Даны числа A, B, C (число A не равно 0). Рассмотрев дискриминант D = B^2 - 4*A*C, проверить истинность высказывания: «Квадратное уравнение Ax^2+ Bx + C = 0 имеет вещественные корни».
Код :
var
  A, B, C, D: real;
begin
  readln(A, B, C);
  D := sqr(B) - 4*A*C;
  writeln(D>=0);
  readln;
end.

Boolean25. Даны числа x, y. Проверить истинность высказывания: «Точка с координатами (x, y) лежит во второй координатной четверти».
Код :
var
  x,y: real;
begin
  readln(x,y);
  writeln((x<0) and (y>0));
  readln;
end.

Boolean26. Даны числа x, y. Проверить истинность высказывания: «Точка с координатами (x, y) лежит в четвертой координатной четверти».
Код :
var
  x,y: real;
begin
  readln(x,y);
  writeln((x>0) and (y<0));
  readln;
end.

Boolean27. Даны числа x, y. Проверить истинность высказывания: «Точка с координатами (x, y) лежит во второй или третьей координатной четверти».
Код :
var
  x,y: real;
begin
  readln(x,y);
  writeln(x<0);
  readln;
end.

Boolean28. Даны числа x, y. Проверить истинность высказывания: «Точка с координатами (x, y) лежит в первой или третьей координатной четверти».
Код :
var
  x,y: real;
begin
  readln(x,y);
  writeln(x*y>0);
  readln;
end.

Boolean29. Даны числа x, y, x1, y1, x2, y2. Проверить истинность высказывания: «Точка с координатами (x, y) лежит внутри прямоугольника, левая верхняя вершина которого имеет координаты (x1, y1), правая нижняя - (x2, y2), а стороны параллельны координатным осям».
Код :
var
  x, y, x1, y1, x2, y2: real;
begin
  readln(x,y);
  readln(x1,y1);
  readln(x2,y2);
  writeln((y<y1) and (y>y2) and (x>x1) and (x<x2));
  readln;
end.

Boolean30. Даны целые числа a, b, c, являющиеся сторонами некоторого треугольника. Проверить истинность высказывания: «Треугольник со сторонами a, b, c является равносторонним».
Код :
var
  a,b,c: real;
begin
  readln(a,b,c);
  writeln((a=b) and (b=c));
  readln;
end.

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

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

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



В избранное