0 / 0 / 0
Регистрация: 25.03.2014
Сообщений: 13
1

Нужно составить блок-схему

30.03.2014, 22:35. Показов 348. Ответов 1
Метки нет (Все метки)

Нужно составить блоксхему, к этой программе
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
program dima7;
const
  filename = 'input.txt';
 
var
  f, g: text;
  s, x: string;
 
begin
  if FileExists(filename) then
  begin
    Assign(f, filename);
    Reset(f);
    Assign(g, 'output.txt');
    Rewrite(g);
    WriteLn('введите строку: ');
    ReadLn(s);
    while not EOF(f) do
    begin
      ReadLn(f, x);
      if Pos(s, x) > 0 then
        WriteLn(g, x);
    end;
    Close(f);
    Close(g);
    WriteLn('Файл записан')
  end
  else
    WriteLn('Файл не записан');
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.03.2014, 22:35
Ответы с готовыми решениями:

Нужно Составить блок-схему к программе
uses crt; const k = 4;n = 4; var L: arrayof integer; i, j, p: integer; begin

Нужно составить программу и блок-схему
В конус вписан шар. Образующая конуса равна L и наклонена к основанию под углом Н. Найти длину...

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

Составить блок-схему
составить блок-схему!

1
32 / 5 / 0
Регистрация: 15.12.2013
Сообщений: 72
31.03.2014, 10:11 2
Вот, сделал с помощью программы
Миниатюры
Нужно составить блок-схему  
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.03.2014, 10:11

Составить блок-схему
Составить блок-схему! Задача: Элементы равностороннего треугольника пронумерованы следующим...

Составить блок схему
uses crt; var i,t,s,d,e,k: integer; begin for i:=1000 to 9999 do begin t:=i div 1000;...

Составить блок-схему
uses crt; type pnode=^node; node = record d : char; p : pnode; ...

Составить блок схему
Помогите пожалуйста , сделал сам наброски но кажется не правильно получилось... какая должна быть...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru