• Составить подпрограмму,заменяющую все элементы одномерного массива,меньшие заданной величины Т,на значение этой величины и считающую число таких замен.
    используя эту подпрограмму,изменить каждый из двух заданных массивов Р и С и вывести на печать тот массив,в кот. Окажется большим число замен.Если же эти числа замен будут равны,отпечатать число замен.задать Т=0.005,Р= (0.001;1.54; -2.75; 0.002; -0.1; 1.2; -0.47) ; С= ( -5.74; 0.0001; 4.1; 7.24; -1.5; 2.9; 0.004 ) элементы массива P C брать из файлов

Ответы 5

  • да я понял что должно быть 2 файла
  • Reset(f); у меня вот этой строчке выдаёт ошибку в 14 строчке
    • Автор:

      stanley25
    • 5 лет назад
    • 0
  • Значит не находит файл. У меня все нормально с файлами работает, раз тестовое решение приложено. Идет в Reset ошибка - это как раз не находит файл, потому что в Assign обращение к файлу еще не идет. Еще раз - можете ничего не исправлять в тексте программы, а файлы с именем p.dat и c.dat поместить по тому пути, который пишется Вам в этом сообщении.
  • Я сейчас сюда закину программу, которая Вам эти файлы создаст, раз руками сделать у Вас проблемы.
    • Автор:

      sable7iyk
    • 5 лет назад
    • 0
  • const n=7; a1:array[1..n] of real=(0.001,1.54,-2.75,0.002,-0.1,1.2,-0.47); a2:array[1..n] of real=(-5.74,0.0001,4.1,7.24,-1.5,2.9,0.004);var i:integer; f1,f2:Text;begin Assign(f1,'ac.dat'); Rewrite(f1); Assign(f2,'ap.dat'); Rewrite(f2); for i:=1 to n do begin Writeln(f1,a1[i]); Writeln(f2,a2[i]) end; Close(f1); Close(f2)end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years