Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Юлия_nev
0 / 0 / 0
Регистрация: 24.11.2013
Сообщений: 24
#1

Не работает программка а почему не могу понять? - Pascal ABC

08.01.2014, 23:27. Просмотров 171. Ответов 0
Метки нет (Все метки)

2)Создать в своей папке файл с расширением txt, который будет содержать целые числа, расположенные в виде матрицы. Написать программу, которая будет: а) считывать элементы текстового файла; б) считать суммы элементов строк и записывать эти суммы в одномерный массив.

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
 uses crt;
 const cf=['0'..'9','-'];{цифры и знак минус, могут быть отрицательные числа}
 var f:text;
 nf,st:string;
 a:array[1..100] of integer;
 n,m,i,s,x:integer;
 begin
 clrscr;
 write('Имя файла для чтения: ');
 readln(nf);
 nf:=nf+'.txt';
 assign(f,nf);
 {$I-} reset(f); {$I+}{проверим есть ли такой файл}
 if IOResult <> 0 then
 begin
 writeLn('Файл ',nf,' не найден!');
 writeLn('Работа программы завершена. Нажмите ENTER');
 readln;
 exit;
 end;
 readln(f,st);{прочитаем первую строку}
 m:=0;{посчитаем сколько чисел в строке}
 for i:=1 to length(st) do
 if(st[i] in cf)and((i=1)or not(st[i-1] in cf)) then m:=m+1;
 close(f);
 reset(f);{снова откроем файл}
 n:=0;s:=0;i:=0;
 while not eof(f) do
 begin
 read(f,x);{читаем числа}
 i:=i+1;{считаем}
 s:=s+x;{считаем сумму}
 if i mod m=0 then{если конец строки}
 begin
 n:=n+1;{считаем строку}
 a[n]:=s;{пишем в массив сумму}
 s:=0;{обнуляем ее}
 end;
 end;
 close(f);
 writeln('Суммы строк:');
 for i:=1 to n do
 write(a[i],' ');
 readln
 end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.01.2014, 23:27
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Не работает программка а почему не могу понять? (Pascal ABC):

Не могу понять, почему программа работает неправильно( Знаю, что где-то ошибки, но не могу найти - Pascal
{Ввести последовательность натуральных чисел Aj j=1...n (n&lt;=1000). Упорядочить последовательность по неубыванию наименььшей цифры...

Не могу понять почему все так плохо работает... - Pascal
Program Zachot; USES graph,crt; CONST K=3; type mas=array of string; tip =text;{текстовый файл} PROTOCOL=record ...

Почему программка не работает? - Pascal
Вместо каждой буквы в ребус СУК*СУК=БАРСУК подставить некоторую цифру, причем одинаковым буквам должны соответствовать одинаковые цифры, а...

Массив. Не могу понять почему сначала положительные идут - Pascal ABC
program Project541; {$APPTYPE CONSOLE} uses SysUtils; var a,b:array of real; i,n,j,jk:integer;

Народ не могу понять почему в этой части кода выдает ошибку - Pascal ABC
Где выдает ошибку я выделил жирным, выдает ошибку &quot;Встречено '=', а ожидалось ';' &quot; пробовал ставить но он опять ругается уже все...

Не могу понять - Pascal ABC
var obj: TL2NPC; obj2: TL2Effect; Enemy: TL2Live; Begin while 1&lt;&gt;2 do begin // бесконечный цикл // этот кусок...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.01.2014, 23:27
Привет! Вот еще темы с ответами:

не могу понять как - Pascal
дан числовой массив А, состоящий из n целых чисел. Если все элементы массива являются четными, то увеличте положительные элементы в два...

где ошибка? понять не могу. - Pascal
получить действительную матрицу 7*7, для которой а=1/i+j program laba31; const n=7; var a:array of real; I,j:integer; Begin ...

Не могу понять что не так - Pascal
В задании нужно вычислить величину S. Но результат почему-то 0. Насколько я понимаю 0 получается из-за того, что один из множителей, при...

Матрицы массивы не могу понять - Pascal
Входной массив: А4 Формируемый массив: В4*4 где i+j, если i=j Вij= ...


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

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

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