var
f: file of integer;
i,count: integer;
begin
count:=0;
writeln('Type numbers. `0` = end.');
Assign(f, 'MyFile.bin'); Rewrite(f);
Repeat
readln(i);
write(f, i);
Until i=0;
Close(f); Reset(f);
While not EOF(f) do
begin
read(f,i);
if (frac(sqrt(i)) = 0) and Odd(Round(int(sqrt(i)))) then
inc(count);
end;
Close(f);
writeln;
writeln(count);
readln;
end.
Задача на "работа с файлами" не очень сложная ,но не для меня
Дан файл f, компоненты которого есть целые числа. Найти количество квадратов непарных чисел среди компонентов файла f.:)
Вот, набросал код. Если будут проблемы с пониманием - отпишитесь ниже.
Код:
Объесни пожайлуста строку : writeln('Type numbers. `0` = end.'); Оно потом выводит ан экран это, что потом вписывать подскажи!?
Программа просит Вас предоставить ей числа. Вводите сколько душе угодно, но как только Вы введёте нуль - программа прекратит сбор данных и приступит к выполнению основной задачи.
я просто хотел спросить каким оброзом это происходит? да count - подсчитывает if (frac(sqrt(i)) = 0) and Odd(Round(int(sqrt(i)))) then вычисляет эти числа, но каким оброзом существенно в програме вводить и что? оно просто выводит "'Type numbers. `0` = end."
и что дальше?
и что дальше?
Код:
writeln('Type numbers. `0` = end.'); {выводим надпись}
Assign(f, 'MyFile.bin'); {задаём файловой переменной файл на диске c именем 'MyFile.bin'}
Rewrite(f); {создаём файл}
Repeat {запускаем цикл}
readln(i); {считываем значение числа с клавиатуры}
write(f, i); {записываем число в файл}
Until i=0; {если введён нуль - цикл завершается -> заканчивается ввод чисел}
Close(f); {закрываем файл}
Reset(f); {открываем файл для чтения}
Assign(f, 'MyFile.bin'); {задаём файловой переменной файл на диске c именем 'MyFile.bin'}
Rewrite(f); {создаём файл}
Repeat {запускаем цикл}
readln(i); {считываем значение числа с клавиатуры}
write(f, i); {записываем число в файл}
Until i=0; {если введён нуль - цикл завершается -> заканчивается ввод чисел}
Close(f); {закрываем файл}
Reset(f); {открываем файл для чтения}
Дальше комментировать?
Секторная диаграмма - это круг, площади секторов которого пропорциональны соответствующим числовым величинам,, взятым из некоторой совокупности. Для большей наглядности секторы диаграмм закрашивают в разные цвета. рисунок : я добавил файл с рисунком..
Даны семь действительных положительных чисел А1,А2,....А7. Построить секторную диаграмму для этих значений. Напиши хоть примерно эту задачу ????!?!?!?!пожайлуста:)
Даны семь действительных положительных чисел А1,А2,....А7. Построить секторную диаграмму для этих значений. Напиши хоть примерно эту задачу ????!?!?!?!пожайлуста:)
Код:
{Сумма}
sum:=0;
for i=1 to 7 do
sum:=sum+a;
{Углы секторов}
for i=1 to 7 do
angle:=360*a/sum;
for i:=1 to 7 do
begin
PieSlice(getmaxx div 2,getmaxy div 2,Radius,round(angle[(i-1)mod 7+1]),round(angle));
end;
sum:=0;
for i=1 to 7 do
sum:=sum+a;
{Углы секторов}
for i=1 to 7 do
angle:=360*a/sum;
for i:=1 to 7 do
begin
PieSlice(getmaxx div 2,getmaxy div 2,Radius,round(angle[(i-1)mod 7+1]),round(angle));
end;
Примерно так. С цветами сам разберешься?
Спасибо очень помогло! :)
Вычислить:
10 15
∑ K^3 ∑(K-L)^2.
K=1 L=1
соответствует ли код условию этой задачи:
program vichislit_320;
uses crt;
var
l,k:integer; s,s1,s2:real;
begin
s1:=0;
for k:=1 to 10 do
s1:=s1+exp(3*ln(k));
s2:=0;
for l:=1 to 15 do
s2:=s2+sqr(k-l);
s:=s1+s2;
writeln('rezultat: s= ',s:2:5);
readln;
clrscr;
end.
10 15
∑ K^3 ∑(K-L)^2.
K=1 L=1
соответствует ли код условию этой задачи:
program vichislit_320;
uses crt;
var
l,k:integer; s,s1,s2:real;
begin
s1:=0;
for k:=1 to 10 do
s1:=s1+exp(3*ln(k));
s2:=0;
for l:=1 to 15 do
s2:=s2+sqr(k-l);
s:=s1+s2;
writeln('rezultat: s= ',s:2:5);
readln;
clrscr;
end.