Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET переделать задачу на записи так, чтобы исходные данные брались из файла и записывались в файл Не выходит уже с 1-ой процедурой, ошибок не вижу, но код не работает так, как нужно. На экран ничего не выводится, а после вызова процедуры, окно сразу закрывается. и данные в файл не добавляются. Подскажите, в чем ошибка? program obr; uses crt; type telephone = record tel: string; nom: string; fam: array of string; end; mas=array of telephone; https://www.cyberforum.ru/ pascalabc-net/ thread864494.html Записи: Найдите суммарное количество компонентов массива, содержащие сведения об однофамильцах PascalABC.NET
Помогите написать программу: Дан массив А, компонентами которого являются полями типа-записи (фамилия, имя, год рождения). Найдите суммарное количество компонентов этого массива, содержащие сведения об однофамильцах. Заранее благодарен
PascalABC.NET Напишите функции, возвращающую двухзначное число по известным цифрам и корень квадратный из полученного числа https://www.cyberforum.ru/ pascalabc-net/ thread864147.html
Здраствуйте, помогите написать программу. Напишите функции, возвращающую двухзначное число по известным цифрам и корень квадратный из полученного числа. Создайте форму с полям ввода и кнопками. Организуйте работу формы: при нажатии на кнопку "Число" выводится полученное число, а на кнопку "Корень" соответственно корень из этого числа. Вывод результата организовать как в краткой, так и в полной...
PascalABC.NET После выполнения программ протестировать их и показать преподавателю результаты тестирования https://www.cyberforum.ru/ pascalabc-net/ thread864115.html
(2-ое задание) Составление, отладка и тестирование программ с процедурами. Составить сценарий тестирования разработанных программ. После выполнения программ протестировать их и показать преподавателю результаты тестирования. 1. Ввести действительные числа C, D. Вычислить MIN(D,C),результат занести в U; MIN(C+2D,3C-D), результат занести в V; MIN(U-V2, 2.78). Оформить нахождение минимума...
Записи: Найти реки с длиной более 1000 км PascalABC.NET
Составление программы с записью. (1-я часть) Составить список из 6 названий рек и их длины. Найти реки с длиной более 1000 км и вывести на экран название этих рек и их длину. Помогите пожалуйста я ничего не соображаю в этом паскале))
PascalABC.NET Установкой текущей директории(каталога,папки и т.д.) https://www.cyberforum.ru/ pascalabc-net/ thread863865.html
Ребятки! Помогите хорошему человеку.. Возникла проблема с установкой директории AppData для win 7,8 и Application Data для win xp.. Пути у них разные для каждой винды.. Кто сможет разрешить эту проблему.. Причем SetCurrentDir('%AppData%') {НЕ ПОМОГЛО}
PascalABC.NET Определение минимального числа из N введенных вещественных чисел Составить сценарий тестирования разработанных программ Оформить процедуры 1)ввода массива из N вещественных элементов и 2)определения минимального числа из N введенных вещественных чисел. Ввести массивы из 3 чисел, 6 чисел и 9 чисел. Вывести на экран сумму и произведение минимальных величин в этих массивах. https://www.cyberforum.ru/ pascalabc-net/ thread863596.html PascalABC.NET Записи: найти среднюю нагрузку по данной кафедре
2.Сформировать запись, имеющую следующую структуру type предмет=record название:string; количество часов:integer; преподаватель:string; кафедра:string; форма отчетности -(зачет,экзамен); end; и определить: o найти среднюю нагрузку по данной кафедре; o найти количество зачетов и экзаменов у данного преподава- теля; o список предметов, читаемых данной кафедрой.
PascalABC.NET Сумма чисел х возведённых в степень заданную числами Пользователем вводится значение переменной х. Составить программу вычисляющую сумму чисел. (x^0)+(x^1)+(x^2)+..+x^9 Желательно записать результат каждого суммирования в одномерный массив. https://www.cyberforum.ru/ pascalabc-net/ thread863072.html PascalABC.NET Светофор Доброго времени суток!!! Нужна ваша помощь! есть одна задачка, в которой я застрял))) необходимо создать светофор и кнопку переключение света. Переключение состояния светофора должно осуществляться кликом мыши на эту кнопку. Так же желательно использовать модули ABCObjects, GraphABC... помогите разобраться!!! Заранее благодарен:thank_you: https://www.cyberforum.ru/ pascalabc-net/ thread862698.html
Описать рекурсивную функцию, находящую число сочетаний из n элементов по m PascalABC.NET
1.Описать рекурсивную функцию C(m,n) целого типа, находящую число сочетаний из n элементов по m, используя формулу: C(0,n) = C(n,n) = 1, C(m,n) = C(m,n–1) + C(m–1,n–1) при 0 < m < n (m и n – целые параметры; n > 0, 0 <= m <= n). Дано число N и пять различных значений M. Вывести числа C(M,N) вместе с количеством рекурсивных вызовов функции C, потребовав- шихся для их нахождения.
PascalABC.NET Нельзя преобразовать тип set of char к char Вот такой код работает замечательно. program prog; var c: char; begin readln(c); case c of 'a'..'z': write('Маленькая');
3 / 3 / 0
Регистрация: 13.04.2013
Сообщений: 20
0

Чтение из файла А, выборка и запись в файл В (текстовые) - PascalABC.NET - Ответ 4554186

15.05.2013, 09:14. Показов 906. Ответов 1
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Нужно считывать из файла file1.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
var i,n, chas, min: word; f2,f3 : text; s,pun_nazn,pometki:string;
begin
writeln('Введите название не работающей станции');
readln(s); k:=0;
assign (f2, 'file2.txt');
assign (f3, 'file3.txt');
reset(f2);
rewrite(f3);
while not eof(f2) do
     begin
      readln(f2,pun_nazn);
      readln(f2,pometki);
      readln(f2,chas);
      readln(f2,min);
      if (UpperCase(pun_nazn)<>UpperCase(s)) then 
        begin 
        inc(k);
        writeln(f3,pun_nazn);
        writeln(f3,pometki);
        writeln(f3,chas);
        writeln(f3,min);
        end;                   
  end;   
  close(f2); close(f3);
if (k=n) then 
  writeln('Ошибка! Такой станции не было найдено в расписании. Попробуйте еще раз.');
  erase(f2); rename(f3,'file2.txt');
end.
Добавлено через 18 часов 58 минут
эй, народ, ну помогите

Вернуться к обсуждению:
Чтение из файла А, выборка и запись в файл В (текстовые) PascalABC.NET
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.05.2013, 09:14
Готовые ответы и решения:

Чтение файла, чтение названия папки где находится файл, запись данных на PHP
Допустим у нас есть структура с папками типа Large -&gt; Vehicles -&gt; Firetruck_0 В этой папке лежит...

Ввод с клавиатуры и запись в файл, чтение из файла и запись в массив, вывод из массива на экран
1.Ввод с клавиатуры и запись в файл, чтение из файла и запись в массив, вывод из массива на экран...

Запись в файл, чтение из файла, сохранени в файл, не работают эти функции
Здравствуйте. Не работает методы: Save() — сохранение фигуры (объекта) в файл, Load() —...

Открытие и чтение файла, запись в файл, помещение результата в файл
Eсть алгоритм решения задачи. Не знаю только каким способом открыть файлы и как в них что-либо...

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

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

Чтение из файла и запись в файл
Здравствуйте.Начал изучать java, не могу понять как брать из файла (inp.txt) значения, например...

Чтение из файла/Запись в файл
Приветствую всех! Понимаю что тема заезженная вдоль и поперек, но помощь мне нужна срочно! Мне...

Чтение из файла, запись в файл
Тут такая у меня проблема. 1) Не работает цикл в майне. Как его правильно организовать? 2) И,...

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