0 / 0 / 0
Регистрация: 25.10.2009
Сообщений: 43
1

Построить таблицу соответствий между мерами

25.10.2009, 21:33. Показов 7177. Ответов 32
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Привет!
Когда кто-то имеет время подскажите решение задачи на паскале.

1. Построить таблицу соответствий между мерами. Начальное значение меры, шаг изменения этого значения то количество строк в таблице (10-15) задать самостоятельно в режиме диалога. Оформить таблицу как можно лучше, используя форматы выведения.
1 галлон (США) = 0.0347 сак = 3.785 л;

2. Протабулювати функцию f(x)=cos(2,1*x)*sin|x|/0,15-5,8 на промежутке [0; i] с шагом h=0.1i, где i равно 7. Результаты вычислений вывести на экран в виде таблицы пар чисел х, y. Выполнить задание поиску данных. Если искомых данных нет, вывести об этом сообщении. Определить сумму положительных значений функции и количество отрицательных.

P.S. Простите, плохо с русским языком
0
25.10.2009, 21:33
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
25.10.2009, 21:33
Ответы с готовыми решениями:

Построить таблицу соответствий между мерами
1 галон(Сила)=0.347 сак= 3.785 л; Построить таблицу соответствий между мерами.Начальное значение мери, шаг изменения этого значения и...

Построить таблицу соответствий между мерами.
Цикли.Таблиця мир.Побудуваты таблицу соответствий между мирами.Початкове значение меры, шаг изменения этого значения и количество строк в...

Построить таблицу соответствий между мерами
построить таблицу соответствий между мерами. Начальное значение меры, шаг изменения этого значения и количество строк в таблице (10-15)...

32
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
25.10.2009, 21:49 2
№2. Наберите в Поиске по форуму Табуляция, куча задач решено, условия свои только поставьте.
0
 Аватар для senderr
23 / 20 / 3
Регистрация: 03.04.2009
Сообщений: 257
25.10.2009, 21:56 3
Што именно тебе непонятно?
Лутше тебе объяснить чем сделать. Тебе толку с етого будет больше
0
0 / 0 / 0
Регистрация: 25.10.2009
Сообщений: 43
25.10.2009, 22:06  [ТС] 4
Благодарю, но табуляция одно из заданий, а их еще 3

Добавлено через 5 минут
Простите, но говорил:
Когда кто-то имеет время подскажите решение задачи на паскале - Pascal
0
 Аватар для senderr
23 / 20 / 3
Регистрация: 03.04.2009
Сообщений: 257
25.10.2009, 22:32 5
Тут тобы перша другу роби по аналогії
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var a,b,i:integer;
     litr,sek:real;
begin
clrscr;
Writeln('Vvedit pochatkove znachenja');
readln(a);
Writeln('Vvedit kinzeve znachenja');
readln(b);
for i:=a to b do
begin
sek:=a*0.0347;
litr:=a*3.785;
Writeln('hoalon=',a,'sek=',sek:2:3,'Litru=',litr:2:3);
end;
readkey;
 
 
end.
Добавлено через 1 минуту
ок зараз відредагую

Добавлено через 13 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var a,b,i:integer;
     litr,sek:real;
begin
clrscr;
Writeln('Vvedit pochatkove znachenja');
readln(a);
Writeln('Vvedit kinzeve znachenja');
readln(b);
for i:=a to b do
begin
sek:=a*0.0347;
litr:=a*3.785;
Writeln('------------------------------------');
Writeln('|halon=',a,'|','sek=',sek:2:3,'|','Litru=',litr:2:3,'|');
end;
readkey;
end.
Добавлено через 4 минуты
Цитата Сообщение от korustyvach Посмотреть сообщение


2. Протабулювати функцию f(x)=cos(2,1*x)*sin|x|/0,15-5,8 на промежутке [0; i] с шагом h=0.1i, где i равно 7. Результаты вычислений вывести на экран в виде таблицы пар чисел х, y. Выполнить задание поиску данных. Если искомых данных нет, вывести об этом сообщении. Определить сумму положительных значений функции и количество отрицательных.
Звідки брати х і у?

Добавлено через 4 минуты
x-ето типа значения шага я так понял
у -ета значение функции.
0
0 / 0 / 0
Регистрация: 25.10.2009
Сообщений: 43
25.10.2009, 22:56  [ТС] 6
Благодарю что решили помочь, и простите за вопрос, но:
думал, что здесь необходима проверка на число с отрицатильним знаком, ведь логично обем с "-" не может быть, а вводить из клавиатуры можно что-нибудь
и неужели один и тот же результат должен выводиться столько раз, сколько ровная разница между начальным и конечным значением
и подскажите в этом решении где есть шаг изменения этого значения и запрос на количество строк в ответе

Добавлено через 8 минут
именно так в - значение функции, а х - любое число вводится из клавиатуры

Добавлено через 2 минуты
простите, отечатка
y - значение функции, а х - любое число вводится из клавиатуры
0
 Аватар для senderr
23 / 20 / 3
Регистрация: 03.04.2009
Сообщений: 257
25.10.2009, 23:16 7
Pascal
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
uses crt;
var a,b,i:integer;
     litr,sek:real;
begin
clrscr;
Writeln('Vvedit pochatkove znachenja');
readln(a);
if a<0 then
begin
writeln('Vvedit a>0');
readln(a);
end;
Writeln('Vvedit kinzeve znachenja');
readln(b);
if b<0 then
begin
writeln('vvedit b>0');
readln(b);
end;
for i:=a to b do
begin
sek:=i*0.0347;
litr:=i*3.785;
Writeln('------------------------------------');
Writeln('|halon=',i,'|','sek=',sek:2:3,'|','Litru=',litr:2:3,'|');
end;
readkey;
end.
Добавлено через 8 минут
y - значение функции, а х - любое число вводится из клавиатуры
Ти неошибся ато я тогда немогу понять зачем нам тогда ваще промижок

Добавлено через 4 минуты
Pascal
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
uses crt;
var n,kil,i:integer;
 x,y,h,sum:real;
begin
clrscr;
writeln('vvedit x');
readln(x);
n:=7;
sum:=0;
kil:=0;
h:=0;
x:=1;
writeln('x=         y=');
while  x<=n do
begin
y:=cos(2.1*x)*sin(abs(x))/0.15-5.8;
h:=0.1*7;
x:=x+h;
writeln(x:2:2,'______',y:2:2);
if y>0 then sum:=sum+y
else inc(kil);
end;
writeln('Suma dodatnih=',sum:2:3);
writeln('Kilkist vidjemnyh=',kil);
readkey;
end.
я думаю што должно бить так. Посмотри и скажи што переделать
0
0 / 0 / 0
Регистрация: 25.10.2009
Сообщений: 43
25.10.2009, 23:49  [ТС] 8
ни не ошибаюсь, х вводится из клавиатуры,
а промежуток необходим для следующего:
если изображать графически функцию, например у=х+5 на промежутке [0; 7], то график, а именно прямая, охватит все числа, а промежуток задается для того, чтобы искать и выводить лишь те значения, которые входят в этот промежуток, а остальние результаты можно опустить.
Вложения
Тип файла: doc poysnu.doc (29.5 Кб, 22 просмотров)
0
0 / 0 / 0
Регистрация: 25.10.2009
Сообщений: 43
26.10.2009, 00:13  [ТС] 9
и именно к числам, которые входят, необходимо выполнить поиск и вывести сообщение

Добавлено через 21 минуту
x:=x+h;
...
if y>0 then sum:=sum+y
else inc(kil);
end;

еще раз благодарю, но дочего здесь x:=x+h, ведь х задается; если можно, как считается количество видемних, ведь даже условие об этом не имеет; дочего inc(kil)
0
 Аватар для senderr
23 / 20 / 3
Регистрация: 03.04.2009
Сообщений: 257
26.10.2009, 00:20 10
количество отрицательних елементов

Добавлено через 4 минуты
Я пробовал обчислювати за твоэю умовою, але при одному і тому самому іксу функція неміняє свого значення . Тому я подумав що замість просто х підставляється крок. х=х+h це зміна кроку.
0
0 / 0 / 0
Регистрация: 25.10.2009
Сообщений: 43
26.10.2009, 00:21  [ТС] 11
как считается, не могу понять как
0
 Аватар для senderr
23 / 20 / 3
Регистрация: 03.04.2009
Сообщений: 257
26.10.2009, 00:23 12
Якщо значення функції більше 0 то додається до суми , якщо менше то змінна kil збільшується на 1.
0
0 / 0 / 0
Регистрация: 25.10.2009
Сообщений: 43
26.10.2009, 00:28  [ТС] 13
раскумекал, а с этим Выполнить задание поиску данных. Если искомых данных нет, вывести об этом сообщении. Хотя и за это благодарю, ведь много помог
0
 Аватар для senderr
23 / 20 / 3
Регистрация: 03.04.2009
Сообщений: 257
26.10.2009, 00:31 14
Поиск даних должен приизводитса поначалу или после розщота значення функції?

Добавлено через 52 секунды
Якщо поначалу ето просто если после то нужно значення функції заносити в масив і в циклі проганяти.
0
0 / 0 / 0
Регистрация: 25.10.2009
Сообщений: 43
26.10.2009, 00:36  [ТС] 15
а имеет значение, а думал что после вычисления
0
 Аватар для senderr
23 / 20 / 3
Регистрация: 03.04.2009
Сообщений: 257
26.10.2009, 00:38 16
Pascal
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
uses crt;
var n,kil,i,l:integer;
 x,y,h,sum,m:real;
begin
clrscr;
writeln('vvedit  шукане значення');
readln(m);
n:=7;
sum:=0;
kil:=0;
h:=0;
x:=1;
writeln('x=         y=');
while  x<=n do
begin
y:=cos(2.1*x)*sin(abs(x))/0.15-5.8;
h:=0.1*7;
x:=x+h;
writeln(x:2:2,'______',y:2:2);
if y>0 then sum:=sum+y
else inc(kil);
end;
writeln('Suma dodatnih=',sum:2:3);
writeln('Kilkist vidjemnyh=',kil);
if m=y then inc(l);
end;
if l=0 then writeln('значення нема') 
else writeln('значення ',m,'знайдено');
readkey;
end.
Добавлено через 45 секунд
Цитата Сообщение от korustyvach Посмотреть сообщение
а имеет значение, а думал что после вычисления
больше писать надо.
0
0 / 0 / 0
Регистрация: 25.10.2009
Сообщений: 43
26.10.2009, 00:49  [ТС] 17
не уверенный, но скорее после вычисления, ведь поиск нужно проводить среди результатов y

Добавлено через 9 минут
С этим задание наверно - ОК, а с первым в листинге программы нет значение меры, шаг изменения этого значения та количество строк в таблице (10-15), если можна плиз
0
 Аватар для senderr
23 / 20 / 3
Регистрация: 03.04.2009
Сообщений: 257
26.10.2009, 00:53 18
Pascal
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
32
33
34
35
uses crt;
var n,kil,i,l,j:integer;
 x,y,h,sum,m:real;
  a:array [1..100]of real;
begin
clrscr;
n:=7;
sum:=0;
kil:=0;
h:=0;
x:=1;
writeln('x=         y=');
while  x<=n do
begin
y:=cos(2.1*x)*sin(abs(x))/0.15-5.8;
h:=0.1*7;
x:=x+h;
a[i]:=y;
inc(i);
writeln(x:2:2,'______',y:2:2);
if y>0 then sum:=sum+y
else inc(kil);
end;
writeln('Suma dodatnih=',sum:2:3);
writeln('Kilkist vidjemnyh=',kil);
writeln('vvedit  znachenja dla posyky');
readln(m);
for i:=0 to j do
begin
if m=a[i] then inc(l);
end;
if l=0 then writeln('neznajdeno')
else writeln('значення ',m,'znajdeno');
readkey;
end.
Добавлено через 2 минуты
С этим задание наверно - ОК, а с первым в листинге программы нет значение меры, шаг изменения этого значения та количество строк в таблице (10-15), если можна плиз
Нерозумыю що саме треба зробити?
0
0 / 0 / 0
Регистрация: 25.10.2009
Сообщений: 43
26.10.2009, 00:53  [ТС] 19
зачем writeln('x= y=');
нелзя writeln('x=');
0
 Аватар для senderr
23 / 20 / 3
Регистрация: 03.04.2009
Сообщений: 257
26.10.2009, 00:54 20
це заголовок таблицы
0
26.10.2009, 00:54
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
26.10.2009, 00:54
Помогаю со студенческими работами здесь

Спроектировать и реализовать программу расчета таблицы соответствий между мерами
Уважаемые форумчане, на завтра задали вопросы сделать и программу написать,кто знает ответьте пожалуйста. Вопросы:1. Выражения какого...

Нужно спроектировать и реализовать программу расчета таблицы соответствий между мерами
Начальное значение меры, шаг изменения этого значения и количество строчек в таблице задать в режиме диалога. Оформить таблицу применяя...

Построить таблицу соответствий..
Построить таблицу соответствий между мерами. Начальное значение меры, шаг изменения этого значения и количество строк в таблице ввести с...

Цикл: Построить таблицу соответствий между мерами...
Дано: 1 пек=8,81 л= 0,7929 сака Нужно построить таблицу соответствий между мерами. Начальное значение меры, шаг изменения этого...

Используя оператор цикла for построить таблицу соответствия между мерами
помогите решить 1 фут = 0.3048 м = 12 дюймов.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Ключевые слова Python
hw_wired 15.02.2025
Ключевые слова в Python - это специальные зарезервированные слова, которые имеют особое значение и функции в языке. В настоящее время Python включает 35 ключевых слов и 4 мягких ключевых слова. Эти. . .
Отличия изменяемых и неизменяемых типов в Python
hw_wired 15.02.2025
В Python существует принципиальное различие между изменяемыми (mutable) и неизменяемыми (immutable) типами данных, которое оказывает существенное влияние на работу программ. Это различие часто. . .
Python: сравнение списков и кортежей
hw_wired 15.02.2025
В Python последовательности являются одними из самых важных и часто используемых типов данных. Они позволяют хранить упорядоченные наборы элементов, к которым можно обращаться по индексу. Среди всех. . .
Как скачивать файлы с URL с помощью Python
hw_wired 15.02.2025
Для скачивания файлов Python предлагает как встроенные средства, так и сторонние библиотеки. Встроенный модуль urllib из стандартной библиотеки обеспечивает базовую функциональность для работы с URL. . .
Использование SQLAlchemy в Python
hw_wired 15.02.2025
SQLAlchemy - мощная библиотека для работы с базами данных в Python, которая предоставляет полноценный набор средств для объектно-реляционного отображения (ORM) и обширные возможности для работы с. . .
Взаимодействие с REST API в Python
hw_wired 15.02.2025
В современном мире разработки программного обеспечения REST API стал неотъемлемой частью архитектуры веб-приложений. API (Application Programming Interface) - это набор правил и протоколов,. . .
Разделение строк в Python
hw_wired 15.02.2025
Python предлагает богатый набор возможностей для работы со строками, и среди них разделение строк занимает особое место. Этот процесс позволяет разбивать текст на отдельные компоненты, что критично. . .
Объединение строк в Python
hw_wired 15.02.2025
При работе с текстовыми данными в Python нередко возникает необходимость объединять несколько строк в одну. Это может потребоваться при форматировании вывода, обработке текстовых файлов или создании. . .
Лучшие игровые движки на Python
hw_wired 15.02.2025
В последнее время разработка игр стала одним из самых популярных направлений программирования, и Python не остался в стороне от этого тренда. Несмотря на то, что Python обычно не ассоциируется с. . .
Декоратор jit в Python
hw_wired 15.02.2025
Если вы достаточно долго изучаете программы и пакеты на Python для машинного обучения, то наверняка замечали, что паттерн "JIT-декоратор" довольно популярен. Этот подход позволяет превратить обычные. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru