Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 25.06.2011, 18:16   #1
*SaDDaM
 
Регистрация: 12.06.2011
Сообщений: 7
Восклицание Алгоритм

В общем,есть задача,которую я ранее создал,было бы отлично если бы кто нибудь мог построить по ней алгоритм.
Вот текст задачи:
Program File_text;
var
A: Array [1..50] Of Integer;
f1 : text;
st : string;
i, N : integer;
begin
write ('zadaite kolvo elementov');
readln (n);
assign (f1, 'file1.txt');
rewrite (f1);
For I:=1 To N Do
begin
Readln(A[I]);
Writeln(f1, A[I]);
end;
close (f1);
reset (f1);
while not eof (f1) do
begin
readln (f1, A[I]);

if A[I] mod 2 = 0 then
write('chet element= ',A[I]);
end;
close (f1);
readln;
end .
А то я не понимаю как мне действия описать,буду очень блогодарен за помощь.
*SaDDaM вне форума
Старый 25.06.2011, 19:01   #2
Pein95
Форумчанин
 
Регистрация: 25.04.2010
Сообщений: 881
По умолчанию

если вы ету задачу сделали вы должны понимать то что написали... вывод: вы етого не делали.
Код:
Program File_text;
var
A: Array [1..50] Of Integer;  // масив из 50 целых чисел
f1 : text; //переменная типа текст)))
st : string; // строковая переменная
i, N : integer; //переменный типа целое число
begin
write ('zadaite kolvo elementov');
readln (n); // вводим лоличество елементов
assign (f1, 'file1.txt');//связываем переменную f1 с файло file.txt
rewrite (f1);// устанавливаем указатель на первую позицыю файла
For I:=1 To N Do //цыкл от 1 до кол-ва елементов
begin
Readln(A[I]); // вводим елементы масива
Writeln(f1, A[I]); // записываем в файл каждый елемент на новой строке
end;
close (f1); // закрываем файл
reset (f1); ищем файл и устанавливаем указатель в первую позицыю
while not eof (f1) do// вродь пока не конец файла (точно не знаю)
begin
readln (f1, A[I]); читаем из файла f1 елемент с индексом i

if A[I] mod 2 = 0 then //если остаток от деления ноль выводим след 
//фразу:
write('chet element= ',A[I]);
end;
close (f1);закрываем файл
readln;
end .
Pein95 вне форума
Старый 25.06.2011, 19:35   #3
*SaDDaM
 
Регистрация: 12.06.2011
Сообщений: 7
По умолчанию

Я не просил делать какие то выводы(Мне всё равно как вы считаете,я знаю правду),а попросил помощи в создание алгоритма для данной задачи.Я не знаю как действия с файлами занести в алгоритм(Блок схему).Извиняюсь,если изначально не правильно выразился.
*SaDDaM вне форума
Старый 25.06.2011, 19:39   #4
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

блок-схема
Вложения
Тип файла: rar cx.rar (4.6 Кб, 16 просмотров)
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума
Старый 25.06.2011, 19:45   #5
*SaDDaM
 
Регистрация: 12.06.2011
Сообщений: 7
По умолчанию

Ого,вот оно как,не думал что как обычное действие...
В любом случаи премного благодарен!Кстати,сам накинул,если бы не вы,то пролетел бы я в понедельник со своим экзаменом...
*SaDDaM вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Алгоритм TMDS (Алгоритм передачи данных интерфейса DVI) Pro4RE Помощь студентам 2 24.04.2011 21:55
Алгоритм Eugene_Brikov Помощь студентам 0 17.04.2011 10:59
Алгоритм patrol Общие вопросы Delphi 1 11.12.2010 17:34
Волновой алгоритм (алгоритм Ли) MrRockchip Общие вопросы C/C++ 4 10.05.2010 13:26
алгоритм lucky Паскаль, Turbo Pascal, PascalABC.NET 4 07.05.2009 12:56