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

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

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 293 RSS
←   Январь 2012   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/issues/8/19/228
Открыта: 17-04-2009

Автор
Калашников О.А.

Статистика

293 подписчиков
0 за неделю
←   Все выпуски   →

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


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

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

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

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

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

Номер выпуска:239
Дата выхода:24.01.2012, 23:30
Администратор рассылки:lamed (Академик)
Подписчиков / экспертов:107 / 116
Вопросов / ответов:0 / 0

Статья отправлена lamed (Академик)
дата отправки: 23.01.2012, 22:14

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

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

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

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

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

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

Boolean33. Даны целые числа a, b, c. Проверить истинность высказывания: «Существует треугольник со сторонами a, b, c».
Код :
var
  a,b,c: integer;
begin
  readln(a,b,c);
  writeln((a>0)and(b>0)and(c>0) and (a<b+c)and(b<a+c)and(c<a+b));
  readln;
end.

Boolean34. Даны координаты поля шахматной доски x, y (целые числа, лежащие в диапазоне 1–8). Учитывая, что левое нижнее поле доски (1, 1) является черным, проверить истинность высказывания: «Данное поле является белым».
Код :
var
  x,y: integer;
begin
  readln(x,y);
  writeln(x mod 2 <> y mod 2);
  readln;
End.

Boolean35. Даны координаты двух различных полей шахматной доски x1, y1, x2, y2 (целые числа, лежащие в диапазоне 1–8). Проверить истинность высказывания: «Данные поля имеют одинаковый цвет»
Код :
var
  x1,y1,x2,y2:Integer;
begin
  readln(x1,y1);
  readln(x2,y2);
  writeln((y1+x1) mod 2 = (x2+y2) mod 2);
  readln;
end.

Boolean36. Даны координаты двух различных полей шахматной доски x1, y1, x2, y2 (целые числа, лежащие в диапазоне 1–8). Проверить истинность высказывания: «Ладья за один ход может перейти с одного поля на другое».
Код :
var
  x1,y1,x2,y2: integer;
begin
  readln(x1,y1);
  readln(x2,y2);
  writeln((x1=x2) and (y1<>y2) or (y1=y2) and (x1<>x2));
  readln;
end.

Boolean37. Даны координаты двух различных полей шахматной доски x1, y1, x2, y2 (целые числа, лежащие в диапазоне 1–8). Проверить истинность высказывания: «Король за один ход может перейти с одного поля на другое».
Код :
var
  x1,y1,x2,y2: integer;
  d2: integer;
begin
  readln(x1,y1);
  readln(x2,y2);
  d2 := sqr(x2-x1)+sqr(y2-y1);
  writeln((d2=1) or (d2=2));
  readln;
end.

Boolean38. Даны координаты двух различных полей шахматной доски x1, y1, x2, y2 (целые числа, лежащие в диапазоне 1–8). Проверить истинность высказывания: «Слон за один ход может перейти с одного поля на другое».
Код :
var
  x1,y1,x2,y2:Integer;
begin
  readln(x1,y1);
  readln(x2,y2);
  writeln((x2-y2=x1-y1) or (x2-y1=x1-y2));
  readln;
end.

Boolean39. Даны координаты двух различных полей шахматной доски x1, y1, x2, y2 (целые числа, лежащие в диапазоне 1–8). Проверить истинность высказывания: «Ферзь за один ход может перейти с одного поля на другое».
Код :
var
  x1,y1,x2,y2:Integer;
begin
  readln(x1,y1);
  readln(x2,y2);
  writeln((x1=x2) or (y1=y2) or (x1-y1=x2-y2) or (x1+y1=x2+y2));
  readln;
End.

Boolean40. Даны координаты двух различных полей шахматной доски x1, y1, x2, y2 (целые числа, лежащие в диапазоне 1–8). Проверить истинность высказывания: «Конь за один ход может перейти с одного поля на другое».
Код :
var
  x1,y1,x2,y2: integer;
  d2: integer;
begin
  readln(x1,y1);
  readln(x2,y2);
  d2:= sqr(x1-x2)+sqr(y1-y2);
  writeln(d2=5);
  readln;
end.

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

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

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

© 2001-2012, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Калашников О.А. | Гладенюк А.Г.
Хостинг: Компания "Московский хостер"
Версия системы: 2011.6.35 от 21.01.2012
В избранное