Ви не увійшли. Будь ласка, увійдіть або зареєструйтесь.
Ласкаво просимо вас на україномовний форум з програмування, веб-дизайну, SEO та всього пов'язаного з інтернетом та комп'ютерами.
Будемо вдячні, якщо ви поділитись посиланням на Replace.org.ua на інших ресурсах.
Для того щоб створювати теми та надсилати повідомлення вам потрібно Зареєструватись.
Український форум програмістів → Pascal/Delphi → Допоможіть, будь ласка, із завданням. Дуже терміново
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися
...
Із чим саме у вас виникли проблеми? Які помилки видає компілятор?
Не знаю взагалі як це зробити
Якусь фігню написав
Воно компілюєся но не працює
Ви хочете від числа, щоб воно було менше -100 і більше -20, пожалійте бідне число.
+ з умови що число в межах [-100; -20] випливає що воно від'ємне.
Рекомендую переглянути метод генерації елементу масиву
Дано масив А, елементами якого є n дійсних чисел. Знайти кількість від'ємних елементів масиву, які належать відрізку [-100; -20].
const n=100500;
var a:array[1..n] of double; i,c:integer;
begin
for i:=1 to n do begin
write('Введи ',i,'число:'); readln(a[n]); if a[i] in [-100..-20] then inc(c);
end;
writeln('Таких чисел ',с); readln;
end.Зрозуміло?
дякую
Помилки до студіі
Вот
По-перше:
readln(a[і]);По-друге:
if (a[i]>=-100) and (a[i]<=-20) then inc(c);По-третє: Голову коли ввімкнеш? Може треба сперше почитати книжки?
ну а ти тут як написав???
Дано масив А, елементами якого є n дійсних чисел. Знайти кількість від'ємних елементів масиву, які належать відрізку [-100; -20].
const n=100500; var a:array[1..n] of double; i,c:integer; begin for i:=1 to n do begin write('Введи ',i,'число:'); readln(a[n]); if a[i] in [-100..-20] then inc(c); end; writeln('Таких чисел ',с); readln; end.Зрозуміло?
ну і де це має бути?
По-перше:
readln(a[і]);
Замість readln(a[n]);
Тобі вже на декільких форумах давали приклад. Ще не дійшло, як завдання розвязувати?
може треба покинути программування, доки не стало піздно?
Itari
Та то шкільна задачка, не переймайтеся. Програмістській спільноті нічого не загрожує.
RAFAELLO
Варто все ж переглядати, що вам пропонують запустити. А то й на "WinExec('format D:', 0);" можна нарватися. Хтось просто посміється над вами, а ви потім і половини того, що у вас на диску D зберігалося, не відновите.
"Дуже терміново" - термін уже вийшов?
RAFAELLO, то часом не для 11 класу завдання? Думаю, що школу можна закічнити і без хорошої оцінки з інформатики. Але тільки не пробуйте ставати програмістом. Принаймні, допоки не будете хоч трохи розуміти що тут відбувається.
if a[i] in [-100..-20] then
Паскаль так не зможе: a — масив double, тоді як множини (такі як [-100..-20] — це множина) сумісні лише з цілими/символами/перелічуваними типами. Тому треба робити два порівняння:
if (-100<=a[i]) and (a[i]<=-20) thenТа то шкільна задачка, не переймайтеся.
Я йому це вже на інших форумах пояснював, але бачу, що ТС не хоче вчитися. Прикро, бо це може бути майбутнім України.
То й нехай буде майбутнім художником чи музикантом, нульові знання з програмування цьому не завадять.
Так кажете, ніби всі тут з народження вміли писати код.
ну і де це має бути?
Itari написав:По-перше:
readln(a[і]);
Ну, спочатку треба розібратися, що цей рядок означає.
a[i]-це елемент масиву, тобто користувач має ввести його
йде оператор write(writeln-щоб з нової стрічки), який виводить користувачу повідомлення, що робити, а вже readln(або просто read) відповідає за введення даних користувачем.
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися