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

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

08.01.2014, 23:27. Просмотров 181. Ответов 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
Ответы с готовыми решениями:

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

Не могу понять почему все так плохо работает...
Program Zachot; USES graph,crt; CONST K=3; type mas=array of string; tip...

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

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

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

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

Не могу понять
var obj: TL2NPC; obj2: TL2Effect; Enemy: TL2Live; Begin while 1&lt;&gt;2 do begin //...

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

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


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

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

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