Решенные задачи Pascal, Delphi, C++ :: Общие вопросы программирования

:: Решенные задачи Pascal, Delphi, C++, Скачивайте готовое бесплатно!

Подписка на тему | Сообщить другу | Версия для печати

Trash

Дата Понедельник, 25 Января 2010, 20:45 |

ВОшедший

Группа: Members
Сообщений: 2

Статус: Offline

Найти сумму произведений компонентов двух массивов!....помогите пожалуйста!

Профиль · PM · E-Mail · Цитировать

NFL

Дата Понедельник, 25 Января 2010, 21:50 |

ВОвебовец

Группа: Members
Сообщений: 760

Статус: Offline

Trash, один цикл, в чем сложность?

--------------------

uCoz/Pascal help

Профиль · PM · E-Mail · WWW · Цитировать

Trash

Дата Понедельник, 25 Января 2010, 22:43 |

ВОшедший

Группа: Members
Сообщений: 2

Статус: Offline

NFL, ну вот я полный ноль...не знаю даже этого....помогите.....очень сильно надо!!!

Профиль · PM · E-Mail · Цитировать

NFL

Дата Вторник, 26 Января 2010, 10:17 |

ВОвебовец

Группа: Members
Сообщений: 760

Статус: Offline

for i:=1 to n do
s:=s+a[i]*b[i]? или я чего то не понял? :)
Добавлено:
или надо посчитать произведение всех элементов первого, всех элементов второго отдельно и потом сумму?
тогда 2 цикла...

--------------------

uCoz/Pascal help

Профиль · PM · E-Mail · WWW · Цитировать

Мсечка

Дата Пятница, 29 Января 2010, 10:19 |

ВОшедший

Группа: Members
Сообщений: 2

Статус: Offline

:help: помогите пожалуйста составить программы:
дано: x, y, z. если x>y+z, то вычислить M=(log(внизу написан x)*z-4,8)/z(в квадрате)+y(в квадрате)+x(в квадрате); если M>0, то вычислить r=(sin(в квадрате)*x+cos*x(в квадрате))/(|y(в кубе)+z(в 5 степени)|); если М<=0, то вычислить q=(lg|x|-ln(z))/(корень седьмой степени(cos*y+eв степени x)); если x>=y+z, то вычислить A=(max(x,y,z)/min(x,y,z))

Профиль · PM · E-Mail · Цитировать

Мсечка

Дата Пятница, 29 Января 2010, 10:31 |

ВОшедший

Группа: Members
Сообщений: 2

Статус: Offline

Дано a, b. если a>b, то вычислить k=(sin(a+b)+e(в сетпени a-b))/(sin(в квадрате)*a+cosb(в квадрате), иначе вычислить: y=(корень из(x(в квадрате)+a))/(cos(b)) если x>0. y=2sin(x(в квадрате)+a), если x<0. ctg(x/(a+b)), если x=0

Профиль · PM · E-Mail · Цитировать

NFL

Дата Пятница, 29 Января 2010, 17:53 |

ВОвебовец

Группа: Members
Сообщений: 760

Статус: Offline

Мсечка, условия, что сложого?
иф (условие) зен действие;

--------------------

uCoz/Pascal help

Профиль · PM · E-Mail · WWW · Цитировать

limpopo

Дата Вторник, 09 Февраля 2010, 18:48 |

ВОшедший

Группа: Members
Сообщений: 1

Статус: Offline

здравствуйте.я от паскаля далека,а мне надо на этой неделе сдать задачи...их 5 штук..помогите:
1)В книжном магазине продаются учебники для школьников.Создать таблицу, содержащую сведения об учениках: предмет, класс, издательство, год издания, автор, цена. Используя эти данные, вывести на экран список учебников, изданных в 2002 году, а так же подсчитать суммарную стоимость учебников для первого класса, имеющихся в магазине.
2) Дана символьная строка, содержащая слова разделенные между собой одним или несколькими пробелами. Определить самое короткое слово, начинающееся на "в".
3) Дан файл F, компонентами которого являются натуральные числа. Вывести на экран все компоненты файла F, делящиеся на 3 и не делящиеся на 7.
4) Дан файл F. Переписать его в новый файл, исключив из строк заданное слово.
5)Дана символьная строка,содержащая цифры от 0 до 9,объедененные в слова,разделенные между собой одним или несколькими пробелами.Рассматривая слова как числа,определить количество слов,делящихся на 7 без остатка