Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

Проверьте пожалуйста программу.

10-11 класс

program f_3;
var f1, f2, f3:text;
C:integer;
G:char;
s:string;
sp:string;
begin
s:=('');
sp:=(' ');
Assign(f1, 't.txt');
Assign(f2, 't2.txt');
Assign(f3, 't3.txt');
Reset(f1);
Rewrite(f2);
Rewrite(f3);
while not eof(f1) do
begin
readln(f1,G);
C:=ord(G);
writeln(f2,inttostr(C));
end;
Reset(f2);
while not eof(f2) do
begin
readln(f2,C);
G:=chr(C);
writeln(f3,G);
end;
close(f1);
close(f2);
close(f3);
end.


Cheery 19 мая 2014 г., 3:19:57 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Xaxaxaxaxa1
19 мая 2014 г., 3:51:38 (9 лет назад)

Проверил, ошибок нет. Есть две ненужнае переменные - s и sp. Сначала коды символов, считываемых из первого фала, записываются во второй. Потом эти коды из второго вайла преобразуются назад в символы и записываются в третий файл. Третий файл будет копией первого.

Ответить

Читайте также

1) Напишите пожалуйста программу (на языке BASIC) вычисления по длинам двух сторон треугольника и углу между ними длины третьей стороны и двух других

углов.
2)
Напишите пожалуйста программу (на языке BASIC) для определения подобия:
а) двух прямоугольников по двум смежным сторонам;
б) двух треугольников по трем сторонам.

проверьте пожалуйста программу!!!

1. Заполнить массив случайные числами из промежутка [10;20]
2. Найти максимальный и минимальный элементы в этом массиве
3. Обменять первый максимальный и последний минимальный

проверьте пожалуйста программу!!!

1. Заполнить массив случайные числами из промежутка [10;20]
2. Найти максимальный и минимальный элементы в этом массиве
3. Обменять первый максимальный и последний минимальный



Вы находитесь на странице вопроса "Проверьте пожалуйста программу.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.