Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 23.03.2010
Сообщений: 11
1

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

10.06.2010, 22:51. Просмотров 441. Ответов 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
31
32
33
34
35
36
37
38
39
40
Program hhh;
      Type zapis= Record;
              Shifr: Integer;
              Avtor: String;
              Name: String;
              Izdanie: Integer;
    End;
Var P: File of zapis;
LB: zapis;
x: String;
n, i: Integer;
Begin
Assign(P' LB. txt');
Write(' x= ');
Readln(x);
Rewrite(P);
    For i: 1 to n do
Begin
Write ('Введите год издание:');
Readln( LB.Izdanie);
Write('Введите шифр книги');
Readln('LB. Shifr');
Write('Введите автора');
Readln('LB.avtor');
Write('P, LB');
End;
 Close(P);
 Reset(P);
K:=0
    For i:=1 to filesize(P) do
Begin 
    Read(P,LB);
 If LB.avtor= x then
 Writeln (LB.name);
 If Lb.Izdanie= 1980 then k= k+1
End;
 Close(P);
 Writeln(' k= ', k);
 Readln;
 End.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.06.2010, 22:51
Ответы с готовыми решениями:

Составить блок-схему к программе
Program kursovaya; const n = 12; m = 12; k1 = -50; k2 = 50; type matr = array of integer; ...

Составить блок схему по программе
Помогите пожалуйста составить блок схему по этой проге: Const n=2; Type matr=array of real;...

Составить блок схему по программе
составить блок схему по программе Program N_3; uses crt; var s:string; i,k,mx,mn:byte;...

Составить блок-схему по программе
составить блок схему по программе Program N_4_1; uses crt; var a:array of integer; ...

1
23 / 23 / 12
Регистрация: 29.11.2009
Сообщений: 210
10.06.2010, 23:07 2
посмотри тут Нужна блок-схема для программы
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.06.2010, 23:07

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Составить блок схему по программе
Текст задачи: Зашифровать строку 121-го символа в матрицу 11 х 11 по спирали, строку считывать из...

Составить блок схему к программе
Затрудняюсь составить блок схему, помогите плз Uses crt; Const n=15; Var x,y,z: Array of...

Составить блок схему к программе
Помочь составить блок схему к программе. uses crt; var a:array of integer; ...

Составить блок-схему к программе
y=sin(cos(x+3)), y>0. Найти колличество значений х при которых y>0 Нужно сделать блок схему!!!


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

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

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