зачет сдам,буду вам очень признательна))последние две задачи - Форум
Воскресенье, 04.12.2016, 04:49
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » зачет сдам,буду вам очень признательна))последние две задачи
зачет сдам,буду вам очень признательна))последние две задачи
DELTaДата: Вторник, 03.05.2011, 14:56 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
6.Написать программу, которая генерирует последовательность из 10 чисел в диапазоне от 1 до 30 и вычисляет их среднее арифметическое
и вторая
I. Найти наименьший номер последовательности n, для которого выполняется условие lAn(a энное)l<E, (E)<<1.Вывести на экран этот номер и все элементы Ai (a итое)

Ai=2i-3/i^3-i+2

Сообщение отредактировал DELTa - Вторник, 03.05.2011, 15:02
 
KOT_B_MEIIIKEДата: Вторник, 03.05.2011, 21:34 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
program n1;
const n=10;
var srzn:real;i,x:integer;
begin
srzn:=0;
for i:=1 to n do
begin
x:=random(30);
if (x=0) then x:=random(30);
write(x:3);
srzn:=srzn+x
end;
writeln;
srzn:=srzn/n;
writeln(srzn);
end.

это первая

Добавлено (03.05.2011, 21:28)
---------------------------------------------
program epsilon;
var ai,eps:real; i:integer;
begin
write('Введите эпсилон:');read(eps);
i:=0;
repeat
i:=i+1;
ai:=(2*i-3)/(i*i*i-i+2);
writeln (ai:5:10);
until abs(ai)<eps;
writeln('номер элемента:',i);
end.
это вторая. Кол-во знаков после запятой можно поменять, в зависимости от размера эпсилон (допустимого), а можно оставить.

Добавлено (03.05.2011, 21:34)
---------------------------------------------
http://files.mail.ru/9M7FAN
или если лень перебивать вручную))

Сообщение отредактировал KOT_B_MEIIIKE - Вторник, 03.05.2011, 21:30
 
DELTaДата: Четверг, 05.05.2011, 23:37 | Сообщение # 3
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
ой даже в файлах есть))) спасибо огромное)) очень благодарна smile
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » зачет сдам,буду вам очень признательна))последние две задачи
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016