Перевести с pascal на c# само : элементами типизированного файла являются отдельные слова. изменить все его элементы на другие слова (их значения вводятся с клавиатуры). рассмотреть вариант: размер существующего файла неизвестен. uses crt; var f: file of string; s: string; i,n: integer; begin clrscr; assign(f,'filef'); rewrite(f); writeln('введите в файл словa, окончание ввода exit: '); //не знем сколько слов repeat readln(s); write(f,s); until s='exit'; clrscr; writeln('исходный файл: '); reset(f); n: =filesize(f); //определяем сколько слов в файле while not eof(f) do//пока не конец файла, читаем begin read(f,s); writeln(s); end; close(f); rewrite(f); writeln('введите в файл ',n,' новых слов'); for i: =1 to n do begin readln(s); write(f,s); end; clrscr; writeln(' файл: '); reset(f); for i: =0 to n-1 do begin read(f,s); writeln(s); end; close(f); readln end.

261

404

Посмотреть ответы 2

Ответы на вопрос:

Mayburovmaks

Информатика

4,6(32 оценок)

Using system; using system.collections.generic; using system.io; using system.runtime.serialization.formatters.binary; internal static class program { private const string filename_ = "words.dat"; private static void main() { try { console.writeline("ввод строк/слов, каждое с новой строки, окончание ввода - пустая строка"); var words = new list< string> (); string line; while ((line = console. = string.empty) words.add(line); serialize(filename_, words.; words.clear(); console.writeline("вывод данных из файла"); var words_from_file = (string[]) deserialize(filename_); for (var i = 0; i < words_from_file.length; i++) console.writeline($"{i} = {words_from_file[i]}"); } catch(exception e) { console.writeline(e); } finally { console.readline(); } } private static void serialize(string file, object o) { using (var fs = new filestream(file, filemode.create, fileaccess.write, fileshare.readwrite)) { var bf = new binaryformatter(); bf.serialize(fs, o); } } private static object deserialize(string file) { using (var fs = new filestream(file, filemode.open, fileaccess.read, fileshare.read)) { var bf = new binaryformatter(); var o = bf.deserialize(fs); return o; } } } сериализация в бинарный файл. в вашей программе действия записи и вывода происходят 2 раза, если это действительно надо повторить, то добавьте все в цикл и повторяйте сколько надо/хочется

gulsaakamaeva

Информатика

4,7(16 оценок)

я так понимаю надо написать паскале

1uses crt;

2var a,b,c: real;

3 i: byte;

4 begin

5clrscr;

6writeln('введите 3 действительных числа: ');

7readln(a);

8if a> =0 then a: =a*a else a: =sqr(sqr(a));

9 readln(b);

10if b> =0 then b: =b*b else b: =sqr(sqr(b));

11readln(c);

12if c> =0 then c: =c*c else c: =sqr(sqr(c));

13write('a=',a: 0: 2,' b=',b: 0: 2,' c=',c: 0: 2);

14readln

15end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.