операторы присваивания Опции

[Sanches]

Первая программа[u]
Написать программу, которая вводит с клавиатуры последовательность из пяти дробных чисел и после ввода каждого числа выводит среднее арифметическое полученной части последовательности. Рекомендуемый вид экрана во время работы программы приведен ниже.
Обработка последовательности дробных чисел. После ввода каждого числа нажимайте <Enter>
-> 12.3
Введено чисел: 1 Сумма : 12.30 Сред.арифметическое :12.30
->10
Введено чисел: 2 Сумма : 27.30 Сред.арифметическое :13.65
->5.6
Введено чисел: 3 Сумма : 37.30 Сред.арифметическое :12.43
->5.6
Введено чисел: 4 Сумма : 42.90 Сред.арифметическое :10.73
->11.5
Введено чисел: 5 Сумма : 54.40 Сред.арифметическое :10.88
Для завершения работы нажмите <Enter>
Вторая программа[u]
Написать программу, которая проверяет, является ли целое число, введенное пользователем, простым. Рекомендуемый вид экрана во время работы программы приведен ниже.
пример:
Введите целое число и нажмите <Enter>
-> 45
45 — не простое -число.

Сообщение отредактировано: Sanches - 31.05.2009 16:51

[Krjuger]

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

Сообщение отредактировано: Krjuger - 31.05.2009 15:34

[Sanches]

Скиньте ваши наработки,и тогда люди вам их подредактируют и подправят.

в том то и дело ч то я в этом ничё не понимаю(((((((((((((((((

[Krjuger]

Что значит ничего.....?Что вы не понимаете математическую часть алгоритм или реализацию конкретно на паскале?

[Sanches]

Что значит ничего.....?Что вы не понимаете математическую часть алгоритм или реализацию конкретно на паскале?

вообще ни паскаль ни матем часть ни сам алгоритм..((

[Ozzя]

ни матем часть

И что, даже не знаете, что такое среднее арифметическое?

[Ozzя]

ни матем часть

А какое число простое, есть в FAQ

Сообщение отредактировано: Ozzя - 31.05.2009 15:44

[Krjuger]

Ну алгоритм я вам в общих чертах описал,а так читайте FAQ потому что,если вы ТАКОЕ сделать не можете,то простите вам не писать программы.

И что, даже не знаете, что такое среднее арифметическое

Видно как суммировать тоже не знает.

Сообщение отредактировано: Krjuger - 31.05.2009 15:44

[Sanches]

тяжело значит помочь(((((

[Ozzя]

Нет, помочь не тяжело. А вот за тебя писать программу - не-а. Ты хоть в FAQ загляни

[Sanches]

думаешь не смотрел??? толку с этого(((... я никогда не умел их писать. препод изначально в школе плохой. а щас вот требует их сдать. а я не знаю как...

[Lapp]

М

Sanches, Правила не для тебя? Переименуй тему.

К остальным просьба: воздерживаться от ответов в темы, нарушающие Правила

[sheka]

Как идея создаете процедуру, которая считывает элемент из файла и добавляет в сумме, а потом выводит среднее аривметическое.

запугал человека файлом - для этой программы достаточно 3 переменных - для суммы и кол. введеных чисел, и самого числа.

Sanches, в паскале есть такой чудесный оператор как присвоение := , также + прибавление, - отнимание, * умножение.
наверное, ты даже не можешь себе представить, ч то тебе потребуются только эти три := , + , / .
так как ты признался что у тебя со всем этим плохо - подскажу: средлее арифметическое=суммавсех/количествовсех;
простое число делится нацело только на само себя и на 1 (ищи в FAQ)

ps. я єтот пост писал дольше чем писал бы эти проги. открой хоть первую страницу книжки по паскалю!

Сообщение отредактировано: sheka - 31.05.2009 16:24

[Sanches]

запугал человека файлом - для этой программы достаточно 3 переменных - для суммы и кол. введеных чисел, и самого числа.

Sanches, в паскале есть такой чудесный оператор как присвоение := , также + прибавление, - отнимание, * умножение.
наверное, ты даже не можешь себе представить, ч то тебе потребуются только эти три := , + , / .
так как ты признался что у тебя со всем этим плохо - подскажу: средлее арифметическое=суммавсех/количествовсех;
простое число делится нацело только на само себя и на 1 (ищи в FAQ)

спасибо хоть на этом...

[Lapp]

!

Еще раз прошу: прочти Правила и переименуй тему.

[Krjuger]

и кол. введеных чисел

Две переменные,потому что у него количество строго 5.
Sanches
А вообще молодой человек,почитайте такие вещи,как чтение элемента с клавиатуры,типы переменных,такие вещи как число1:=число1+число2;Называется это накапливанием суммы,вы число увеличиваете на какое нибудь число и записываете в туде переменную,в которой было предыдущее число,а среднее арифметическое это сумма деленная на количестов.Все больше тут математики не нужно,так же ознакомтесь с понятием цикла for .

и переоформите тему иначе вам отвечать никт оне станет.

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...

вот этот пункт ваша тема нарушает,поэтому сами видите,чм это грозит.

[Lapp]

М

Добро.

[sheka]

Две переменные,потому что у него количество строго 5.
так же ознакомтесь с понятием цикла for .

ему нужно количество на данный момент ( или счетчик цикла for);
конечно можна обойтись и 2 переменными и без всяких циклов ( увеличить длуну кода в 5 раз)

[Sanches]

Народ. ну хоть со второй прогой помогите!!! я первую написал

[Lapp]

Написать программу, которая вводит с клавиатуры последовательность из пяти дробных чисел и после ввода каждого числа выводит среднее арифметическое полученной части последовательности. Рекомендуемый вид экрана во время работы программы приведен ниже.
Обработка последовательности дробных чисел. После ввода каждого числа нажимайте <Enter>
-> 12.3
Введено чисел: 1 Сумма : 12.30 Сред.арифметическое :12.30
->10
Введено чисел: 2 Сумма : 27.30 Сред.арифметическое :13.65
->5.6
Введено чисел: 3 Сумма : 37.30 Сред.арифметическое :12.43
->5.6
Введено чисел: 4 Сумма : 42.90 Сред.арифметическое :10.73
->11.5
Введено чисел: 5 Сумма : 54.40 Сред.арифметическое :10.88
Для завершения работы нажмите <Enter>

Вот смотри, можно так:

s:=0;
n:=0;
for i:=1 to 5 do begin
  Inc(n);
  Write('-> ');
  ReadLn(a);
  s:=s+a;
  WriteLn('Введено чисел: ,n,' Сумма: ',s:6:2,' Сред.арифметическое: ',s/n:6:2)
end;