Logukate
?>

Перевести с 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.

Информатика

Ответы

nastya3213868
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.ReadLine()) != string.Empty)
                words.Add(line);

            Serialize(fileName_, words.ToArray());
            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 раза, если это действительно надо повторить, то добавьте все в цикл и повторяйте сколько надо/хочется
Yelena_Irina826
Поиск простых делителей числа:

var i,j,n:longint;
    f:boolean;
begin
 writeln('Введите число');
 readln(n);
  if n<2 then writeln('Простых делителей нет')
  else
   begin
    write('Число ',n,' ','= 1');
    for i:=2 to n do
     if n mod i=0 then
      begin
       f:=true;
       j:=2;
       while f and(j<=round(sqrt(i/2)))do
        begin
         if i mod j=0 then f:=false
         else j:=j+1;
        end;
      if f then write('*',i);
     end;
   end;
end.

Тестовое решение:

Введите число
2345
Число 2345 = 1*5*7*35*67
qwerty
Алгоpитм — точное и понятное пpедписание исполнителю совеpшить последовательность действий, направленных на решение поставленной задачи.

Основные свойства алгоритмов:

Понятность для исполнителя
Дискpетность (прерывность, раздельность) — алгоpитм должен пpедставлять пpоцесс pешения задачи как последовательное выполнение пpостых (или pанее опpеделенных) шагов (этапов).
Опpеделенность — каждое пpавило алгоpитма должно быть четким, однозначным и не оставлять места для пpоизвола.
Pезультативность — это свойство состоит в том, что алгоpитм должен пpиводить к pешению задачи за конечное число шагов.
Массовость. Алгоpитм pешения задачи pазpабатывается в общем виде.
Формы представления алгоритмов.

• словесная (записи на естественном языке);
• графическая (изображения из графических символов);
• псевдокоды (полуформализованные описания алгоритмов на условном алгоритмическом языке;
• программная (тексты на языках программирования).

Словесный записи алгоритмов представляет собой описание последовательных этапов обработки данных.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Перевести с 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.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Mexx9050
zibuxin6
gabramova
Наталья
Бегун-Марина
Ushakova Sakhno
Rafigovich1267
snopovajulia
Vos-sv
extremhunter
andreanikin
yanva
борисовна Елена78
egamedicalbuh
corneewa20096