Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Victor-p2
0 / 0 / 0
Регистрация: 01.06.2010
Сообщений: 24
1

исправить код!

25.04.2013, 16:48. Просмотров 206. Ответов 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
procedure uvel;
 var
     l:real;
     c:integer;
     s:string;
     begin
     reset(f);
     i:=1;
     while not eof(f) do
     begin
     read (f,a[i]);
     i:=i+1;
    end;
   begin
   writeln;
   writeln('Введите имя заказчика: ');
   readln(s);
   writeln('Введите текущую стоимость заказа: ');
   readln(c);
    l:=c*10/100;
    if a[i].zak=s then a[i].sto:=l;
    close(f);
    assign(f,fn);
    rewrite(f);
    for i:=1 to n do
    write(f,a[i]);
    close(f);
  end;
    end;
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.04.2013, 16:48
Ответы с готовыми решениями:

Исправить код
задание: В целочисленном векторе vectorn переместить в начало все нулевые элементы, за ними – все...

Исправить код
program P4; type school = record nm:integer; name: string; surname: string; god: integer;...

Исправить код!
uses crt; var i,j,min,max :integer; A:array of integer; begin randomize; for i:= 1 to 3 do...

Исправить программный код
Program pr1; uses crt; var x,y,z:array of integer; n,i,j,k,m:integer; begin writeln ('n=');...

Как исправить код?
Program sortitovka; var i,n:integer; a:array of integer; procedure bubble(var q:array of...

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

Исправить код сортировки
Помогите пожалуйста найти ошибку в теле программы! Вот задание - e) Створіть за допомогою...

Нужно исправить код
Нужно записать процедуру вывода массива, для исходного. Для конечного отсортированного уже есть. И...

Кто может исправить код?
Не понимаю, в чём тут ошибка... Голова уже совсем не варит:umnik: Program RAZCHET1; uses crt;...


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

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

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