Первая программа[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 — не простое -число.

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

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

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

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

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

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

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


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

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

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

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

М

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

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

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

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

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

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

!

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

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

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

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

М

Добро.

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

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

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

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;

дак я эту и написал, только вот так
║ program srednee_arifmeticheskoe; ▲
║ var ■
║ i:integer; ▒
║ a,b,c:real; ▒
║ begin ▒
║ b:=0; ▒
║ for i:=1 to 5 do ▒
║ begin ▒
║ writeln ('введите число',i:2); ▒
║ readln(a); ▒
║ B:=b+a; ▒
║ c:=b/i; ▒
║ writeln('введите чисто',i:2,' сумма=',b:3:2,' среднее арифметическое=',c:3:2);
║ end; ▒
║ readln; ▒
║ end. ▒
║

Если будешь показывать, что хоть что-то пытаешься делать, к тебе тут будет гораздо лучшее отношение, постарайся это понять.

Write('-> ');
ReadLn(n);
Write(n,' - ');
for i:=2 to Trunc(Sqrt(n)) do if n mod i=0 then begin
  WriteLn('не ');
  Break
end;
WriteLn('простое число');

я пытаюсь))) вот написал же первую сам

Дык. Сразу уважуха!))

Только как тебя угораздило вот так это запостить??

Чем копировал? Уж не через ворд ли?..
Копируй через блокнот и используй теги, когда постишь (выделить прогу мышью, кликнуть CODE, выбрать Паскаль)

Ну а что в твоем понимании простое число?Это число которое не делиться на 2,3,5,7.11 и тд без остатка.как можно проверить,числа которые являются составными,первое число 2*2,потом 2*3,2*4,3*3,2*5,2*6,2*7,3*5,2*8 и тд надеюсь ты улавливаеш последовательность?Либо можно проверять делится ли оно без остатся,если делится то составное,если нет то простое.мда зря старался Блин)

Ничего не бывает зря)).

Вот так оно всегда бывает: пожалеешь человека - и отберешь у него радость сделать самому((..
Жалость - это неправильно..

PS
кто будет тут флудить - жалеть не буду!!

хихи))

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

Как говорится, благими намерениями вымощена дорога в ад.))
По-моему, главное - не вывернуться, а чтобы после 30 самостоятельно решённых "радостей" в голове хоть одна, да запомнилась.

(К следующему посту: он проверяет на склонность к флудерству :-D (отредактировал, засорять топ не хочу))

Это конешно же да,то если из 30 в одной приходится выворачиваться,то тут уж ничего не поделаеш,Вы заметьте какое оживление началось под сесиию,щас людям все равно на знание, главное галочка в синенькой книжечке....

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

Хитрый, но справедливый))

Если кто хочет высказаться по вопросам жалости - милости прошу в Свободное или Дискуссионный Клуб. Не мешайте людям учиться))

PS
ответ на незаданный вопрос: админам можно))