Протабулировать указанную функцию на отрезке

@исма · Регистрация: 16.01.2011

Студворк — интернет-сервис помощи студентам

мне через 6ч надо сдать больше 15 программ, я не успеваю, не сдам мне хана. кто то чем может помогите пожалуйста:

3. Дано натуральное число n.
а)Найти количество чётных цифр числа n;

4. Протабулировать указанную функцию на отрезке [a,b]:
е) функцию Y=Cos(x2) только для тех x из интервала [a,b], у которых дробная часть имеет только одну цифру – «десятые» (например, для [a,b]=[6,2π] это числа 6.0, 6.1, 6.2).

5. Дано 10 вещественных чисел. Не используя массива, определить:
д) размах значений (разность между максимальным и минимальным значениями).

6. Дан набор натуральных чисел, завершающийся нулём (в общем случае не более 10000 чисел). Не используя массива, определить:
г) номер последнего минимального числа.

7. Дан набор вещественных чисел, завершающийся нулём (в общем случае не менее 3 и не более 10000 чисел). Не используя массива, определить:
в) количество чисел, строго больших обоих соседей.

@cvip · 17.01.2011, 01:39

3.
Создаем 2 переменные integer
Записываем в переменную число -> определяем Length ->
Через цикл While
через функцию Copy посимвольно проверяем на четность,
при четности во вторую переменную плюсуем 1.

@afganec · 17.01.2011, 02:18

3.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var i,n,c,cnt:integer;
begin
readln(n);
c:=n; cnt:=0;
while n<>0 do
 begin
  c:=n mod 10;
  if ord(c) then inc(cnt);
  n:=n div 10;
 end;
writeln(cnt);
end;

4.

@исма · 17.01.2011, 05:50 **[ТС]**

спасибо большое) я его сделал, 4 или 5 не знаете как?

@afganec · 18.01.2011, 01:21

возможно 4-я решается так

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
 i,a,b,res:Float;
begin
 readln(a);
 readln(b);
 i:=a;
 while i<=b do
  begin
   res:=Cos(i*i);
   write(res,' ');
    i:=i+0.1;
  end;
end;

5-я так

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var min,max,c:Float;
     i,n:Integer;
begin
for i:=1 to n do
 begin
  readln(c);
  if i=1 then 
   begin
    max:=c;
    min:=c;
   end
  else
   begin
   if max<c then max:=c;
   if min>c then min:=c;
   end;
 end;
writeln(max-min);
end;

@исма · 18.01.2011, 15:17 **[ТС]**

больщое спасибо

Добавлено через 2 минуты
Дан набор натуральных чисел, завершающийся нулём (в общем случае не более 10000 чисел). Не используя массива, определить:
номер последнего минимального числа.

помогите этим примером тоже пожалуйста

Новые блоги и статьи Все статьи Все блоги /
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .

@исма 0 / 0 / 0 Регистрация: 16.01.2011 Сообщений: 5

	Протабулировать указанную функцию на отрезке 16.01.2011, 23:05. Показов 1221. Ответов 5 Метки нет (Все метки) мне через 6ч надо сдать больше 15 программ, я не успеваю, не сдам мне хана. кто то чем может помогите пожалуйста: 3. Дано натуральное число n. а)Найти количество чётных цифр числа n; 4. Протабулировать указанную функцию на отрезке [a,b]: е) функцию Y=Cos(x2) только для тех x из интервала [a,b], у которых дробная часть имеет только одну цифру – «десятые» (например, для [a,b]=[6,2π] это числа 6.0, 6.1, 6.2). 5. Дано 10 вещественных чисел. Не используя массива, определить: д) размах значений (разность между максимальным и минимальным значениями). 6. Дан набор натуральных чисел, завершающийся нулём (в общем случае не более 10000 чисел). Не используя массива, определить: г) номер последнего минимального числа. 7. Дан набор вещественных чисел, завершающийся нулём (в общем случае не менее 3 и не более 10000 чисел). Не используя массива, определить: в) количество чисел, строго больших обоих соседей. 0

@cvip 3 / 3 / 0 Регистрация: 08.10.2010 Сообщений: 114
	17.01.2011, 01:39
	3. Создаем 2 переменные integer Записываем в переменную число -> определяем Length -> Через цикл While через функцию Copy посимвольно проверяем на четность, при четности во вторую переменную плюсуем 1. 0

@исма 0 / 0 / 0 Регистрация: 16.01.2011 Сообщений: 5
	17.01.2011, 05:50 [ТС]
	спасибо большое) я его сделал, 4 или 5 не знаете как? 0

@исма 0 / 0 / 0 Регистрация: 16.01.2011 Сообщений: 5
	18.01.2011, 15:17 [ТС]
	больщое спасибо Добавлено через 2 минуты Дан набор натуральных чисел, завершающийся нулём (в общем случае не более 10000 чисел). Не используя массива, определить: номер последнего минимального числа. помогите этим примером тоже пожалуйста 0