Информатика: помощь по предмету

[Женечка Франкенштейн]

_Блэки_
Что непонятного? Первые две таблицы заполнили?

Помогите решить задание такое: Y=a/n 〖*x〗^2+b*x+ln⁡〖x/n〗 на интервале xЄ [a1; a2]

Что надо сделать? Составить программу? На каком языке?

 

[VeeOla]

Программу на Паскале!

 

[Женечка Франкенштейн]

VeeOla
Паскаль я не знаю, к сожаленю.)

 

[VeeOla]

Понятно! А на Basic?

 

[Женечка Франкенштейн]

VeeOla
на Basic могу.

 

[VeeOla]

Пожалуйста, если не трудно!

 

[Женечка Франкенштейн]

VeeOla
Не. Вы пишИте программу сами, я могу найти ошибку, вам же всё равно её нужно в редакторе отлаживать. И что это за скобочки такие интересные 〗?

 

[-.безумный Шляпник]

руки Frau_Muller
Да, заполнила. Понятно, что умножить цену на 10 процентов, но мне как-то надо сделать выборку с ипользованием ВПР и потом уже рассчитать штраф. Как соединить умножение и ВПР не понимаю.

 

[Анастасия П.S]

Помогите, пожалуйста, написать программу в Pascal.
Задача: Дано натуральное число N (100<N<999). Найти и вывести на экран число, состоящее из тех же цифр, что и первое, только в обратном порядке.

 

[Пушистое чудо]

Помогите плиз! Задание:
Дано натурально число n и последовательность из n целых чисел. Найти произведение и сумму положительных элементов последовательности, предшествующих первому отрицательному элементу. Если отрицательных элементов нет. то выдать сообщение об этом.

var i,n,k:integer;
s,p,x:double;
begin
writeln('Введите количество членов последоватлеьности');
readln;
s:=0;
p:=1;
k:=0;
writeln('Введите последовательность чисел');
for i:=1 to n do
begin
read(x);
repeat
S:=s+x;
P:=p*x;
k:=k+1;
until x<0;
end;
if k=n then
writeln('Отрицательных чисел нет')
else writeln(s,p);

end.

Но цикл - зацикливается. Почему то он не воспринимает изменения х. Как исправить/переписать цикл?

 

[Ренесми Каллен]

Информатика

Народ, помогите решить две задачки по информатике на Паскале.
1) Написать программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным и выдает рекомендацию о необходимости поправиться или похудеть. Оптимальный вес вычисляет по формуле: рост (в самнтиметрах) - 100.
2) Из трех данных чисел выбрать наибольшее.
Работу надо сдать до 9.03.2011

 

[Shtuchka]

первая задача:

Program Zadacha1;
Var ves, rost, optVes:integer;
Begin
write('Введите массу тела');
read(ves);
write('Введите рост в сантиметрах');
read(rost);
optVes:=rost-100;
if ves>optVes then write('Вам необходимо похудеть');
if ves<optVes then write('Вам необходимо поправиться');
if ves=optVes then write ('Ваш вес оптимален')
End.

Вторая задача:
Program Zadacha2;
Var a,b,c:integer;
Begin
write('Ведите три числа');
read(a,b,c);
If (a>b) and (a>c) then writeln ('Наибольшее число - ', a);
If (a>b) and (a<c) then writeln ('Наибольшее число - ', c);
If (a<b) and (b>c) then writeln ('Наибольшее число - ', b);
If (a<b) and (b<c) then writeln ('Наибольшее число - ', c);
End.

 

[Shtuchka]

Помогите, пожалуйста, написать программу в Pascal.
Задача: Дано натуральное число N (100<N<999). Найти и вывести на экран число, состоящее из тех же цифр, что и первое, только в обратном порядке.

Program zadacha;
var n,x:integer;
begin
repeat
writeln('Введите число ');
readln;
until (n>100) and (n<999);
x:= (n div 100) + (n div 10 mod 10) * 10 + (n mod 10) * 100;
writeln('В обратном порядке - ',x);
end.

 

[reiperok]

народ помогите!!!задание по информационному обеспечению

Господин Сидоров заключил с гсподином Ивановым договор,обязавшись
продать ему через 3 года пакет из 100 акций за 5000рублей.Он положил
акции в банк под 8% годовых,с ежеквартальным начислением процентов.В
настоящий момент каждая такая акция стоит на рынке 46 рублей.
-Какой доход получит Сидоров?
-Как изменится его доход,если ставка кредита 6%,7%,9%(оценить изменения с помощью таблицы подстановки)
-Как
изменится его доход ,если ставка кредита 6%,7%,9% годовых ,а период
начисления процентов-ежемесячный и ежегодный(оценить изменения с помощью
диспетчера сценариев.
-Сколько лет потребуется господину Иванову
чтобы получить доход по этим акциям 2500 руб,если он положит их в банк
на тех же условиях.

 

[superart4]

Помогите пожалуйста сделать программу в паскале.
Числа Каллена вычисляются по формуле (n*2^n + 1), где n положительное число, целое. например, 3=1*2^1+1. Найти все трехзначные числа Каллена.
Срок до вечера 29.01.12. Зарание спасибо)

 

[Хранитель кошачей мяты]

Основной тест программы

Memo1.Lines.Clear;
n=1;
while n*2^n+1<100 do Inc(n);
while n*2^n+1<1000 do begin
pn=n*2^n+1;
Inc(n);
Memo1.Lines.Add(pn);
end;

Это для приложения с формой. Для консольного приложения нужно заменить Memo1.Lines.Add(pn) на вывод для консольного приложения с переводом строки
хе, для консольного я только С++ помню >__<

Возможно придется подключить модуль Math в секции Uses или заменить Inc на n=n+1

 

[Brixton]

Помогите пожалуйста составить блок-схему алгоритма(именно рисунок/схема)

1) Ввести последовательность целых чисел {Aj},J:=1,...,n.Найти произведение положительных чисел, не превосходящих 20, наибольшее из таких чисел, и его номер в последовательности.

2)Ввести целые числа(кол-во заранее не известно, но предпологается что есть функция, определяющая пуст ли входной поток).Найти сумму чисел, абсолютная величина которых больше 3, наибольшее из таких чисел и номер этого числа в последовательности.

3)Ввести числовую матрицу {Aj}=1,...n; J=:1,...,m. Найти сумму минимальных элементов строк.

 

[Яна0987]

Помогите, пожалуйста, решить эту задачу!!!! Очень нужна ваша помощь!!!!
1..Начертить блок-схему алгоритма.
Ввести последовательность вещественных чисел {Aj},j=1,...,n. Hайти
произведение чисел с нечетной целой частью, наименьшее из таких чисел, и номеp этого числа в последовательности.

 

[valeila]

Возможно ли написать на Сях прогу для блок-схемы

Может быть я что-то не правильно поняла. Просторы интернета рассказывают про паскаль. Но как это сделать на Сях...ввергает меня вшок. Перевелась с др института и получается с языками не работала. Пытаюсь нагнать группу. Я бы поняла если бы на псевдокоде сказали написать, он сказал "сразу пишите программы на сях". И буду благодарна если подскажите для новичка какую-нибудь литературу. т.к поиски через поисковую систему особо результата не дали

Задача.
Начертить блок-схему алгоритма. (б/с не нужна это я сделала)
Ввести натуральные числа A, B и C. Если A меньше B и B больше C, то вывести B+A-C, в противном случае если если B кратно C, то вывести B/С-B, в остальных случаях вывести A*B-C.


Я предполагаю (не издевайтесь) я с сями сталкиваюсь впервые. Посмотрев задачи на С++ наверное:
int main();
int A,B,C
cin>>A>>B>>С;
а дальше исчирканный лист
Может быть условие через while (A<B) (B>C)
а потом через if идти. но т.к условий два раза да /нет. я просто путаюсь.