Форум программистов  
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 03.03.2017, 23:15   #1
MrFarick
Новичок
 
Регистрация: 03.03.2017
Сообщений: 3
Репутация: 10
По умолчанию найти результат вычисления арифметического выражения y=a(x+1), где a=2, x принадлежит [-5;15] с шагом =1. вычислить все значения и найти количество элементов <10

1.найти результат вычисления арифметического выражения y=a(x+1), где a=2, x принадлежит [-5;15] с шагом =1. вычислить все значения и найти количество элементов <10.
только не через for тоесть не так
Код:

(var
  y, a: real;
  k, x: integer;
 
begin
  a := 2;
  k := 0;
  for x := -5 to 15 do
  begin
    y := a * (x + 1);
    writeln('x: ', x, ', y: ', y);
    if y < 10 then 
      inc(k);
  end;
  writeln('k: ', k);
end.)

а , то препод не берет
2.найти площадь кольца, если внутренний радиус которого равен 20, а внешний заданному числу r (r>20).

Последний раз редактировалось Вадим Мошев; 11.03.2017 в 17:51.
MrFarick вне форума   Ответить с цитированием
Старый 03.03.2017, 23:43   #2
Plague
Забанен
Форумчанин
 
Аватар для Plague
 
Регистрация: 01.11.2006
Адрес: ЯНАО
Сообщений: 408
Репутация: 440
По умолчанию

Код:

const a=2;
begin
  var y:=range(-5,15,1).Select(x->a*(x+1));
  y.Println;
  writeln(y.Count(x->x<10))
end.

__________________
Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана
Plague вне форума   Ответить с цитированием
Старый 04.03.2017, 06:10   #3
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,582
Репутация: 1450

skype: newerow1989
По умолчанию

Про кольцо
Код:

const r1=20;
      r2=40;
var s:real;
begin
   s:=pi*r2*r2-pi*r1*r1;
   Writeln(s:8:5);
   Readln;
end.

__________________
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума   Ответить с цитированием
Старый 09.03.2017, 19:09   #4
MrFarick
Новичок
 
Регистрация: 03.03.2017
Сообщений: 3
Репутация: 10
По умолчанию Первую

напишите с while или repeat , буду очень благодарен
MrFarick вне форума   Ответить с цитированием
Старый 10.03.2017, 01:45   #5
Hitoku
Пользователь
 
Аватар для Hitoku
 
Регистрация: 05.03.2017
Сообщений: 17
Репутация: 10
По умолчанию

Код:

const a=2;
var
  y,x,k:integer;
begin
  x:=-5; k:=0;
  repeat
    y:=a*(x+1); inc(x);
    write(y,' ');
    if y<10 then inc(k);
  until x=16;
  writeln; write(k);
end.

Plague, это можно решить в одну строку
Код:

begin
  Print(range(-5,15,1).Select(x->2*(x+1)).Println.Count(x->x<10));
end.

__________________
Здесь должна быть подпись... Но чего-то лень придумывать(

Последний раз редактировалось Вадим Мошев; 11.03.2017 в 17:52.
Hitoku вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Используя рекурсию, вычислить результат арифметического выражения??? Nataly026 Паскаль 4 09.03.2012 21:36
Ввести матрицу 5х10 и найти в ней количество элементов, больших и меньших среднего арифметического (Delphi) Юлийа Помощь студентам 15 05.03.2012 19:59
Вычислить значения функции, найти принадлежит ли точка заштрихованной области на графике(Задачи в Delphi) Dikoder Помощь студентам 1 16.04.2011 11:43
Вычислить значения функции, найти принадлежит ли точка заштрихованной области на графике(Задачи в Delphi) Dikoder Помощь студентам 1 09.04.2011 07:23
приложение для вычисления значения арифметического выражения Wera Общие вопросы C/C++ 8 04.12.2010 02:53




11:30.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru