Заполнить файл числами вводом с клавиатуры.

@Darya · Регистрация: 17.06.2009

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

Ребята, помогите исправить...
Нужно, что бы в этой программе не компьютер автоматически вводил числа, а человек...?
Заранее спасибо!!!

))
Вот текст программы:

Pascal

uses crt;
 
var
  F: file of integer;
  n,i,j,x: integer;
  max,min: integer;
 
begin
  clrscr; randomize;
  assign(F,'chislo.dat');
  rewrite(F);
  n:=random(10)+5;
  write(F,n);
  for i:=1 to n do
    for j:=1 to n do
    begin
      x:=random(101)-50;
      write(F,x);
    end;
  close(F);
  reset(F);
  writeln('Vyvod ishodnogo faila:');
  read(F,n);
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      read(F,x); write(x:4);
    end;
    writeln;
  end;
  seek(F,1); read(F,x); min:=x;
  max:=x; seek(F,1);
  for i:=1 to n do
    for j:=1 to n do
    begin
      read(F,x);
      if ((i=j) or (i=n-j+1)) and (max<x) then max:=x;
      if ((i=j) or (i=n-j+1)) and (min>x) then min:=x;
  end;
  close(F);
  writeln;
  writeln('Maximalnyj element diagonalej: ',max);
  writeln('Minimalnyj element diagonalej: ',min);
  readln;
end.

@Puporev · 16.01.2010, 12:32

Вместо этого

Pascal

n:=random(10)+5;
  write(F,n);
  for i:=1 to n do
    for j:=1 to n do
    begin
      x:=random(101)-50;
      write(F,x);
    end;

Напишите это, кстати зачем 2 цикла?

Pascal

write('Количество чисел n=') ;
readln(n);
writeln('Введите в файл ',n,' чисел:');
for i:=1 to n do
 begin
  write('x=');
  readln(x);   
  write(F,x);
 end;

@Darya · 16.01.2010, 12:54 **[ТС]**

Я исправила, у меня вводится, но программа дальше не идет, почему?

@Puporev · 16.01.2010, 13:09

Потому что Вы сами не поняли что писали. Напишите хоть условие задачи.

Добавлено через 3 минуты
Примерно понял, но что-то наверное не так в условии было.
Вот Ваша программа.

Pascal

uses crt;
var
  F: file of integer;
  n,i,j,x: integer;
  max,min: integer;
 
begin
  clrscr; randomize;
  assign(F,'chislo.dat');
  rewrite(F);
write('Количество чисел n=');
readln(n);
write(f,n);
writeln('Введите в файл ',n*n,' чисел:');
for i:=1 to n do
for j:=1 to n do
 begin
  write('x=');
  readln(x);   
  write(F,x);
 end;
reset(F);
writeln('Vyvod ishodnogo faila:');
read(F,n);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    read(F,x);
    write(x:4);
    end;
  writeln;
 end;
close(f);
reset(f);
seek(F,1); read(F,x); min:=x;
max:=x;
seek(F,1);
for i:=1 to n do
 for j:=1 to n do
  begin
   read(F,x);
    if ((i=j) or (i=n-j+1)) and (max<x) then max:=x;
    if ((i=j) or (i=n-j+1)) and (min>x) then min:=x;
   end;
close(F);
writeln;
writeln('Maximalnyj element diagonalej: ',max);
writeln('Minimalnyj element diagonalej: ',min);
readln;
end.

@Darya · 16.01.2010, 14:19 **[ТС]**

Вот, теперь идет!!!

Спасибо ОГРОМНОЕ!!!!

:*

@Darya · 18.01.2010, 16:39 **[ТС]**

А в этой программе как исправить, что б числа тоже мог человек вводить?

Pascal

uses crt;
 
var
  F: file of integer;
  G: file of integer;
  n,m,i,j,x: integer;
  sum: integer;
 
begin
  clrscr; randomize;
  assign(F,'chislo.dat');
  assign(G,'itog.dat');
  rewrite(F);
  n:=random(10)+5;
  m:=random(10)+5;
  write(F,n);  write(F,m);
  for i:=1 to n do
    for j:=1 to m do
    begin
      x:=random(101)-50;
      write(F,x);
    end;
  close(F);
  reset(F);
  writeln('Vyvod ishodnogo faila:');
  read(F,n);  read(F,m);
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      read(F,x); write(x:4);
    end;
    writeln;
  end;
  rewrite(G);
  seek(F,2); write(G,n);
  for i:=1 to n do
  begin
    sum:=0;
    for j:=1 to m do
    begin
      read(F,x);
      if x>0 then sum:=sum+x;
    end;
    write(G,sum);
  end;
  close(F); close(G);
  reset(G);
  writeln;
  writeln('Vyvod vyhodnogo faila:');
  read(G,n);
  for i:=1 to n do
  begin
      read(G,x); write(x:4);
  end;
  close(G);
  writeln;
  readln;
end.

@Puporev · 18.01.2010, 16:42

Да точно также.

@Darya · 24.01.2010, 13:10 **[ТС]**

А здесь че исправить, я пыталась и не могу сообразить...???

Pascal

uses crt;
 
var
  F: text;
  str: array[1..200] of string;
  i,n,k,j: integer;
 
begin
  clrscr;
  assign(F,'text.txt');
  reset(F);
  while not eof(F) do
  begin
    k:=k+1;
    readln(F,str[k]);
  end;
  close(F);
  writeln('Vyvod ishodnogo faila:');
  for i:=1 to k do
  begin
    n:=length(str[i]);
    for j:=1 to n do
      write(str[i,j]);
    writeln;
  end;
  writeln;
  writeln('Vyvod preobrazovannogo teksta:');
  for i:=1 to k do
  begin
    n:=length(str[i]);
    for j:=n downto 1 do
      write(str[i,j]);
    writeln;
  end;
  readln;
end.

Новые блоги и статьи
Как написать микросервис на Go/Golang InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .

@Darya 0 / 0 / 0 Регистрация: 17.06.2009 Сообщений: 17
	16.01.2010, 12:54 [ТС]	3
	Я исправила, у меня вводится, но программа дальше не идет, почему? 0

@Darya 0 / 0 / 0 Регистрация: 17.06.2009 Сообщений: 17
	16.01.2010, 14:19 [ТС]	5
	Вот, теперь идет!!! Спасибо ОГРОМНОЕ!!!!:* 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	18.01.2010, 16:42	7
	Да точно также. 0

	24.01.2010, 13:10