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

Исправить ошибки в программе

16.11.2017, 19:59. Показов 535. Ответов 3
Метки нет (Все метки)

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
program test5b;
type
 Person = record
  Name : record
   Name : world
  end;
  Degree : 1..3;
  Org : String
 end;
 Book = record
   Auther : Person;
   Title : String;
   Publ : record
    City:1..5;
    Year:integer
   end;
   Subj : array [1..10] of World
  end;
  String = string[80];
  Word = string[16];
 var
  Books : array [1..100] of Book;
  I,J,N : integer;
 begin
  Readln (n); if f 100 then n:=100;
  for I:=1 to N do
   with Books[i], Auther, Publ do begin
    Readln (Auther.Name, Degree);
    Readln(Org);Readln(Title);
    Readln(City,Year);
    J:=1;
    repeat
     Readln (Subj[J]); J:=J+1
    until Subj [J-1]='
   end;
   for I:=1 to n do
    Books [I], Subj[1]:= 'computer'
   end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.11.2017, 19:59
Ответы с готовыми решениями:

Исправить ошибки в программе
program qq; var Z:array of integer; B:array of integer; mas,kol,max,nmax,i,n:integer;...

Исправить ошибки в программе
program Prnt; label 100; const LPg=10; LStr=80; NLen=20; var Prg, List: text; Name:...

Исправить ошибки в программе
помогите решить задачкууу!!! Program Prim; Var n,p:Integer; y:Real; Begin: p:=1; ...

Исправить ошибки в программе
Исправить ошибки в программе. program TEST; type Person = record Name: string;...

3
4654 / 2341 / 2215
Регистрация: 10.12.2014
Сообщений: 9,014
17.11.2017, 07:02 2
Проще всё в помойку, ибо это одна сплошная ошибка…
И писать программу заново!
0
0 / 0 / 0
Регистрация: 24.08.2017
Сообщений: 1
28.11.2017, 17:36 3
Кто-нибудь, помогайте)
0
Эксперт Pascal/Delphi
6768 / 4536 / 4807
Регистрация: 05.06.2014
Сообщений: 22,364
28.11.2017, 19:31 4
senyor-Lobanov1, бесполезно по этой программе. Чушь полнейшая. Вы лучше укажите задание, быстрее помощь придет.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.11.2017, 19:31

Исправить ошибки в программе
9. Дан текстовый файл f . Преобразовать строки файла f по правилам, которые приведены в таблице....

Исправить ошибки в программе
помогите переписать программу, исправив ошибки! очень надо, а у меня чего-то всё время не то...

Где исправить ошибки в программе??
задача такая написать программу в которой требуется "Удалить все символы 'а' из слов, длина которых...

Сформировать 4 и 5 столбцы матрицы А(3, 3). Исправить ошибки в программе
Даны две матрицы А(3,3) и В(3,3). Сформировать 4 и 5 столбцы матрицы А(3,3) : в четвертом...


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

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

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