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

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 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


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


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

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

Статистика

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

RFpro.ru: Программирование на языке Pascal


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

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

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

Асмик
Статус: Академик
Рейтинг: 9470
∙ повысить рейтинг » 		Орловский Дмитрий
Статус: Мастер-Эксперт
Рейтинг: 7025
∙ повысить рейтинг » 		lamed
Статус: Академик
Рейтинг: 5785
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)

Номер выпуска:1230
Дата выхода:13.02.2012, 16:00
Администратор рассылки:Boriss (Академик)
Подписчиков / экспертов:117 / 138
Вопросов / ответов:5 / 11

Консультация # 185399: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Даны три числа. вывести на экран те из них, которые являются четными и определить сколько из них являются четными. ...

Консультация # 185400: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Вывести на экран номер четверти координатной плоскости, которой принадлежит точка с координатами (x,y), при условии, что x≠0, y≠0...
Консультация # 185401: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Определить в какую из областей попадает точка с заданными координатами(для простоты принять , что абсцисса точки не равно 5 или 1.5) ...
Консультация # 185402: Здравствуйте! Прошу помощи в следующем вопросе: Дано вещественное число x. Вычислить F(x), если ...
Консультация # 185403: Здравствуйте! У меня возникли сложности с таким вопросом: Для Функций, заданных графически, определить значение Y при значении X...

Консультация # 185399:

Уважаемые эксперты! Пожалуйста, ответьте на вопрос:

Даны три числа. вывести на экран те из них, которые являются четными и определить сколько из них являются четными.

Дата отправки: 09.02.2012, 20:16
Вопрос задал: Посетитель - 392290 (Посетитель)
Всего ответов: 2
Страница онлайн-консультации »

Консультирует Зенченко Константин Николаевич (Модератор):

Здравствуйте, Посетитель - 392290!

Смотрите приложеине.

Код :
var
  a,b,c,d:integer;
begin
  readln(a);
  readln(b);
  readln(c);
  d:=3;
  writeln('result:');
  if odd(a)then dec(d)else writeln(a);
  if odd(b)then dec(d)else writeln(b);
  if odd(c)then dec(d)else writeln(c);
  writeln('count:=',d);
end.

Удачм!

Консультировал: Зенченко Константин Николаевич (Модератор)
Дата отправки: 09.02.2012, 20:29
Рейтинг ответа:

НЕ одобряю +1 одобряю!

Консультирует Neverov (3-й класс):

Здравствуйте, Посетитель - 392290!

var a,b,c,k:integer;
begin
write('Введите три целых числа ');
readln(a,b,c);
k:=0;
if a mod 2=0 then
begin
writeln(a);
k:=k+1
end;
if b mod 2=0 then
begin
writeln(b);
k:=k+1
end;
if c mod 2=0 then
begin
writeln(c);
k:=k+1
end;
writeln('Число четных чисел равно ',k)
end.

Консультировал: Neverov (3-й класс)
Дата отправки: 10.02.2012, 08:38
Рейтинг ответа:

НЕ одобряю +1 одобряю!

Консультация # 185400:

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Вывести на экран номер четверти координатной плоскости, которой принадлежит точка с координатами (x,y), при условии, что x≠0, y≠0

Дата отправки: 09.02.2012, 20:27
Вопрос задал: Посетитель - 392290 (Посетитель)
Всего ответов: 3
Страница онлайн-консультации »

Консультирует Зенченко Константин Николаевич (Модератор):

Здравствуйте, Посетитель - 392290!

Смотрите приложение:

Код :
var
  x,y:integer;
begin
  repeat
    write('x:=');readln(x);
  until x<>0;
  repeat
    write('y:=');readln(y);
  until y<>0;
  if x*y>0 then if x>0 then writeln('I')else writeln('III')
    else if x>0 then writeln('IV') else writeln('II');
end.

Удачи!

Консультировал: Зенченко Константин Николаевич (Модератор)
Дата отправки: 09.02.2012, 20:40
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Neverov (3-й класс):

Здравствуйте, Посетитель - 392290!

var x,y:real;
begin
write('Введите x и y');
readln(x,y);
if x>0 then
if y>0 then writeln('I')
else writeln('IV')
else
if y>0 then writeln('II')
else writeln('III')
end.

Консультировал: Neverov (3-й класс)
Дата отправки: 10.02.2012, 08:43
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует lamed (Академик):

Здравствуйте, Посетитель - 392290! Здесь приводится решение с использованием логической связки and. Проверка проводилась в PascalABC.Net.

Код :
{ Вывести на экран номер четверти координатной плоскости, 
  которой принадлежит точка с координатами (x,y), при условии, 
  что x<>0, y<>0 }
var
  x,y: integer; 
  { Примем координаты точки целыми числами. Это можно сделать,
    так как в задании не оговорено, что они должны быть вещественными }
begin
  readln(x,y); { Прочли значения координат с клавиатуры }
  
  { Анализ координат и печать результата }
  if (x>0) and (y>0) then
    writeln('I четверть')
  else if (x<0) and (y>0) then
    writeln('II четверть')
  else if (x<0) and (y<0) then
    writeln('III четверть')
  else if (x>0) and (y>0) then
    writeln('IV четверть');
end.

Пример работы
Код :
1
2
I четверть

Удачи!

Консультировал: lamed (Академик)
Дата отправки: 10.02.2012, 23:30
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 185401:

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:


Определить в какую из областей попадает точка с заданными координатами(для простоты принять , что абсцисса точки не равно 5 или 1.5)

Дата отправки: 09.02.2012, 20:57
Вопрос задал: Посетитель - 392290 (Посетитель)
Всего ответов: 2
Страница онлайн-консультации »

Консультирует RED (3-й класс):

Здравствуйте, Посетитель - 392290!

Программа:

Код :
 var x, y: real;
  begin
    write('x:=');
    readln(x);
    write('y:=');
    readln(y);
    if x < 1.5 then writeln('I')
    else if x < 5 then writeln('II')
    else writeln('III');
  end.

Консультировал: RED (3-й класс)
Дата отправки: 09.02.2012, 21:04
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Neverov (3-й класс):

Здравствуйте, Посетитель - 392290!

var x:real;
begin
write('x ');
readln(x);
if x<1.5 then writeln('I')
else if x<5 then writeln('II')
else writeln('III')
end.

Консультировал: Neverov (3-й класс)
Дата отправки: 10.02.2012, 08:51
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 185402:

Здравствуйте! Прошу помощи в следующем вопросе:

Дано вещественное число x. Вычислить F(x), если

Дата отправки: 09.02.2012, 21:29
Вопрос задал: Посетитель - 392290 (Посетитель)
Всего ответов: 2
Страница онлайн-консультации »

Консультирует Зенченко Константин Николаевич (Модератор):

Здравствуйте, Посетитель - 392290!

Программа:

Код :
var
  x:real;
  function f(a:real):real;
    begin
      if x<=0 then f:=0
        else if x<=1 then f:=x
          else f:=x*x;
    end;
begin
  readln(x);
  writeln('Result:',f(x))
end.

Удачи!

Консультировал: Зенченко Константин Николаевич (Модератор)
Дата отправки: 09.02.2012, 21:34
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Neverov (3-й класс):

Здравствуйте, Посетитель - 392290!

var x:real;
begin
write('x=');
readln(x);
if x<=0 then writeln(0)
else if x<=1 then writeln(x)
else writeln(x*x)
end.

Консультировал: Neverov (3-й класс)
Дата отправки: 10.02.2012, 08:55
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 185403:

Здравствуйте! У меня возникли сложности с таким вопросом:

Для Функций, заданных графически, определить значение Y при значении X

Дата отправки: 09.02.2012, 21:51
Вопрос задал: Посетитель - 392290 (Посетитель)
Всего ответов: 2
Страница онлайн-консультации »

Консультирует RED (3-й класс):

Здравствуйте, Посетитель - 392290!

Математическое описание функций, заданных графически:
a)


б)


в)


Код программы:
(Принято, что функция на графику б) при равна ).

Код :
 var x: real;
  function f1(x: real):real;
    begin
      if x <= -1 then f1 := 0
        else if x < 0 then f1 := x + 1
          else f1 := 1;
    end;

  function f2(x: real):real;
    begin
      if x <= -1 then f2 := 1
        else if x < 1 then f2 := -0.5 * x + 0.5
          else f2 := -1;
    end;

  function f3(x: real):real;
    begin
      if (x >= -1) and (x <= 0) then f3 := -0.5 * x + 0.5
        else if (x > 0) and (x < 1) then f3 := 0.5 * x + 0.5
          else f3 := 1;
    end;

  begin
    write('x = ');
    readln(x);
    writeln('Function a: ', f1(x));
    writeln('Function b: ', f2(x));
    writeln('Function v: ', f3(x));
  end.

Консультировал: RED (3-й класс)
Дата отправки: 09.02.2012, 22:21
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Neverov (3-й класс):

Здравствуйте, Посетитель - 392290!

а)
var x:real;
begin
write('x=');
readln(x);
if x<=-1 then writeln(0)
else if x<=0 then writeln(x+1)
else writeln(1)
end.

б)
var x:real;
begin
write('x=');
readln(x);
if x<=-1 then writeln(1)
else if x<=1 then writeln(-0,5*x+0.5)
else writeln(-1)
end.

в)
var x:real;
begin
write('x=');
readln(x);
if abs(x)>=1 then writeln(1)
else writeln(abs(0.5*x)+0.5)
end.

Консультировал: Neverov (3-й класс)
Дата отправки: 10.02.2012, 09:03
Рейтинг ответа:

НЕ одобряю 0 одобряю!

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

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

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

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