Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Pascal ABC Найти максимальное число из 3 переменных как найти в паскале максимальное число из 3 переменных https://www.cyberforum.ru/ pascalabc/ thread1139206.html Вычислить стоимость покупки со скидкой Pascal ABC
В чем ошибка? program z; var a:real; begin writeln ('введите стоимость покупки'); readln (a); if 500<a<1000 then b:=a/100*97; if a>1000 then b:=a/100*95; writeln ('ответ', b);
Pascal ABC Если A<=B<=C<=D, то все заменить наибольшим; если A>B>C>D, не менять; иначе все заменить их квадратами Даны действительные числа A, B, C, D. Если A <= B <= C <= D, то каждое число заменить наибольшим из них; если A > B > C > D, то числа оставить без изменения; в противном случае все числа заменяются их квадратами. program Lab1; var A, B, C,D : real; // действительные числа max : real; begin readln ('введите значения A, B, C, D'); // ввод 4 чисел через пробел. read(A,B,C,D); if (A <=... https://www.cyberforum.ru/ pascalabc/ thread1139086.html Pascal ABC Написать функцию для определения суммы положительных элементов одномерного массива https://www.cyberforum.ru/ pascalabc/ thread1139021.html
Написать функцию для определения суммы положительных элементов одномерного массива.
Pascal ABC Написать функцию для определения минимального элемента двумерного массива
Написать функцию для определения минимального элемента двумерного массива. 		Pascal ABC На плоскости заданы координаты N элементов, являющихся выводами печатной платы. Выполнить указанные действия (графы) На плоскости заданы координаты N элементов, являющихся выводами печатной платы. Некоторые элементы связаны между собой. Требуется от элемента, имеющего наибольшую суммарную длину связей с другими элементами, построить путь, не содержащий циклов. При построении пути использовать следующее правило: из всех возможных элементов, связанных с данным, в путь включается... https://www.cyberforum.ru/ pascalabc/ thread1139014.html
Pascal ABC Написать функцию для определения максимального элемента одномерного массива https://www.cyberforum.ru/ pascalabc/ thread1139013.html
Написать функцию для определения максимального элемента одномерного массива. 		Pascal ABC Изделие задано с помощью дерева. Выполнить указанные действия
Изделие задано с помощью дерева. В листьях указаны значения массы соответствующих деталей. Масса сборного узла определяется как сумма масс составляющих деталей. Требуется: 1) обеспечить корректировку дерева в режиме диалога; 2) рассчитать массу всего изделия; 3) организовать обход листьев, запрашивая новые значения массы и сообщая, как при этом меняется масса изделия
Pascal ABC Сортировка в файле https://www.cyberforum.ru/ pascalabc/ thread1138977.html
Люди, помогите сделать сортировку параметров в файле к программе: program type_record; type weapon=record; model: string; kalibr: real; dalnost: real; oboima: integer; stoimost: real; end; 		Pascal ABC Найти наибольшее число вида 1/2^n (n>=0), меньшее а найти наибольшее число вида 1/2^n (n>=0), меньшее а (положительное число а задано). Организуя чтение исходных данных из файла данных и вывод результата в файл данных. Использовать циклы и оператор выбора. https://www.cyberforum.ru/ pascalabc/ thread1138926.html
Что не хватает в коде? Pascal ABC
Дан файл f, компоненты которого являются целыми числами. Получить в файле g все компоненты файла f: а) являющимися нечетными числами; б) делящиеся на 6 и не делящиеся на 4. Паскаль. uses crt; const N = 20; var f,g:file of integer; r:byte; i:integer; procedure FileWrite(f:string); var i:byte; begin assign(f,i); 		Pascal ABC Найти все натуральные числа меньше заданного, запись которых совпадает с последними цифрами их квадрата https://www.cyberforum.ru/ pascalabc/ thread1138881.html
Квадраты некоторых трехзначных чисел оканчивается тремя цифрами, которые как раз и составляют исходные числа. Написать программу поиска таких чисел.
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
05.04.2014, 11:39 0

Вывод и ввод массива в текстовый файл - Pascal ABC - Ответ 6001607

05.04.2014, 11:39. Показов 1891. Ответов 2
Метки (Все метки)
Лучший ответ Сообщение было отмечено qiwi как решение

Решение

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

const m=3;
      max=25;
var f:text;
    n,a,i,j:integer;
begin
randomize;
assign(f,'1.txt');
rewrite(f);
repeat
write('Введите длину строк от 1 до ',max,' n=');
readln(n);
until n in [1..max];
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a:=random(100);
    write(f,a:3);
   end;
  writeln(f);
 end;
reset(f);
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    read(f,a);
    write(a:3);
   end;
  writeln
 end;
close(f);
end.


Вернуться к обсуждению:
Вывод и ввод массива в текстовый файл Pascal ABC
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 05.04.2014, 11:39
Готовые ответы и решения:

Ввод и вывод данных через текстовый файл
Помогите, пожалуйста, оформить с помощью ввода данных через тестовый файл и вывода Unit RGZ;...

Вывод в текстовый файл
Не записывается в выводящий файл. Подскажите, в чем проблема var kol:integer; n,i:integer;...

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

Вывод данных в текстовый файл в виде таблицы
как вывести данные в виде таблицы в текстовый файл на abc паскале)))?

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

Текстовый файл содержит список фамилий и должность сотрудников. Сформировать текстовый файл, содержащий фамил
Текстовый файл содержит список фамилий и должность сотрудников. Сформировать текстовый файл,...

Нужно сделать вывод результата программы в текстовый файл
Вообщем есть программа уже составленная, надо сделать вывод результата программы в файл, т.е. я...

дан текстовый файл.перенести в текстовый файл все строки, содержащие заданное слово
помогите пожалуйста решить задачу... условие:дан текстовый файл.перенести в текстовый файл все...

Дан текстовый файл. Вывести в другой текстовый файл количество слов одинаковой длины
1. Дан текстовый файл. Вывести в другой текстовый файл количество слов одинаковой длины.Пример...

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