0 / 0 / 0
Регистрация: 23.06.2011
Сообщений: 3
1

Pascal ABC не открывает программу которая открывается в msdos

23.06.2011, 21:17. Показов 1291. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
так выгледит текст программы в файле Pascal ABC. Через msdos всё работает как надо а в Pascal ABC не хочет.
Помогите кто может!


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
PROGRAM labs(o,i);
 uses crt;
 var key:char;
 
 
procedure lab1;
 var a:array[1..20]of real;
     i,
     n : integer;
     max: real;
begin
 clrscr;
 write('Введите N= '); readln(n);
 writeln('Введите ',n,'  чисел');
 for i:=1 to n do read(a[i]);
 
 
 writeln('Массив:');
 for i:=1 to n do write(a[i]:4:2,' ');
 
max:=sqrt(abs(a[1]));
 for i:=1 to n do
   if max<sqrt(abs(a[i])) then max:=sqrt(abs(a[i]));
 writeln;
 writeln('Max= ',max:4:2);
 readkey
end;

(*program 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
procedure lab2;
 var a:array[1..20]of integer;
     i,
     n,
     j : integer;
 
begin
 clrscr;
(*‚ў®¤ зЁбҐ«*)
 write('ўўҐ¤ЁвҐ N: '); readln(n);
 writeln('‚ўҐ¤ЁвҐ ',n,'  н«Ґ¬Ґ*в®ў:');
 for i:=1 to n do read(a[i]);
 
 
 writeln('Њ*ббЁў:');
 for i:=1 to n do write(a[i],' ');
 
(*Ќ*宦¤Ґ*ЁҐ 祫*®ў Ї®б«Ґ¤®ў*⥫м*®бвЁ*)
writeln;
writeln('Ќ*©¤Ґ**лҐ зЁб«*: ');
 for i:=1 to n do
   begin
     if (a[i] mod 2=0) and ((a[i] div 2) mod 2 <>0) then write(a[i],' ');
   end;
 
 
 
 writeln;
 readkey
end;
(*program 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
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
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
procedure lab3;
var a:string;
     d,i,kol:integer;
    fl:boolean;
begin
 clrscr;
 writeln('‚ўҐ¤ЁвҐ бва®Єг бЁ¬ў®«®ў:');
 readln(a);
 
 
 d:=length(a);
 i:=1;
 kol:=0;
 while i<=d do
 begin
   if a[i]=':' then
     begin
       kol:=kol+1;
       if kol=2 then i:=d
       else i:=i+1
     end
   else i:=i+1
 end;
 
 case kol of
  0: writeln('Net dvoetochiya v stroke.');
  1: begin
       writeln('Simvoli do dvoetochiya:');
       i:=1;
       while a[i]<>':' do
       begin
         write(a[i],' ');
         i:=i+1
       end
     end;
 
  2: begin
       writeln('Simvoli mezhdu dvoetochiyami:');
       fl:=false;
       i:=1;
       while i<=d do
       begin
         if fl and (a[i]<>':') then write(a[i],' ');
         if a[i]=':' then
           if fl then fl:=false
           else fl:=true;
         i:=i+1
       end
     end
 
 end;
 readkey
end;
 
 
procedure lab4;
 var a:string;
     b:string[20];
     d,x,i:integer;
     fl,f:boolean;
begin
 clrscr;
 writeln('‚ўҐ¤ЁвҐ ⥪бв:');
 readln(a);
 a:=concat(a,' ');
 f:=true;
 
(*®ЇаҐ¤Ґ«Ґ*ЁҐ б«®ў, пў«пойЁебп Ї*«Ё*¤а®¬®¬*)
 fl:=true;
 while a<>'' do
  begin
    x:=pos(' ',a);
    b:=copy(a,1,x-1);
    delete(a,1,x);
(*Їа®ўҐаЄ* б«®ў* ** Ї*«Ё*¤а®¬*)
    d:=length(b);
    for i:=1 to d div 2 do
      if b[i]<>b[d-i+1] then fl:=false;
  end;
 
 if fl then writeln('Verno, chto vse slova polindromi.')
 else writeln('Ne verno, chto vse slova polindromi.');
 readkey
end;
 
 
 
begin
 
repeat
clrscr;
writeln('Laboratornie raboti.');
 
writeln('Viberite rabotu:');
writeln('1- lab1');
writeln('2- lab2');
writeln('3- lab3');
writeln('4- lab4');
key:=readkey;
case key of
 '1': lab1;
 '2': lab2;
 '3': lab3;
 '4': lab4;
end;
 
write('Dlya vihoda nazhmite - n');
key:=readkey;
until key='n';
 
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.06.2011, 21:17
Ответы с готовыми решениями:

Нужно перевести программу с Turbo Pascal в Pascal ABC.NET
Вот есть программный код , но он для турбо паскаля, помогите перевести его в АБС.NET Program...

Переделайте, пожалуйста, программу из Turbo pascal в ABC pascal
Помогите, пожалуйста, перевести из PASCAL TURBO в PASCAL ABC Program ProgInt; Uses Crt,...

Необходимо перевести программу с Pascal ABC на free pascal
var a, factorial:longint; const c:array of char= ('0','1'); var res:string; d:0..1; k,...

Нужно переделать программу,написанную на Turbo Pascal в ту,чтобы работала на Pascal ABC.NET пожалуйста
program lab2; uses Crt; const Nmax = 15; { MAX element mnozestva A } type T =...

4
113 / 86 / 52
Регистрация: 22.10.2010
Сообщений: 227
23.06.2011, 21:51 2
,,,,
Это же одна программа. Просто в начале исправить на
Pascal
1
PROGRAM labs;
0
0 / 0 / 0
Регистрация: 23.06.2011
Сообщений: 3
23.06.2011, 22:03  [ТС] 3
я уже так исправлял но прога не выдаёт ответа
0
113 / 86 / 52
Регистрация: 22.10.2010
Сообщений: 227
23.06.2011, 22:59 4
Проставь во всех процедурах
Pascal
1
Readln;
перед
Pascal
1
Readkey;
.
1
0 / 0 / 0
Регистрация: 23.06.2011
Сообщений: 3
23.06.2011, 23:30  [ТС] 5
Вроде работает спасибо огромное!!!
0
23.06.2011, 23:30
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.06.2011, 23:30
Помогаю со студенческими работами здесь

Нужно переделать программу,написанную на Turbo Pascal в ту,чтобы работала на Pascal ABC.NET пожалуйста
program lab3; uses Crt; const Output_File_Name = 'output.txt'; { ima faila dlya vivoda...

Переписать программу с Pascal ABC в Turbo pascal
Нужно вот это. Переписать в турбо паскаль. Буду очень благодарен. uses graphABC; begin...

Переписать программу с Pascal ABC в Turbo pascal
Здравствуйте помогите пожалуйста_) Если не получится то можно задачу решить как-то по другому....

Переписать программу с Turbo Pascal на Pascal ABC
Здравствуйте, не могли бы помочь переписать программу с Turbo Pascal на Pascal ABC. Хоть убейте не...

Переписать программу с Turbo Pascal на Pascal ABC
Помогите пожалуйста перевести код с Turbo Pascal на Pascal ABC uses graph,crt; const n=20;...

Переписать программу с Turbo Pascal на Pascal ABC
Нужно переделать программу,написанную на Turbo Pascal в ту,чтобы работала на Pascal ABC. Помогите...


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

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

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