Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal строковый тип данных приветствую снова родилось несколько вопросов, теперь уже по строковым типам данных, гугл и другие поисковики не особо помогают, рассчитываю на вашу помощь собственно, дан некоторый текст как... надо продублировать глухие согласные в слове, можно ли как нить это сделать процедурой инсерт? делаешь константу-множество глухих согласных const gl=; ........................... for i:=length(s)... https://www.cyberforum.ru/ pascal/ thread95199.html Pascal Проверить и перестроить матрицу Помогите пожалуйста решить задачу. Написать программу. Граф задан матрицей инцеденции. Определить является ли он антисимметричным или полным антисимметричным. Достроить до полного антисимметричного... Приведите пожалуйста пример полного антисимметричного графа. https://www.cyberforum.ru/ pascal/ thread95284.html
Pascal Сорировка чисел в 2 файлах и запись их в 3 файл https://www.cyberforum.ru/ pascal/ thread95272.html
Доброго времени суток!!! Помогите пожалуйста решить!! Даны два файла, элементами которых являются целые числа. Необходимо отсортировать числа этих файлов по возрастанию и затем записать их в... В файле три что должно быть? Сначала первый файл, потом второй, или наоборот, или элементы обоих файлов, расставленные в порядке возрастания? Добавлено через 50 секунд Короче вопрос в том, что...
Как вы бы сравнили 10 чисел по паре между собой? Pascal
Есть "2009-06-28" "12:56" и "2010-02-10" "03:47" как лучше будет сравнить их между сабой? Спасибо! :)
Pascal Фамилии по алфавиту https://www.cyberforum.ru/ pascal/ thread95184.html
В программе сначала вводится кол-во учеников, затем их фамилии и оценки по географии и математике . . . после нужно вывести данные об учащихся по алфавиту (по фамилии) . . . подскажите пожалуйста,... Большое спасибо :)
Pascal Дано вещественное число x. Вычислить: Помогите решить Дано вещественное число x. Вычислить: x-x^3/3!+ x^5/5!-x^7/7!+x^9/9!-x^11/11!+x^13/13! uses crt; var x,v,o,f:real;; i,j,s:integer; begin clrscr; write('Ââåäèòå x='); readln(x); v:=1; s:=1; https://www.cyberforum.ru/ pascal/ thread95216.html
Pascal Замена группы букв в строке. https://www.cyberforum.ru/ pascal/ thread95193.html
Дана строка символов.Заменить в ней каждую группу букв "child" группой букв "choldren". var s: string; begin readln(s); while pos('child',s) > 0 do begin insert('choldren',s,pos('child',s)); delete(s,pos('child',s),5); end; writeln(s); end.
Pascal Найти минимальную сумму элементов среди трёх массивов,абсолютная величина которых меньше заданного числа P. Даны три одномерных массива А из 15,В из 20 и C из 10 элементов соответственно.Какой из массивов имеет минимальную сумму элементов,абсолютная величина которых меньше заданного числа P.(С... uses crt; type mas=array of integer; procedure Vvod(var v:mas;x:byte); var i:byte; begin for i:=1 to x do v:=random(50)-25; end; procedure Vyvod(var v:mas;x:byte;c:string); var i:byte; https://www.cyberforum.ru/ pascal/ thread95194.html
Заполнить матрицу по условию. Pascal
заполнить массив а размером M x N следующим образом,например,для i=4 и j=7: 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 uses crt; var n,m,i,j,s:byte; begin clrscr; write('Строк n='); readln(n); write('Столбцов m='); readln(m); s:=0; for i:=1 to n do
Pascal ООП: определить объект "Солнце". Отобразить его в центре экрана https://www.cyberforum.ru/ pascal/ thread95210.html
Используя ООП, определить объект СОЛНЦЕ. Отобразить его в центре экрана. И как должно выглядеть Ваше солнце? Добавлено через 12 минут Если просто желтый круг, то так. uses graph; type Solnce=object xc,yc,r:integer;//координаты центра и радиус ...
Pascal Найти наибольший элемент матрицы и его индексы https://www.cyberforum.ru/ pascal/ thread95206.html
Дана действительная матрица размера 4 на N. Найти значение наибольшего по модулю элемента, а так же индексы этого элемента. uses Crt; const N=4;{êîëè÷åñòâî ñòðîê} M=4;{êîëè÷åñòâî ñòîëáöîâ} var a:array of integer; i,j,imax,jmax:integer; begin ClrScr;
Pascal Вычислить значение выражения https://www.cyberforum.ru/ pascal/ thread95208.html
Как написати в PASCAL Program P1; var x, y: real; begin Writeln ('x'); readln (x); y:=2*sqr(-x)*sqrt(x+sqrt(abs(x)*(sqrt(abs(x))))); if (0<=y>=1) and (0<=x<=2) then Writeln ('True') else... Можно так написати. uses crt; var x,y:real; f:boolean; begin clrscr; repeat write('Введите х от 0 до 2 x='); readln(x); until(x>=0)and(x<=2);
1915 / 1065 / 384
Регистрация: 06.12.2008
Сообщений: 2,802
13.02.2010, 15:57 0

Работа с файлами - Pascal - Ответ 541637

13.02.2010, 15:57. Показов 1116. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено ваня иванов как решение

Решение

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
uses crt;
const n=20;
var a:array[1..n] of integer;
    f,g,h:text;
    i:integer;
begin
ClrScr;
Randomize;
Assign(f,'f.txt');
Rewrite(f);
for i:=1 to n do
 begin
  a[i]:=random(50)+20;
  Write(f,a[i],' ');
 end;
close(f);
Writeln('File F: ');
Reset(f);
repeat
 Read(f,a[i]);
 Write(a[i],' ');
until eof(f);
Assign(g,'g.txt');
Assign(h,'h.txt');
Rewrite(g);
Rewrite(h);
for i:=1 to n-1 do
begin
 if not odd(a[i]) then
  Write(g,a[i],' ')
 else
  Write(h,a[i],' ');
end;
close(g);
close(h);
Writeln;
Writeln('Faily zapisany...');
Readln;
end.


Вернуться к обсуждению:
Работа с файлами Pascal
1
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
13.02.2010, 15:57
Готовые ответы и решения:

Работа с файлами , хотелось бы с windows system файлами
всем привет, нужна интересная идея по программированию, работа с файлами , хотелось бы с windows system файлами, у вас есть какая-то идея?...

Лабораторная работа №5. Работа с файлами и алгоритмы сортировки
1. Написать функцию Load для считывания из текстового файла (например, Workers.txt) информации о работниках и заработной плате. В первой...

Работа с файлами(Запись,чтение,работа с данными)
Здравствуйте, никак не могу осилить файлы... Для начала вот само задание: В справочной автовокзала хранится расписание движения автобусов....

2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
13.02.2010, 15:57
Помогаю со студенческими работами здесь

Работа с файлами, чтение/работа со строкой
Доброго времени суток. Начал работать с C++ Builder 6. Есть текстовый файл .txt с различными строками, как можно производить...

Работа с файлами
если на диске с в каталоге ren имеется файл s11.fam то вывести на экран номер первой компоненты,значение которой меньше нуля ,но больше...

С++ Работа с файлами
Напишите программу, которая принимает на вход четыре параметра: имя входного файла, имя выходного файла, два слова a и b. Программа должна...

Работа с файлами
Здравствуйте есть задача на работу файлами, массивами Суть задачи такова Есть 5 строк примерно которые я записываю в memo Теперь...

Работа с файлами
задача выводит банные, просматривает и нужно удалять , для простоты скажим удалять всё не пользуясь способом открытия файла. ...

0
Новые блоги и статьи
Использование кэша Laravel - полный гайд
bytestream 18.02.2025
Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .
Создаем REST API в Laravel с аутентификацией и Passport
bytestream 18.02.2025
Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .
Пайплайны в Laravel - полный гайд
bytestream 18.02.2025
Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .
Как правильно использовать @required в Symfony
bytestream 18.02.2025
При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru