Об игре
Новости
Войти
Регистрация
Рейтинг
Форум
2:32
1260
 online
Требуется авторизация
Вы не авторизованы
   Форумы-->Форум для внеигровых тем-->

АвторПомогите решить)
семь7я
 1  2009-12-18 00:45:19
Задача по файлам)
С клавиатуры вводится N целых чисел (N – случайное число из интервала [10; 100]). Требуется:количество компонентов файла, кратных последнему компоненту.Примечание: массивы в программе не использовать.

Решение:
Program Example_5_1;
var n : Integer;
k : Integer;
i,j: Integer;
kl : Integer;
Begin
Write ('Введите нижнюю границу отрезка - '); ReadLn (n);
Write ('Введите верхнюю границу отрезка - '); ReadLn (k);
WriteLn ('Все простые числа из отрезка [',n,',',k,']');
For i:=n to k do
Begin
seek(n,k);
n:=n div k
end:
end.
В конце я запутался(
Солёный
 2  2009-12-18 01:25:46
Ууу...для такого моя голова подобна дереву)))
#433LukSkaiwoker
 3  2009-12-18 01:37:40
это паскаль?
SanduBandu
 4  2009-12-18 01:51:56
это паскаль? да
Phantom-13
 5  2009-12-18 03:26:07
Program Example_5_1;
var n, n1, n2: Integer;
i: Integer;
{kl : Integer;}
Begin
Write ('Введите нижнюю границу отрезка из интервала [10; 100] - '); ReadLn (n1);
Write ('Введите верхнюю границу отрезка из интервала [10; 100]- '); ReadLn (n2);
{WriteLn ('Все простые числа из отрезка [',n,',',k,']');}
If n1<10 and n2>100 then
Write ('Введите нижнюю границу отрезка из интервала [10; 100] - '); ReadLn (n1);
If n2<n1 and n2>100 then
Write ('Введите нижнюю границу отрезка из интервала [10; 100] - '); ReadLn (n2);
For i:=n1 to n2 do
Begin
seek(n1,n2);
n:=n1 div n2
WriteLn ('Все простые числа из отрезка [',n1,',',n2,' равны ',n,']');

end;
end.
Phantom-13
 6  2009-12-18 03:31:47
If n1<10 and n2>100 then
Write ('Введите нижнюю границу отрезка из интервала [10; 100] - '); ReadLn (n1);
If n2<n1 and n2>100 then
Write ('Введите нижнюю границу отрезка из интервала [10; 100] - '); ReadLn (n2);

затупил

If n1<10 and n1>n2 then
Write ('Введите нижнюю границу отрезка из интервала [10; 100] - '); ReadLn (n1);
If n2<n1 and n2>100 then
Write ('Введите нижнюю границу отрезка из интервала [10; 100] - '); ReadLn (n2);
семь7я
 7  2009-12-18 12:04:39
для Phantom-13:Спасибо что помог но она к сожелению не работает(Но все равно спс)
Mrakobes5490
 8  2009-12-18 12:05:46
я тока в C++ понимаю
politzek
 9  2009-12-18 12:12:35
а что за процедура seek
Кокпар2
 10  2009-12-18 12:13:38
я мозк себе чуть не сломал пока читал
семь7я
 11  2009-12-18 12:18:49
для politzek:Seek - позиционирует указатель на определенный элемент по его номеру в файле.SEEK(F,N); N - номер элемента в файле.
семь7я
 12  2009-12-18 12:22:09
Вот что тут не правильно???
Program Example_5_1;
var n, n1, n2: Integer;
i: Integer;
{kl : Integer;}
Begin
Write ('Введите нижнюю границу отрезка из интервала [10; 100] - '); ReadLn (n1);
Write ('Введите верхнюю границу отрезка из интервала [10; 100]- '); ReadLn (n2);
{WriteLn ('Все простые числа из отрезка [',n,',',k,']');}
If n1<10 and n1>n2 then
Write ('Введите нижнюю границу отрезка из интервала [10; 100] - '); ReadLn (n1);
If n2<n1 and n2>100 then
Write ('Введите нижнюю границу отрезка из интервала [10; 100] - '); ReadLn (n2);
For i:=n1 to n2 do
Begin
seek(n1,n2);
n:=n1 div n2
WriteLn ('Все простые числа из отрезка [',n1,',',n2,' равны ',n,']');
end;
end.
К списку тем
2007-2025, онлайн игры HeroesWM