Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Множества. Сформировать и вывести на экран множество из n символов латинского алфавита не пойму что с задачей! помогите пожалуйста! вот задание! Сформировать и вывести на экран множество из n символов латинского алфавита . Если вводимая буква уже есть в множестве, выдать соответствующее сообщение. а вот код программы: uses crt; Const N=20; Var S : Set Of Char; B : Char; I : Integer; Begin https://www.cyberforum.ru/ pascalabc/ thread534740.html	Pascal ABC Получить массив B, присвоив его k-му элементу значение 1 Есть у кого идеи ребят? Никак осилить не могу данную задачу. Задана матрица размером N×M. Получить массив B, присвоив его k-му элементу значение 1, если элементы k–й строки матрицы упорядочены по убыванию, и значение 0 в противном случае.
Pascal ABC Программа которая зашифровывает текст Задание Составить алгоритм и программу обработки фразы (строки текста), находящемся в текстовом файле Input.txt. В результате работы программы в файле отчета необходимо в алфавитном порядке расположить буквы из которых состоит текст с их количеством. Пример: Содержание исходного файла Input.txt слово "МАМА" В результате работы программы получен файл следующего вида: Буква ... https://www.cyberforum.ru/ pascalabc/ thread534714.html	Pascal ABC Строки и символы. Преобразовать строку так, чтобы каждое слово начиналось с заглавной буквы Дана строка-предложение на русском языке. Преобразовать строку так, чтобы каждое слово начиналось с заглавной буквы. Словом считать набор символов, не содержащий пробелов и ограниченный пробелами или началом/концом строки. Слова, не начинающиеся с буквы, не изменять. помогите решить :scratch: Заранее спс https://www.cyberforum.ru/ pascalabc/ thread534684.html
Pascal ABC Дан массив целых чисел. Определить количество нечетных отриц Дан массив целых чисел. Определить количество нечетных отрицательных элементов расположенных между первым максимальным и первым минимальным элементами. Подскажите как решить? Спасибо за ответ!!!	Pascal ABC Строки. Заменить встречающиеся в строке слова "то" на "это" дана строка текста до 80 символов. Слова разделены пробелами. Заменить встречающиеся в строке слова "то" на "это". Напечатать исходную п полученную строки https://www.cyberforum.ru/ pascalabc/ thread534632.html
Pascal ABC Нахождение значения выражения https://www.cyberforum.ru/ pascalabc/ thread534603.html Дано вещественное число X и целое число N (> 0). Найти значение выражения 1−X2/(2!)+X4/(4!)−...+(−1)nX2N/((2N)!) (N! = 12...N). Полученное число является приближенным значением функции cos в точке X. Помогите пжл с этой задачкой Заранее спс :(	Pascal ABC Определить, есть ли среди элементов массива простые числа Задан целочисленный массив размерностью N. Есть ли среди элементов массива простые числа? Если да, то вывести номера этих элементов. function Prost(a:longint):boolean; var i:longint; begin if a<2 then Prost:=false else begin Prost:=true; for i:=2 to round(sqrt(a)) do if a mod i=0 then Prost:=false;
Pascal ABC Файлы. Каждая дата - это число, месяц и год. Найти год с наименьшим номером Дан файл, содержащий различные данные. Каждая дата - это число, месяц и год. найти год с наименьшим номером. https://www.cyberforum.ru/ pascalabc/ thread534502.html	Pascal ABC Найти решение системы линейных уравнений https://www.cyberforum.ru/ pascalabc/ thread534487.html Найти решение системы линейных уравнений c1:=a1x+b1y и c2:=a2x+b2y если известно что данная система имеет единственное решение. Не пойму почему дается x и y? Воспользоваться формулами d:=a1b2-a2b1; x:=(c1b2-c2b1)/d; y:=(a1c2-a2c1)/d;
Игра в слова (в графическом окне). Pascal ABC Играют двое. Первый игрок загадывает слово и вводит его в программу с клавиатуры. Программа рисует в центре (по высоте и ширине) графического окна столько квадратных ячеек, сколько букв в загаданном слове (ячейки рисуются вплотную друг к другу). В нижнем правом углу отображается количество баллов игрока (изначально 10). Второму игроку необходимо отгадать слово. В каждый ход он указывает одну...	Pascal ABC Образовать новый массив Q(N) путем умножения элементов массива P(N) на число https://www.cyberforum.ru/ pascalabc/ thread534345.html ребята помогите пожалуйста с массивом! Горю!! Даны массивы P(N) и R(N). Образовать новый массив Q(N) путем умножения элементов массива P(N) на порядковый номер минимального элемента массива R(N).Заранее благодарен.

РаКсАнКа

0 / 0 / 0

Регистрация: 17.11.2011

Сообщений: 54

Типизированные файлы. Записать в файл C все четные числа файла F, а в файл N - все нечетные - Pascal ABC - Ответ 2855137

30.03.2012, 18:30. Показов 4773. Ответов 1

Метки (Все метки)

Author24 — интернет-сервис помощи студентам

еще одна задачка!!код есть,но что то не работает она помогите!
вот задание:
Сформировать файл F, компонентами которого являются целые числа. Записать в файл C все четные числа файла F, а в файл N - все нечетные. Порядок следования чисел сохраняется.

а вот код программы:

Pascal

uses crt;
var f,g,h:file of integer;
a:integer;
c:char;
begin
clrscr;
assign(f,'filef');
rewrite(f);
assign(g,'fileg');
rewrite(g);
assign(h,'fileh');
rewrite(h);
writeln('Введите в файл F целые числа, окончание ввода Esc:');
repeat
write('a=');
readln(a);
write(f,a);
c:=readkey;
until c=#27;
reset(f);
writeln('Исходный файл:');
while not eof(f) do
begin
read(f,a);
write(a,' ');
if odd(a)then write(h,a)
else write(g,a);
end;
close(f);
writeln;
reset(g);
writeln('FФайл четных чиселl:');
while not eof(g) do
begin
read(g,a);
write(a,' ');
end;
close(g);
writeln;
reset(h);
writeln('Файл нечетных чисел:');
while not eof(h) do
begin
read(h,a);
write(a,' ');
end;
close(h);
readln
end.

Вернуться к обсуждению:
Типизированные файлы. Записать в файл C все четные числа файла F, а в файл N - все нечетные Pascal ABC

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

30.03.2012, 18:30

Готовые ответы и решения:

В файл g записать все четные числа из файла f, а в h все нечетные.
Организовать файл последовательного доступа f, состоящий из N целых чисел. После этого организовать...

Все четные числа файла записать во второй файл, а нечетные — в третий файл
Имеется файл, элементами которого являются целые числа. Все четные числа этого файла записать во...

Записать в файл С все четные числа файла F, а в файл N - все нечетные.
сформировать файл F, компонентами которого являются целые числа. записать в файл С все четные числа...

Записать в файл g все чётные числа файла f, а в файл h все нечётные
Записать в файл g все чётные числа файла f, а в файл h все нечётные. Порядок следования чисел...

	30.03.2012, 18:30

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

30.03.2012, 18:30

Помогаю со студенческими работами здесь

Записать в файл g все четные числа файла f, а в файл h-все нечетные.
Дан файл f, компоненты которого являются целыми числами. Записать в файл g все четные числа файла...

Записать в файл g все четные числа файла f, а в файл n-все нечетные
Дан файл f, компоненты которого являются целыми числами. Записать в файл g все четные числа файла...

Записать в файл g все чётные числа файла f, а в файл h - все нечётные.
Вот сижу на паре и не знаю как делать ,может кто решит очень прошу так как сам в паскале тук тук ...

Все четные числа файла записать во второй файл, а нечетные — в третий файл
Имеется файл, элементами которого являются целые числа. Все четные числа этого файла записать во...

Наверх