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

Вынести основные определения, функции, процедуры задачи в модуль

10.01.2014, 11:44. Просмотров 286. Ответов 0
Метки нет (Все метки)

Вынесите основные определения, функции, процедуры задачи в модуль

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program pari;
var
F: Text;
Str: string;
i: integer;
begin
assign(F, 'File.txt');
rewrite(F);
writeln ('vvedite stroky: ');
readln(Str);
write(F,Str);
close(f);
reset(f);
while not Eof (F) do begin
read(F,str);
for i:=0 to length(Str)-1 do begin
if Str[i] = Str[i+1] then
writeln(Str[i], Str[i+1]);
end;
end;
close(F);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.01.2014, 11:44
Ответы с готовыми решениями:

Матрицы 3х3, функции, процедуры и модуль
Вводятся 3 матрицы 3х3, решить пример Z = A*minB + C и так далее.. - max & min элементы массивов...

Оформить через процедуры и функции + используя модуль.
посчитать сумму положительных четных компонентов и число отрицательных компонент: Sin(i^2 –...

Запрограммировать модуль, включающий в себя процедуры и/или функции
1)uses crt; var c,a:real; function katet(c,a:real):real; begin katet:=sqrt(c*c-a*a); end;...

2 задачи с использованием функции и процедуры
Задача № 1 С клавиатуры вводится строка символов.Посчитать количество букв "а" в строке и заменить...

Вынести процедуру в модуль
Есть программа(она формирует новый линейный массив, элементами которого являются максимальные...

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

Задачи решать с использованием процедуры или функции
1. Найти наименьший элемент одномерного массива, состоящего из n элементов. Элементы вводятся с...

2 задачи, двумерный массив, процедуры&функции
Люди добрые, срочно нужна ваша помощь, вопрос жизни и смерти, надо до завтра сделать. Я как...

При решении задачи определить и использовать функции или процедуры.
Тры прямые на площади заданные уравнениями. Если эти прямые попарно пересекаются и составляют...


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

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

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