Программу на Паскале!
VeeOla
Паскаль я не знаю, к сожаленю.)
Взмывает в небо за моим за окном
Непобеждённая страна.
(Е. Летов)
Понятно! А на Basic?
VeeOla
на Basic могу.
Взмывает в небо за моим за окном
Непобеждённая страна.
(Е. Летов)
Пожалуйста, если не трудно!
VeeOla
Не. Вы пишИте программу сами, я могу найти ошибку, вам же всё равно её нужно в редакторе отлаживать. И что это за скобочки такие интересные 〗?
Взмывает в небо за моим за окном
Непобеждённая страна.
(Е. Летов)
руки Frau_Muller
Да, заполнила. Понятно, что умножить цену на 10 процентов, но мне как-то надо сделать выборку с ипользованием ВПР и потом уже рассчитать штраф. Как соединить умножение и ВПР не понимаю.
Помогите, пожалуйста, написать программу в Pascal.
Задача: Дано натуральное число N (100<N<999). Найти и вывести на экран число, состоящее из тех же цифр, что и первое, только в обратном порядке.
Помогите плиз! Задание:
Дано натурально число n и последовательность из n целых чисел. Найти произведение и сумму положительных элементов последовательности, предшествующих первому отрицательному элементу. Если отрицательных элементов нет. то выдать сообщение об этом.
var i,n,k:integer;
s,p,x:double;
begin
writeln('Введите количество членов последоватлеьности');
readln(n);
s:=0;
p:=1;
k:=0;
writeln('Введите последовательность чисел');
for i:=1 to n do
begin
read(x);
repeat
S:=s+x;
P:=p*x;
k:=k+1;
until x<0;
end;
if k=n then
writeln('Отрицательных чисел нет')
else writeln(s,p);
end.
Но цикл - зацикливается. Почему то он не воспринимает изменения х. Как исправить/переписать цикл?
Народ, помогите решить две задачки по информатике на Паскале.
1) Написать программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным и выдает рекомендацию о необходимости поправиться или похудеть. Оптимальный вес вычисляет по формуле: рост (в самнтиметрах) - 100.
2) Из трех данных чисел выбрать наибольшее.
Работу надо сдать до 9.03.2011
первая задача:
Program Zadacha1;
Var ves, rost, optVes:integer;
Begin
write('Введите массу тела');
read(ves);
write('Введите рост в сантиметрах');
read(rost);
optVes:=rost-100;
if ves>optVes then write('Вам необходимо похудеть');
if ves<optVes then write('Вам необходимо поправиться');
if ves=optVes then write ('Ваш вес оптимален')
End.
Вторая задача:
Program Zadacha2;
Var a,b,c:integer;
Begin
write('Ведите три числа');
read(a,b,c);
If (a>b) and (a>c) then writeln ('Наибольшее число - ', a);
If (a>b) and (a<c) then writeln ('Наибольшее число - ', c);
If (a<b) and (b>c) then writeln ('Наибольшее число - ', b);
If (a<b) and (b<c) then writeln ('Наибольшее число - ', c);
End.
народ помогите!!!задание по информационному обеспечению
Господин Сидоров заключил с гсподином Ивановым договор,обязавшись
продать ему через 3 года пакет из 100 акций за 5000рублей.Он положил
акции в банк под 8% годовых,с ежеквартальным начислением процентов.В
настоящий момент каждая такая акция стоит на рынке 46 рублей.
-Какой доход получит Сидоров?
-Как изменится его доход,если ставка кредита 6%,7%,9%(оценить изменения с помощью таблицы подстановки)
-Как
изменится его доход ,если ставка кредита 6%,7%,9% годовых ,а период
начисления процентов-ежемесячный и ежегодный(оценить изменения с помощью
диспетчера сценариев.
-Сколько лет потребуется господину Иванову
чтобы получить доход по этим акциям 2500 руб,если он положит их в банк
на тех же условиях.
Помогите пожалуйста сделать программу в паскале.
Числа Каллена вычисляются по формуле (n*2^n + 1), где n положительное число, целое. например, 3=1*2^1+1. Найти все трехзначные числа Каллена.
Срок до вечера 29.01.12. Зарание спасибо)
Idea and creation: fuldon (aka miXei) © 2000-2015
Powered by vBulletin® Version 4.2.6 by vBS Copyright © 2024 vBulletin Solutions, Inc. All rights reserved. |