Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/10: Рейтинг темы: голосов - 10, средняя оценка - 5.00
Alishka
1 / 1 / 0
Регистрация: 04.06.2009
Сообщений: 21
1

Блок схема к готовой программе

24.06.2009, 08:50. Просмотров 1924. Ответов 13
Метки нет (Все метки)

Привет! помогите построить блок схему к следующей программе.
Задача: Текстовый файл содержит несколько целых чисел, выбросить из записи числа цифры 0 и 2, оставив прежним порядок остальных цифр (например: 59012512 -> 59151). Вывести в другой текстовый файл данные для построения гистограммы, показывающей зависимость количества различных цифр в записи числа от его порядкового номера.
(еще помогите немного изменить. чтобы выводилось в конечный файл сначало само получившееся число, потом его порядковый номер, потом количество различных чисел в нем) пока только выводится само число и количество различных чисел в нем.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
uses crt;
function Udal(n:longint):longint;{удаление 0 и 2}
var n1,n2:longint;
    c,k:integer;
begin
n1:=n;{запомним исходное число}
n2:=0;{новое число пока 0}
k:=1;{степень первой =1}
while n1>0 do{пока число не ноль}
 begin
  c:=n1 mod 10;{отделяем с конца по одной цифре}
  if(c<>0)and(c<>2)then{если это не 0 и не 2}
   begin
    n2:=n2+c*k;{умножаем цифру на очередную стапень 10 и прибавлем к тому, что получилось раньше}
    k:=k*10;{увеличиваем степень 10}
   end;
  n1:=n1 div 10;{берем число без последней цифры и все повторяем, пока число не кончится}
 end;
Udal:=n2;{значение функции}
end;
function KolRaz(n:longint):byte;{подсчет количества разных цифр}
var c,k:byte;
    m:set of byte;{множество цифр}
    n1:longint;
begin
n1:=n;{запомним число}
m:=[];{множество пока пустое}
k:=0;{разных пока нет}
while n1>0 do
 begin
  c:=n1 mod 10;
  if not (c in m) then{если цифры еще нет в множестве}
   begin
     k:=k+1;{считаем ее}
     include(m,c);{добавляем в множество}
   end;
  n1:=n1 div 10;
 end;
KolRaz:=k;
end;
var f,g:text;{2 текстовых файла}
    name_f,name_g:string;{их имена}
    a:longint;{числа в файле, не более 2 147 483 647}
begin
clrscr;
write('Введите имя исходного файла: ');
readln(name_f);{вводим только имя без расширения}
name_f:=name_f+'.txt';{добавляем расширение}
assign(f,name_f);
reset(f);{исходный открываем для чтения}
write('Введите имя выходного файла: ');
readln(name_g);
name_g:=name_g+'.txt';
assign(g,name_g);
rewrite(g);{выходной для записи}
while not eof(f)do{пока не конец файла}
 begin
  read(f,a);{читаем числа}
  write(Udal(a),'  ');{выводим на экран без 0 и 2}
  writeln(KolRaz(Udal(a)));{выводим на экран число разных цифр в них}
  writeln(g,KolRaz(Udal(a)));{это же в файл столбиком}
 end;
close(f);{закрываем файлы}
close(g);
write('Файл G записан!');
readln
end.
ОЧЕНЬ СРОЧНО!!!
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.06.2009, 08:50
Ответы с готовыми решениями:

Составьте блок-схему по готовой программе
составить блок схему)))помогите IF a=b THEN z:=a+b ELSE Begin IF a&gt;0 THEN

Составить блок-схемы по готовой программе
program zad; uses crt; type m=array of integer; procedure vvod; var mas:array of...

Составьте блок-схему по готовой программе
Составьте блок-схему по готовой программе. PROGRAM summa; VAR A,S:REAL; BEGIN S:=0; ...

Блок схема по программе
Нужно составить блок схему Uses CRT; const nmax=5; mmax=5; str=5;

Блок- схема по программе
помогите нарисовать блок схему по программе program vstavka_propuska; uses crt; var...

13
lexus_ilia
3062 / 722 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
24.06.2009, 13:25 2
Вы честно думаете, что если Вы будете писать большими цветными буквами - Вам быстрее помогут?
0
Alishka
1 / 1 / 0
Регистрация: 04.06.2009
Сообщений: 21
24.06.2009, 17:02  [ТС] 3
Я просто уже не знаю чего делать!!! :'( Завтра сдавать надо!!! От безвыходности хоть как-то пытаюсь привлечь внимание к своей проблеме!
Я в отчаянии!!! :'(

Добавлено через 3 часа 27 минут 14 секунд
Ну неужели мне здесь не помогут?!!? Никто не умеет блок схемы делать???Блин! завтра последний день сдачи... :'(
0
lexus_ilia
3062 / 722 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
24.06.2009, 17:49 4
Не волнуйтесь, я построю Вам блок-схему, ждите вечером будет готова.
0
Alishka
1 / 1 / 0
Регистрация: 04.06.2009
Сообщений: 21
24.06.2009, 18:07  [ТС] 5
Ой, СПАСИБО!!! если не затруднит, можешь еще написать "Описание используемых в работе процедур и функций" и чисто для виду несколько книг, которыми я могла пользоваться при работе с указанием стр..
0
lexus_ilia
3062 / 722 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
24.06.2009, 18:11 6
Не, книги писать не буду, возьмёте с любого реферата, а функции опишу окей. Через часиков 6 только сяду делать, так что ждите.

Добавлено через 2 минуты 35 секунд
а ещё посмотрел тут Вам надо переделать, да?
Цитата Сообщение от Alishka Посмотреть сообщение
еще помогите немного изменить. чтобы выводилось в конечный файл сначало само получившееся число, потом его порядковый номер, потом количество различных чисел в нем
Только что означает "порядковый номер" ?
0
Alishka
1 / 1 / 0
Регистрация: 04.06.2009
Сообщений: 21
24.06.2009, 18:18  [ТС] 7
да просто в столбик 1, 2, 3, 4... если допустим всего исходных 8 чисел, то и цифр будет 8
0
lexus_ilia
3062 / 722 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
24.06.2009, 18:27 8
А ничего если я переделаю процедуру удаления цифр (упрощю её) и процедуру нахождения разных цифр в числе ?
0
John_Pa9JIbHuK
Добрый самаритянин
1103 / 618 / 139
Регистрация: 31.03.2009
Сообщений: 2,568
24.06.2009, 18:33 9
вот сделал через прогу разумеется надо посмотреть и кое что подправить
1
Миниатюры
Блок схема к готовой программе   Блок схема к готовой программе   Блок схема к готовой программе  

Alishka
1 / 1 / 0
Регистрация: 04.06.2009
Сообщений: 21
24.06.2009, 20:48  [ТС] 10
ну упрощенный вариант отправь мне. А что подправить? для меня это все равно что....

Добавлено через 3 минуты 50 секунд
lexus_ilia, я жду твое решение!
0
John_Pa9JIbHuK
Добрый самаритянин
1103 / 618 / 139
Регистрация: 31.03.2009
Сообщений: 2,568
24.06.2009, 22:26 11
Alishka, ну жди тогда )))
0
Puporev
Модератор
58902 / 44590 / 30777
Регистрация: 18.05.2008
Сообщений: 106,840
24.06.2009, 22:29 12
А ничего если я переделаю процедуру удаления цифр (упрощю её) и процедуру нахождения разных цифр в числе ?
Илья, а у меня разрешения спросил?
0
lexus_ilia
3062 / 722 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
25.06.2009, 05:31 13
Ну коль уж прошло столько времени, а у меня уже 4:30 утра и я не сел делать, то простите меня, я зря Вам говорил что помогу, ибо у меня экзамен сегодня, а я ещё не спал, я просмотрел блок-схемы John_Pa9JIbHuK - нормальные там блок схемы.
0
Alishka
1 / 1 / 0
Регистрация: 04.06.2009
Сообщений: 21
25.06.2009, 07:27  [ТС] 14
John_Pa9JIbHuK, Спасибо за схемы. а можешь, если не сложно написать осисание используемых процедур?
0
25.06.2009, 07:27
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.06.2009, 07:27

Блок схема по программе
uses crt; const n=15; m=8; var a,b:array of integer; i,j,imx,imn,sa,sb:integer;...

Блок-схема к программе
Помогите пожалуйста. Нужно срочно сделать блок-схему. Кто сможет сделать, умоляю, пришлите сюда...

Блок-схема к программе
помогите пожалуйста написать блок-схему к программе: var MyArr:array of real; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
14
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.