Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Решение головоломки для школьника https://www.cyberforum.ru/ turbo-pascal/ thread313487.html
program pr123; uses crt; var n,a,b11,b22,b33,code:integer; b,b1,b2,b3:string; begin writeln('Введите число'); readln(n); a:=0; while a<=n do begin 		написал курсовую но при введении переменных пишет "ошибка 200" Turbo Pascal
Вот написал курсовую но при введении переменных пишет "ошибка 200" Program kursach; uses crt; const p=20; type mas=array of real; var n,l,j,k,i:integer; x,dx,x1p,x1k,x2p,x2k,tp,tk,dt,t:real; x1,x2,maxy,x1max,x2max,z:mas; f:array of real; function z1(c:real):real;
Turbo Pascal Массивы и раскраска вывода 1)Заданы три двумерных квадратных массива одинаковой размерности.Организовать ввод и вывод на экран массивов с использованием процедур программиста. 2)Найти количество максимальных элементов каждого массива используя функцию программиста. 3)В том массиве, где максимальных элементов более одного раскрасить их при выводе жёлтым цветом при помощи процедуры. Заранее огромное спасибо! https://www.cyberforum.ru/ turbo-pascal/ thread313474.html Turbo Pascal Цикл с суммой всех чисел https://www.cyberforum.ru/ turbo-pascal/ thread313473.html
http://rghost.ru/9460321/image.png Составить 3 варианта программ циклической структуры типа for, while и repeat, откомпилировать их, ввести исходные данные, сравнить полученные результаты. под for не получается program zadanie7; var x, y, z, i, n : integer; begin writeln ('Vvedite n'); read (n);
Turbo Pascal Поиск файлов
Даны имена четырех файлов. Найти количество файлов с указанными именами, которые имеются в текущем каталоге. 		Turbo Pascal Дано множество, состоящее из различных символов. Вывести на экран упорядоченные по убыванию символы русского алфавита Дано множество, состоящее из различных символов. Вывести на экран упорядоченные по убыванию символы русского алфавита https://www.cyberforum.ru/ turbo-pascal/ thread313442.html
Turbo Pascal Выявить, распечатать и удалить строки с совпадающими шифрами, но несовпадающими характеристиками. В матрице K(m,n) первый элемент каждой строки - шифр детали, остальные элементы - характеристики этой детали. Выявить, распечатать и удалить строки с совпадающими шифрами, но несовпадающими характеристиками. Вывести также на экран получившуюся после обработки матрицу. Помогите пожалуйста решить задачу. https://www.cyberforum.ru/ turbo-pascal/ thread313440.html Turbo Pascal Упорядочить элементы массива по убыванию
В одномерном массиве, состоящем из n вещественных элементов, вычислить произведение всех элементов, расположенных между максимальным по модулю и минимальным по модулю элементами. Упорядочить элементы массива по убыванию (методом выбора наибольшего значения). Помогите решить задачу в паскале.
Turbo Pascal Дана символьная строка. Если какой-то символ в ней встречается более одного раза, оставить только первое вхождение https://www.cyberforum.ru/ turbo-pascal/ thread313435.html
Народ.помогите решить задачку Дана символьная строка. Если какой-то символ в ней встречается более одного раза, оставить только первое вхождение 		Turbo Pascal Вычисление десятичного логарифма в подпрограмме https://www.cyberforum.ru/ turbo-pascal/ thread313419.html
создать модуль, который обеспечивает вычисление суммы квадратов и разности квадратов двух вещественных величин в "procedure " и вычисление десятичного логарифма в подпрограмме "function"
Turbo Pascal Определить периметры n-угольников
Определить периметры n-угольников,координатами их вершин заданы в массивах x,y.Длину стороны n-угольников вычислять в подпрограмме.пожалуйста,помогите решить,как делать без понятия 		Turbo Pascal Вычислить сумму тех натуральных чисел от 1 до 50, которые кратны числу, вводимому с клавиатуры https://www.cyberforum.ru/ turbo-pascal/ thread313407.html
Написать программу, которая вычисляет сумму тех натуральных чисел от 1 до 50, которые кратны числу. вводимому с клавиатуры. При вводе числа 0 - выход из программы.
Mobile Software Engineer
Эксперт С++
5381 / 1585 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
05.06.2011, 16:55 0

Символьный файл содержит пробелы. Сжать этот файл (убрать пробелы) - Turbo Pascal - Ответ 1728281

05.06.2011, 16:55. Показов 4108. Ответов 14
Метки (Все метки)

Ответ

Цитата Сообщение от F. Alonso Посмотреть сообщение
разве нельзя ее просто укоротить
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

var f:file of char;
a:char;
n,i:integer;
begin
assign(f,'file1');
rewrite(f);
write('Количество символов n=');
readln(n);
writeln('Введите ',n,' символов, в том числе пробелы');
for i:=1 to n do
begin
write('символ ',i,'=');
readln(a);
write(f,a);
end;
writeln('Исходный файл:');
reset(f);
while not eof(f) do
begin
read(f,a);
write(a,' ');
end;
end.
просто укоротил)
можно еще вот так
Pascal
1
2
3
4
5
6

var f:file of char;
a:char;
n,i:integer;
begin
...........
end.


Вернуться к обсуждению:
Символьный файл содержит пробелы. Сжать этот файл (убрать пробелы) Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 05.06.2011, 16:55
Готовые ответы и решения:

Символьный файл содержит пробелы. Сжать этот файл (убрать пробелы)
Символьный файл содержит пробелы. Сжать этот файл (убрать пробелы). В текстовом файле, написать...

Символьный файл содержит пробелы. Сжать этот файл (убрать пробелы)
Символьный файл содержит пробелы. Сжать этот файл (убрать пробелы). Помогите с написанием...

Символьный файл содержит пробелы. Сжать этот файл (убрать пробелы)
Символьный файл содержит пробелы. Сжать этот файл (убрать пробелы).

Сжать файл (убрать пробелы)
#include &lt;cstdlib&gt; #include &lt;iostream&gt; #include &lt;string&gt; #include &lt;fstream&gt; #define n 50...

14
05.06.2011, 16:55
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 05.06.2011, 16:55
Помогаю со студенческими работами здесь

Символьный файл содержит пробелы. Нужно сосчитать его без прробелов
Доброго времени суток! Не пойму, как можно сосчитать символьную строку без пробелов. Например,...

Открыть файл, путь к которому содержит пробелы и передается в переменной
Public LogFileName '... private sub '... ' програмка задает имя и путь к файлу с произвольным...

Убрать лишние(повторяющиеся) пробелы, и записать в файл
помоги, пожалуйста, доработать программу Надо убрать лишние(повторяющиеся) пробелы, и записать в...

Даны натуральное , символьный файл и текстовый файл . Файл содержит 30 слов , каждое из которых будем называть ключевым
Добрый день, помогите пожалуйста сделать вот такую программу. Даны натуральное k , символьный файл...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru