Народ! помогите решить задачу!
2. Дан массив десяти чисел. Исключить из массива 5-ое и 6-ое числа. Вывести на экран дисплея сумму трехзначных чисел и их количество.
Накатал на скорую руку, если что - пиши, дополним. 
Code
uses crt;
var mas:array[1..10] of integer;
i,p,sum: integer;
q: char;
begin
repeat;
clrscr;
sum:=0;
p:=0;
randomize;
for i:=1 to 10 do
mas[i]:=random(10000); // заполняем массив
for i:=1 to 10 do
write(mas[i],' '); // выводи массив
mas[5]:=0;
mas[6]:=0; // обнуляем 5 и 6 элемент
sum:=0;
for i:=1 to 10 do
begin
if (mas[i]>99) and (mas[i]<1000) then // если трехзначное то
begin
p:=p+1; // увеличиваем счетчик чисел
sum:=sum+mas[i]; // увеличиваем сумму на только что полученное число
end;
end;
writeln;
writeln(sum,' ',p); // выводим результат: сумма - количество трехзнаков
q:=readkey;
until q='q';
end.
var mas:array[1..10] of integer;
i,p,sum: integer;
q: char;
begin
repeat;
clrscr;
sum:=0;
p:=0;
randomize;
for i:=1 to 10 do
mas[i]:=random(10000); // заполняем массив
for i:=1 to 10 do
write(mas[i],' '); // выводи массив
mas[5]:=0;
mas[6]:=0; // обнуляем 5 и 6 элемент
sum:=0;
for i:=1 to 10 do
begin
if (mas[i]>99) and (mas[i]<1000) then // если трехзначное то
begin
p:=p+1; // увеличиваем счетчик чисел
sum:=sum+mas[i]; // увеличиваем сумму на только что полученное число
end;
end;
writeln;
writeln(sum,' ',p); // выводим результат: сумма - количество трехзнаков
q:=readkey;
until q='q';
end.
Цитата | Quote
repeat;
; не нужна, на сколько я помню. Цитата | Quote(ЭЖД @ 9.10.2008 - 19:10)
; не нужна, на сколько я помню.
FPC и с ней, и без неё собирает.
СПС!!!
Люди, помогите решить несколько задач, а то не получается...=(
5. *Дан файл, компонентами которого являются целые числа. Каждый четный десяток чисел расположить по возрастанию, а каждый нечетный – по убыванию. Количество компонент файла не обязательно равно 10.
6. Даны действительные числа a0, a1,…,a6. Получить для x=1,2,3,4 значения P(x+1)-P(x), где P(y)=a0*y6+a1*y5+…+a5*y+a6
10. Реализовать процедуры “Вывести элементы списка на экран” и “Добавить новый элемент в конец списка” для динамической структуры данных Список. Элемент списка является записью с двумя полями: символьного типа и типа указатель на элемент списка. Элементы списка располагаются в динамической памяти. Список задается указателем на первый элемент списка.
5. *Дан файл, компонентами которого являются целые числа. Каждый четный десяток чисел расположить по возрастанию, а каждый нечетный – по убыванию. Количество компонент файла не обязательно равно 10.
6. Даны действительные числа a0, a1,…,a6. Получить для x=1,2,3,4 значения P(x+1)-P(x), где P(y)=a0*y6+a1*y5+…+a5*y+a6
10. Реализовать процедуры “Вывести элементы списка на экран” и “Добавить новый элемент в конец списка” для динамической структуры данных Список. Элемент списка является записью с двумя полями: символьного типа и типа указатель на элемент списка. Элементы списка располагаются в динамической памяти. Список задается указателем на первый элемент списка.
Здравствуйте, если не сложно, помогите пожалуйста с задачей для Pascal:
Сведения об ученике состоят их его фамилии, имени, названия класса (года обучения и буквы), оценок обучения за последнюю четверть (возможно отсутствие некоторых оценок). Дан файл, содержащий сведения об учениках школы. Найти всех учеников по нескольким первым буквам имени. Рассортировать их по успеваемости и в алфавитном порядке.
Сведения об ученике состоят их его фамилии, имени, названия класса (года обучения и буквы), оценок обучения за последнюю четверть (возможно отсутствие некоторых оценок). Дан файл, содержащий сведения об учениках школы. Найти всех учеников по нескольким первым буквам имени. Рассортировать их по успеваемости и в алфавитном порядке.
Помогите пожалуйста решить задачу на языке паскаль. Заранее ОГРОМНОЕ СПАСИБО!
Вот задание:
Вычислить значение f(x)=x+lnx в заданной точке. Вывести на печать таблицу из 5 значений функции.
Вот задание:
Вычислить значение f(x)=x+lnx в заданной точке. Вывести на печать таблицу из 5 значений функции.
помогите plz
1. Заполнить файл последовательного доступа f целыми числами. Получить в файле g все компоненты файла f, исключая повторные вхождения чисел. Вывести файл g на печать
2. Имеется типизированный файл, элементами которого являются отдельные буквы. Получить слово, образованное этими буквами
1. Заполнить файл последовательного доступа f целыми числами. Получить в файле g все компоненты файла f, исключая повторные вхождения чисел. Вывести файл g на печать
2. Имеется типизированный файл, элементами которого являются отдельные буквы. Получить слово, образованное этими буквами
Цитата | Quote(Nattttt @ 22.12.2008 - 20:57)
Помогите пожалуйста решить задачу на языке паскаль. Заранее ОГРОМНОЕ СПАСИБО!
Вот задание:
Вычислить значение f(x)=x+lnx в заданной точке. Вывести на печать таблицу из 5 значений функции.
Вот задание:
Вычислить значение f(x)=x+lnx в заданной точке. Вывести на печать таблицу из 5 значений функции.
Code
var
a:real;
x,y : array[1..5] of real;
i : integer;
begin
for i:=1 to 5 do
begin
writeln('Vvedite x',i);
readln(x[i]);
a:=ln(x[i]);
y[i]:=x[i]+a;
end;
writeln(' x f(x) ln(x)');
for i:=1 to 5 do
writeln(x[i]:7:3,y[i]:7:3,(ln(x[i])):7:3);
readln;
end.
a:real;
x,y : array[1..5] of real;
i : integer;
begin
for i:=1 to 5 do
begin
writeln('Vvedite x',i);
readln(x[i]);
a:=ln(x[i]);
y[i]:=x[i]+a;
end;
writeln(' x f(x) ln(x)');
for i:=1 to 5 do
writeln(x[i]:7:3,y[i]:7:3,(ln(x[i])):7:3);
readln;
end.
должна работать =)
SoftoRooM © 2004-2024