Вопрос № 122464: Помогите пожалуйста решить задачки(написать саму программу в turbo pascal),сам знаю что они оч лёгкие для 7-го класса,тем не менее:
1) Вычислитб z=2y^2+x^2+8(два y в квадрате +х в квадрате+8), если y=3, а x=3,6,9,12,15.
2)Какова будет высота...Вопрос № 122526: Уважаемые специалисты,помогите пожалуйста написать программу на паскале.заранее спасибо!...Вопрос № 122541: Помогите плз...
Элементы данной матрицы – натуральные числа в границах (-30, 50). Найти наименьший элемент матрицы и вывести на экран его место нахождения. Если таких элементов несколько, вывесте на экран местонахождение каждого элемента и к...Вопрос № 122588: Люди добрые, помогите, чем можете. Простая задачка вроде.
Заранее спасибо.
В веденной с клавиатуры строке найти наиболее длинное и наиболее короткое слово. Вывести найденные слова и их длину в текстовой файл. Если найденно несколько слов...
Вопрос № 122.464
Помогите пожалуйста решить задачки(написать саму программу в turbo pascal),сам знаю что они оч лёгкие для 7-го класса,тем не менее:
1) Вычислитб z=2y^2+x^2+8(два y в квадрате +х в квадрате+8), если y=3, а x=3,6,9,12,15.
2)Какова будет высота растения через 6 месяцев,если за месяц прирост 5%. Начальное значение 20см
3) На каждом следующем дне рождения Вини Пух съедает на 15% больше, чем га предыдущем дне рождения. Подсчитать ск-ко он съест на 10-ом дне рождения и сколько всего на этих днях рождения, если на первом съел 100гр.
4) Найти сумму чисел кратных 13 в интервале от 1 до 100.
Приложение:
Отправлен: 10.02.2008, 10:48
Вопрос задал: Danilka (статус: Посетитель)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: SHERRY
Здравствуйте, Danilka!
Код задач в приложении. Коментарии, думаю, излишни, т.к. задачи элементарные.
Удачи!
Приложение:
--------- Самурай без меча подобен самураю с мечём, только без меча..
Ответ отправил: SHERRY (статус: 6-ой класс)
Ответ отправлен: 10.02.2008, 13:04 Оценка за ответ: 5
Отвечает: Шемет Станіслав Васильович
Здравствуйте, Danilka!
Вот пример кода:
токо 3 задание там немного неправильно зделано.
var
z,x,y,i:integer;
r:real;
procedure one;
begin
y:=3;
for i:=1 to 5 do
begin
x:=i*3;
z:=2*y*y+x*x+8;
writeln(z);
end;
end;
procedure Two;
begin
r:=20;
for i:=1 to 6 do
r:=r+r*0.05;
writeln(r:5:5,'cм');
end;
Procedure Three;
var
Temp:real;
begin
temp:=100;
r:=0;
for i:=1 to 10 do
begin
temp:=temp*0.15+temp;
r:=r+temp;
end;
end;
Procedure Four;
begin
x:=0;
for i:=1 to 100 do
if (i mod 13)= 0 then
x:=x+i;
writeln(x);
end;
begin
one;
two;
three;
four;
end.
Отвечает: XRUST
Здравствуйте, Danilka!
1)
program asd;
var
x,y:integer;
begin
y:=3;
x:=3;{Здесь если вам надо можете менять на 3,6,9,12,15}
writeln(sqr(2*y)+sqr(x)+8);
end.
или
program asd;
var
x,y:integer;
begin
y:=3;
x:=3;
writeln(sqr(2*y)+sqr(x)+8);
x:=6;
writeln(sqr(2*y)+sqr(x)+8);
x:=9;
writeln(sqr(2*y)+sqr(x)+8);
x:=12;
writeln(sqr(2*y)+sqr(x)+8);
x:=15;
writeln(sqr(2*y)+sqr(x)+8);
end.
2)
program asd;
var
i,b:integer;
x:real;
begin
x:=20;
for i:=1 to 6 do
x:=x+x*0.05;
writeln(x);
end.
3)
program asd;
var
a,sum:real;
i:integer;
begin
a:=100;
sum:=0;
for i:=1 to 10 do
begin
sum:=sum+a;
a:=a+a*0.15;
end;
writeln(sum,' ',a);{sum-всего,a-на последнем}
end.
4)program asd;
var
sum,i:integer;
begin
sum:=0;
for i:=1 to 100 do
if (i mod 13=0) then sum:=sum+1;
writeln(sum);
end.
Ответ отправил: XRUST (статус: 1-ый класс)
Ответ отправлен: 10.02.2008, 18:40 Оценка за ответ: 5
Вопрос № 122.526
Уважаемые специалисты,помогите пожалуйста написать программу на паскале.заранее спасибо!
Приложение:
Отправлен: 10.02.2008, 18:12
Вопрос задал: AlexJan87 (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Sanek
Здравствуйте, AlexJan87!
Вот вам мой вариант решения этой задачи!!!
Приложение:
Ответ отправил: Sanek (статус: 1-ый класс)
Ответ отправлен: 10.02.2008, 19:09 Оценка за ответ: 5 Комментарий оценки: БОЛЬШОЕ ВАМ СПАСИБО!!!:)
Отвечает: Зенченко Константин Николаевич
Здравствуйте, AlexJan87!
В приложении программа которая роботает со списками.
Т.к. количество чисел неопределенно, то считаем, что признак окончания ввода - любое отрицательное число.
Фильтрация введеных чисел происходит при вводе, т.е. числа не попадающие в интервал просто игнорируются.
Если будут вопросы, обращайтесь в минифорум.
Удачи!
Приложение:
--------- И только наступив на грабли мы приобретаем драгоценный опыт!
Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 11.02.2008, 18:57 Оценка за ответ: 5 Комментарий оценки: БОЛЬШОЕ СПАСИБО КОНСТАНТИН НИКОЛАЕВИЧ!!!
Вопрос № 122.541
Помогите плз...
Элементы данной матрицы – натуральные числа в границах (-30, 50). Найти наименьший элемент матрицы и вывести на экран его место нахождения. Если таких элементов несколько, вывесте на экран местонахождение каждого элемента и кол-во элементов.
Значения элементам массива (матрицы), где N и M вводятся с клавиатуры, присуждается с помощью функции RANDOM.
Вывести на экран:
-матрицу A(N,M)
-вычисленный результат
Отправлен: 10.02.2008, 19:30
Вопрос задал: Romi4 (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Николай Владимирович / Н.В.
Здравствуйте, Romi4!
Программа в приложении.
Удачи!
Приложение:
Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW:nvsoft.org ICQ: 420720 ---- Ответ отправлен: 10.02.2008, 21:35 Оценка за ответ: 5
Вопрос № 122.588
Люди добрые, помогите, чем можете. Простая задачка вроде.
Заранее спасибо.
В веденной с клавиатуры строке найти наиболее длинное и наиболее короткое слово. Вывести найденные слова и их длину в текстовой файл. Если найденно несколько слов с одной длиной, вывести их все.
Отправлен: 11.02.2008, 01:15
Вопрос задал: Romi4 (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 7)
Отвечает: Николай Владимирович / Н.В.
Здравствуйте, Romi4! Программа в приложении.
Удачи!
Приложение:
Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW:nvsoft.org ICQ: 420720 ---- Ответ отправлен: 11.02.2008, 10:17
