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

Как сделать так, чтобы программа работала без массива?

18.12.2015, 07:23. Просмотров 276. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var f:text;
a,i,n:integer;
ars:array of string;
begin;
assign(f,'C:\Users\oleg\Desktop\хлам\для сдачи ноут\7 лаба\о.txt');
reset(f);
while not Eof(f) do//если достигнут конц фала то возвращает истину
begin;
inc(n);
setlength(ars,n+1);
readln(f,ars[n]);
end;
close(f);
for i:=1 to n do
if pos('.',ars[i])<>0 then a:=a+1;
writeln(a);
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.12.2015, 07:23
Ответы с готовыми решениями:

как сделать так чтобы программа работала ограниченное время
Вопрос как сделать так чтобы программа работала ограниченное время напрмер 5 минут..

Сделать так чтобы элементы массива вводил я, а не программа выдавала их рандомно
Ввести целочисленный двумерный массив AN×M, вывести его. Найти сумму его чётных элементов,...

Сделать так чтобы элементы массива вводил я, а не программа выдавала их рандомно
Ввести двумерный массив A2×5. Определить в нём среднее геометрическое модулей отрицательных...

Сделать так чтобы элементы массива вводил я, а не программа выдавала их рандомно
Ввести двумерный массив AN×M. Каждую вторую строку в массиве заменить остатками от деления её...

Исправить код, чтобы программа работала при всех возможных вариантах заполнения массива
&quot;В матрицце 3х3 найти наибольший и наименьший эл-т и поменять их местами. USES crt; ...

1
Puporev
Модератор
58130 / 44220 / 30544
Регистрация: 18.05.2008
Сообщений: 105,890
18.12.2015, 10:39 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var f:text;
    a:integer;
    ars:string;
begin;
assign(f,'C:\Users\oleg\Desktop\хлам\для сдачи ноут\7 лаба\о.txt');
reset(f);
a:=0;
while not Eof(f) do//если достигнут конц фала то возвращает истину
 begin
  readln(f,ars);
  if pos('.',ars)<>0 then a:=a+1;
 end;
close(f);
writeln(a);
end.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.12.2015, 10:39

Как зделать так что бы программа работала в паскале авс
Program Fish; Uses Graph, Crt; Var x,dx,time,delta,Gd,Gm: integer; Begin dx:=-1; x:=500;...

Как сделать так, чтобы размерность массива было от 1 до N
как сделать так, чтобы размерность массива было от 0 до N(N нужно будет задать с клавиатуры)? ...

Как сделать так, чтобы после определенного символа в строке программа удалила остаток
var f1, f2: text; CH, chr: char; begin if paramcount &lt;&gt; 0 then begin write('Vvedite...


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

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

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