С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
CTPEJIOK
0 / 0 / 0
Регистрация: 19.11.2009
Сообщений: 58
1

Исправление ошибок

11.03.2012, 15:05. Просмотров 419. Ответов 0
Метки нет (Все метки)

Помогите исправить ошибки. Задание во вложении.
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
var A:array[1..3000] of integer;
var f:file;
var cena,marka:integer;
ulica,ulica1,ulica2,zapravka,zapravka1,zaprakva2:string;
assign (f,"data.txt");
reset f;
a[1]:=0;
a[2]:=3001;
readln(f,N);
while not (EOF(f)) and (marka<>92)
begin
readln(f,s);
val(s[43]+s[44];marka);
end;
val(s[46]+s[47]+s[48]+s[49];cena);
zapravka1:=copy(s,1,20);
ulica1:=copy(s,21,41);
A[1]:=Cena;
while not (EOF(f))
begin
while not (EOF(f)) and (marka<>92);
begin
readln(f,s);
end;
val (s[43]+s[44];marka);
zapravka=copy(s,1,20);
ulica=copy(s,21,41);
val(s[46]+s[47]+s[48]+s[49];cena);
If (cena<A[1]) and (cena<A[2]) then
begin
A[2]:=A[1];
A[1]:=cena;
zapravka2:=zapravka1;
ulica2:=ulica1;
If (A[1] < cena) and (A[2] > cena) then
begin
A[2]:=cena;
zapravka2:=zapravka;
ulica2:=ulica;
end;
end;
write(zapravka2,' ', ulica2);
end.
0
Миниатюры
Исправление ошибок  
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.03.2012, 15:05
Ответы с готовыми решениями:

Исправление ошибок, проверка. Файлы
Помогите, допишите в основной программе как добавлять процедуру dobav. Найдите если есть ошибки...

Строки. Исправление ошибок в слове
Дано ошибочно написанное слово &quot;иинформация&quot;. Путем перемещения его букв получить слово...

Исправление ошибок в коде Паскаль
Задание. Составить блок-схему алгоритма и программу на языке ПАСКАЛЬ вычисления значения функции...

Исправление недочетов
uses crt; var a,b: array of integer; x,y,i,j,na,nb: integer; begin clrscr;...

Исправление программы.
Вот эту программу можно решить без odd и вообще другим способом, помогите додуматься как это...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.03.2012, 15:05

Исправление программы
условия! заданы два массивы записей, каждый из которых содержит сведения о фамилии и адрес....

Исправление ошибки в определении подпрограммы
Добрый вечер. Дело в том,что заместо булево признака,мне нужно перекодировать ПП без этого метода....

Исправление ошибок.
товарищи мозги дайте пожалуста правельное решение по паскалю помогите исправеть ошибки напешите как...


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

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

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