Создать три блок-схемы по исходному коду задачи.

@Bulat1991 · Регистрация: 21.03.2010

Студворк — интернет-сервис помощи студентам

вот тут прога и к ней надо сделать блок схемы!!пожалуйста помогите!!внизу показал какие схемы нужны!!

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
program Bulat;
uses crt;
type str_f=record
gr: string[6];
FIO: string[30];
zach: string[6];
pred1:  string[15];
oz1: byte;
pred2: string[15];
oz2: byte;
sr_ball: real;
End;
Var z: str_f;
    f: file of str_f;
    Sr_ball: real;
    i: byte;
    Key: char;
    Sum: real;
    gr1: string;
    K: byte;
    M: byte;
Procedure Dop;
Begin
Clrscr;
Assign (f,'a: \file.dat');
Reset (f); seek (f, filesize (f)-1);
Repeat
Writeln ('Ввести данные');
With z do
Begin
Write ('Группа -'); readln (Gr);
Write ('Ф.И.О. -'); readln (FIO);
Write ('№ зач. -'); readln (Zach);
Write ('Предмет 1 -'); readln (pred1);
Write ('Оценка 1 -'); readln (oz1);
Write ('Предмет 2 -'); readln (pred2);
Write ('оценка 2 -'); readln (oz2);
Sr_ball :=( oz1+oz2)/2;
Writeln ('Sr_ball-', sr_ball:4:2);
End;
Write (f, z);
Writeln ('Введите следующее значение (Если нет, то <esc>)-');
Until readkey=#27;
Close (f);
End;
Procedure Poisk;
Begin
Write ('Введите № группы - ');
Readln (gr1);
{For i:= 0 to filesize(f)-1 do begin
Seek (f, I);
Read (f, z);
End ;}
k:=0;
Writeln (' - ',gr1);
Writeln ('______________________________________________________');
Writeln ('| № | № зачетки | Ф.И.О. | Средний балл|');
Writeln ('______________________________________________________');
Reset (f);
For i:=1 to filesize(f) do
Begin
     Read (f, z);
     If (z.gr=gr1) then
     Begin
          K:=k+1;
          writeln('|',k:4,'|',z.Nzach:11,'|',z.FIO:14,'|',z.sr_ball:14:2,'|;
Writeln ('______________________________________________________');
Reset (f);
 
          Sum:=sum+z.sr_ball;
     End;
End;
Sum:=sum/k;
Writeln ('', sum:3:2);
Close (f);
Readln;
End;
Begin
      Repeat
      Writeln ('1- создание’);
      Writeln ('2- дополнение');
      Writeln ('3- поиск');
      Writeln ('4- выход’);
      Readln (m);
      Case m of
      3: поиск;
      2: доп.;
      1: begin rewrite (f); dop; end;
      End;
      Until m=4;
End.

Схема №1 «блок-схема создания меню и использование подпрограммы -Bulat»

Схема №2 «блок-схема создания файла записи и дополнение файла записями – Схема»

Схема №3 «блок-схема выборка записей из файла по критерию - Bakiev»

Добавлено через 11 часов 10 минут
извините!!прогу набирал не я!!и сам набрать не смог бы!!!СМОЖЕТЕ СДЕЛАТЬ блок схемы???пожалуйста выручайте

@WolfCF · 09.04.2010, 09:23

Где тут 3 блок-схемы? она одна и разбивается на 3. В программе бы хоть ошибки испрваили.

Добавлено через 3 минуты
вот основные блоки https://www.cyberforum.ru/pasc... post595430
по ним сам строй блок-схемы.

@Bulat1991 · 09.04.2010, 09:25 **[ТС]**

извините!!я нечего в этом не понимаю!!пожалуйста помогите!!в понедельник зачёт!!

@WolfCF · 09.04.2010, 09:32

Сообщение от Bulat1991

я нечего в этом не понимаю

я тоже не понимаю,но стараюсь понять. примеры и блоков и блок-схем даны

Не по теме:

Сообщение от Bulat1991

в понедельник зачёт

на зачет тоже мне идти?

@Bulat1991 · 09.04.2010, 09:35 **[ТС]**

блок схему может я и сделаю!!!но внутри схем чё писать я не знаю!!у меня эти схемы есть!!но они не заполнены!!вот поэтому вас прошу помощи!!пожалуйста сделайте

@WolfCF · 09.04.2010, 09:37

Сообщение от Bulat1991

использование подпрограммы -Bulat»

у вас программа булат называется.

Сообщение от Bulat1991

по критерию - Bakiev»

это что еще за критерий?

@Bulat1991 · 09.04.2010, 09:44 **[ТС]**

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

@Bulat1991 · 10.04.2010, 12:16 **[ТС]**

набрал программу!!выдаёт ошибку error 21 error in type!!и курсор встаёт в начале проги Var z: str_f; встаёт возле str!!как исправить ошибку???

@Puporev · 10.04.2010, 12:36

Bulat1991, Никакой ошибки здесь нет, не выдумывай, проверь текст. Дальше есть 2 ошибки, я поправил. Ну и в меню нужно настоящие названия процедур написать.

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
program Bulat;
uses crt;
type str_f=record
gr: string[6];
FIO: string[30];
zach: string[6];
pred1:  string[15];
oz1: byte;
pred2: string[15];
oz2: byte;
sr_ball: real;
End;
Var z: str_f;
    f: file of str_f;
    Sr_ball: real;
    i: byte;
    Key: char;
    Sum: real;
    gr1: string;
    K: byte;
    M: byte;
Procedure Dop;
Begin
Clrscr;
Assign (f,'a: \file.dat');
Reset (f); seek (f, filesize (f)-1);
Repeat
Writeln ('Ввести данные');
With z do
Begin
Write ('Группа -'); readln (Gr);
Write ('Ф.И.О. -'); readln (FIO);
Write ('№ зач. -'); readln (Zach);
Write ('Предмет 1 -'); readln (pred1);
Write ('Оценка 1 -'); readln (oz1);
Write ('Предмет 2 -'); readln (pred2);
Write ('оценка 2 -'); readln (oz2);
Sr_ball :=( oz1+oz2)/2;
Writeln ('Sr_ball-', sr_ball:4:2);
End;
Write (f, z);
Writeln ('Введите следующее значение (Если нет, то <esc>)-');
Until readkey=#27;
Close (f);
End;
Procedure Poisk;
Begin
Write ('Введите № группы - ');
Readln (gr1);
{For i:= 0 to filesize(f)-1 do begin
Seek (f, I);
Read (f, z);
End ;}
k:=0;
Writeln (' - ',gr1);
Writeln ('______________________________________________________');
Writeln ('| № | № зачетки | Ф.И.О. | Средний балл|');
Writeln ('______________________________________________________');
Reset (f);
For i:=1 to filesize(f) do
Begin
     Read (f, z);
     If (z.gr=gr1) then
     Begin
          K:=k+1;
          writeln('|',k:4,'|',z.zach:11,'|',z.FIO:14,'|',z.sr_ball:14:2,'|');
Writeln ('______________________________________________________');
Reset (f);
 
          Sum:=sum+z.sr_ball;
     End;
End;
Sum:=sum/k;
Writeln ('', sum:3:2);
Close (f);
Readln;
End;
Begin
      Repeat
      Writeln ('1- создание');
      Writeln ('2- дополнение');
      Writeln ('3- поиск');
      Writeln ('4- выход');
      Readln (m);
      Case m of
      3: поиск;{здесь должны стоять настоящие имена процедур}
      2: доп.;
      1: begin rewrite (f); dop; end;
      End;
      Until m=4;
End.

@Bulat1991 · 10.04.2010, 14:53 **[ТС]**

пожалуйста напишите где чё исправить и выделите ошибки!!я не могу найти где у меня ошибка!!

Добавлено через 26 секунд
и напишите какие процедуры там написать

Добавлено через 1 час 53 минуты
Я ВСЁ ИСПРАВИЛ ПРОЦЕДУРЫ НАПИСАЛ!!!НО ТАМЖЕ ВЫДАЁТ ОШИБКУ!!

type str_f=record --ТУТ ВЫДАЁТ ОШИБКУ!!ТЕКСТ Я ВСЁ ПРОВЕРИЛ РАЗА 3!ПОЧЕМУ ТАМ ОШИБКА???КАК ИСПРАВИТЬ

@Popuriska · 10.04.2010, 15:06

Напряженная обстановка!

@Puporev · 10.04.2010, 15:23

Сообщение от Bulat1991

type str_f=record --ТУТ ВЫДАЁТ ОШИБКУ!!

Так напиши номер ошибки и ее текст, что говорит компилятор, на какое место показывает, где стоит курсор. У меня нет в этом месте ошибки.

@Bulat1991 · 11.04.2010, 11:49 **[ТС]**

error 90:"=" expected
вот тут показывает ошибку type str f=record курсор стоит на букве f

Добавлено через 2 часа 41 минуту
помогите пожалуйста!!!

Добавлено через 15 часов 20 минут
помогите пожалуйста!!!

Добавлено через 16 секунд
срочно надо

Добавлено через 39 минут
кто нибудь может разобраться почему у меня там ошибку выдаёт?????
error 90:"=" expected
вот тут показывает ошибку type str f=record курсор стоит на букве f

@WolfCF · 11.04.2010, 11:52

Bulat1991, что Вы хотите? исправить ошибки в Вашей программе?

@Bulat1991 · 11.04.2010, 12:01 **[ТС]**

да!!прога выдаёт ошибку!! выше написано где ошибку показывает!!как её исправить???

@Puporev · 11.04.2010, 12:02

type str_f=record //вставь знак подчеркивания, нельзя пробелы ставить в идентификаторах, прочитайте хоть первых 10 страниц в каком-нибудь учебнике по Паскалю.

@WolfCF · 11.04.2010, 12:02

type str_f=record

Puporev исправил же всё! нет сами что-то мудрите.

@Bulat1991 · 11.04.2010, 12:12 **[ТС]**

я везде поставил подчёркивания!!час выдаёт ошибкуerror5 syntax error!!rfr bcghfdbnm&&

Добавлено через 17 секунд
как исправить??

@WolfCF · 11.04.2010, 12:14

не издевайтесь

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
program Bulat;
uses crt;
type str_f=record
gr: string[6];
FIO: string[30];
zach: string[6];
pred1:  string[15];
oz1: byte;
pred2: string[15];
oz2: byte;
sr_ball: real;
End;
Var z: str_f;
    f: file of str_f;
    Sr_ball: real;
    i: byte;
    Key: char;
    Sum: real;
    gr1: string;
    K: byte;
    M: byte;
Procedure Dop;
Begin
Clrscr;
Assign (f,'a: \file.dat');
Reset (f); seek (f, filesize (f)-1);
Repeat
Writeln ('Ввести данные');
With z do
Begin
Write ('Группа -'); readln (Gr);
Write ('Ф.И.О. -'); readln (FIO);
Write ('№ зач. -'); readln (Zach);
Write ('Предмет 1 -'); readln (pred1);
Write ('Оценка 1 -'); readln (oz1);
Write ('Предмет 2 -'); readln (pred2);
Write ('оценка 2 -'); readln (oz2);
Sr_ball :=( oz1+oz2)/2;
Writeln ('Sr_ball-', sr_ball:4:2);
End;
Write (f, z);
Writeln ('Введите следующее значение (Если нет, то <esc>)-');
Until readkey=#27;
Close (f);
End;
Procedure Poisk;
Begin
Write ('Введите № группы - ');
Readln (gr1);
k:=0;
Writeln (' - ',gr1);
Writeln ('______________________________________________________');
Writeln ('| № | № зачетки | Ф.И.О. | Средний балл|');
Writeln ('______________________________________________________');
Reset (f);
For i:=1 to filesize(f) do
Begin
     Read (f, z);
     If (z.gr=gr1) then
     Begin
          K:=k+1;
          writeln('|',k:4,'|',z.zach:11,'|',z.FIO:14,'|',z.sr_ball:14:2,'|');
Writeln ('______________________________________________________');
Reset (f);
 
          Sum:=sum+z.sr_ball;
     End;
End;
Sum:=sum/k;
Writeln ('', sum:3:2);
Close (f);
Readln;
End;
Begin
      Repeat
      Writeln ('1- создание');
      Writeln ('2- дополнение');
      Writeln ('3- поиск');
      Writeln ('4- выход');
      Readln (m);
      Case m of
      3: poisk;
      2: dop;
      1: begin rewrite (f); dop; end;
      End;
      Until m=4;
End.

компилируется без ошибок

@Bulat1991 · 16.04.2010, 15:36 **[ТС]**

дайте мне пожалуйста адрес вашей почты я отправлю вам этот файл паскаль!!!которая у меня не запускается!!а у вас идёт!!может найдётся ошибка

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@WolfCF 3316 / 1378 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	09.04.2010, 09:23
	Где тут 3 блок-схемы? она одна и разбивается на 3. В программе бы хоть ошибки испрваили. Добавлено через 3 минуты вот основные блоки https://www.cyberforum.ru/pasc... post595430 по ним сам строй блок-схемы. 0

@Bulat1991 0 / 0 / 0 Регистрация: 21.03.2010 Сообщений: 38
	09.04.2010, 09:25 [ТС]
	извините!!я нечего в этом не понимаю!!пожалуйста помогите!!в понедельник зачёт!! 0

@Bulat1991 0 / 0 / 0 Регистрация: 21.03.2010 Сообщений: 38
	09.04.2010, 09:35 [ТС]
	блок схему может я и сделаю!!!но внутри схем чё писать я не знаю!!у меня эти схемы есть!!но они не заполнены!!вот поэтому вас прошу помощи!!пожалуйста сделайте 0

@Bulat1991 0 / 0 / 0 Регистрация: 21.03.2010 Сообщений: 38
	09.04.2010, 09:44 [ТС]
	я эту курсовую взял у одного пацана!!у меня такой же вариант!!у него три схемы названия я оставлял!!!выше!!!эти схемы не заполнены!!я не могу понять как там их заполнять!!хотя старался!!пожалуйста сделайте блок схему к этой программе!!я не могу понгять что тут правильно что не правильно!! 0

@Bulat1991 0 / 0 / 0 Регистрация: 21.03.2010 Сообщений: 38
	10.04.2010, 12:16 [ТС]
	набрал программу!!выдаёт ошибку error 21 error in type!!и курсор встаёт в начале проги Var z: str_f; встаёт возле str!!как исправить ошибку??? 0

@Bulat1991 0 / 0 / 0 Регистрация: 21.03.2010 Сообщений: 38
	10.04.2010, 14:53 [ТС]
	пожалуйста напишите где чё исправить и выделите ошибки!!я не могу найти где у меня ошибка!! Добавлено через 26 секунд и напишите какие процедуры там написать Добавлено через 1 час 53 минуты Я ВСЁ ИСПРАВИЛ ПРОЦЕДУРЫ НАПИСАЛ!!!НО ТАМЖЕ ВЫДАЁТ ОШИБКУ!! type str_f=record --ТУТ ВЫДАЁТ ОШИБКУ!!ТЕКСТ Я ВСЁ ПРОВЕРИЛ РАЗА 3!ПОЧЕМУ ТАМ ОШИБКА???КАК ИСПРАВИТЬ 0

@Popuriska 1 / 1 / 0 Регистрация: 23.11.2009 Сообщений: 48
	10.04.2010, 15:06
	Напряженная обстановка! 0

@Bulat1991 0 / 0 / 0 Регистрация: 21.03.2010 Сообщений: 38
	11.04.2010, 11:49 [ТС]
	error 90:"=" expected вот тут показывает ошибку type str f=record курсор стоит на букве f Добавлено через 2 часа 41 минуту помогите пожалуйста!!! Добавлено через 15 часов 20 минут помогите пожалуйста!!! Добавлено через 16 секунд срочно надо Добавлено через 39 минут кто нибудь может разобраться почему у меня там ошибку выдаёт????? error 90:"=" expected вот тут показывает ошибку type str f=record курсор стоит на букве f 0

@WolfCF 3316 / 1378 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	11.04.2010, 11:52
	Bulat1991, что Вы хотите? исправить ошибки в Вашей программе? 0

@Bulat1991 0 / 0 / 0 Регистрация: 21.03.2010 Сообщений: 38
	11.04.2010, 12:01 [ТС]
	да!!прога выдаёт ошибку!! выше написано где ошибку показывает!!как её исправить??? 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	11.04.2010, 12:02
	type str_f=record //вставь знак подчеркивания, нельзя пробелы ставить в идентификаторах, прочитайте хоть первых 10 страниц в каком-нибудь учебнике по Паскалю. 0

@Bulat1991 0 / 0 / 0 Регистрация: 21.03.2010 Сообщений: 38
	11.04.2010, 12:12 [ТС]
	я везде поставил подчёркивания!!час выдаёт ошибкуerror5 syntax error!!rfr bcghfdbnm&& Добавлено через 17 секунд как исправить?? 0

@Bulat1991 0 / 0 / 0 Регистрация: 21.03.2010 Сообщений: 38
	16.04.2010, 15:36 [ТС]
	дайте мне пожалуйста адрес вашей почты я отправлю вам этот файл паскаль!!!которая у меня не запускается!!а у вас идёт!!может найдётся ошибка 0