Консультация № 138396
28.05.2008, 23:55
0.00 руб.
0 1 1
помогите написать две програмы на паскале пожалуйста. Заранее спасибо!
1) Записать в текстовый файл последовательного доступа n целых чисел, полученых с помощью генератора случайных чисел. Найти количество квадратов не четных чисел среди компонентов.
2) Создать очередь из n целых чисел вычисляющей по формуле A=x*x+1; x=1,2,3,..n.Найти сумму трех последних элементов очереди.

Обсуждение

давно
Профессор
401888
1232
29.05.2008, 15:31
общий
это ответ
Здравствуйте, Клаткевич Денис Консантинович!
Решение первой задачи с пояснениями в приложении.

Приложение:
uses crt;var f:text; i,a,n,k:integer;beginclrscr;assign(f,‘chisla.txt‘); {текстовый файл}rewrite(f); {открываем для записи} randomize;write(‘Vvedite razmer zapici n=‘);readln(n);for i:=1 to n do begin a:=random(41)+9; {должны попадать числа 9,25,49} writeln(f,a); {вводим числа последовательно в файл} end;close(f); {закрываем файл}reset(f); {открываем для чтения}k:=0;while not eof(f) do begin readln(f,a);{читаем построчно данные из файла}{если квадрат целой части корня=числу, а корень нечетное число} if (sqr(trunc(sqrt(a)))=a)and(trunc(sqrt(a))mod 2<>0) then k:=k+1; {считаем эти числа} end;writeln(‘K=‘,k);readln;close(f);end.
Форма ответа