23.01.2011, 18:14
|
#1 (permalink) |
|
Member
Регистрация: 12.01.2011
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль-задачи
|
|
|
|
23.01.2011, 18:14
|
|
|
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
К вашему вниманию аналогичные обсуждения Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл Паскаль, три задачи на массивы Решение задачи. Паскаль Две задачи. Паскаль Помогите решить задачи на Паскаль |
|
23.01.2011, 19:47
|
#5 (permalink) |
|
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Извините за прямоту, но какой же из вас программист, если вы не можете решать довольно несложные задачи? Смысл тогда учиться? Еще раз извините, но... Электрику я бы такое простил, но не программисту.
|
|
|
|
| Ads | |
|
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|
23.01.2011, 20:03
|
#7 (permalink) |
|
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
5
Код:
const n=10;
var a:array[1..n] of real;
i, x: integer;
begin
write('enter x ');
read(x);
randomize;
for i:=1 to n do begin
a[i]:=random*30-20;
if a[i]<0
then a[i]:=a[i]+x;
write(a[i]:2:1,' ');
end;
readln
end.
|
|
|
|
|
23.01.2011, 20:04
|
#8 (permalink) |
|
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
9
Код:
const n=10;
var a:array[1..n] of integer;
i, p: integer;
begin
write('enter p ');
read(p);
randomize;
for i:=1 to n do begin
a[i]:=random(100)+1;
write (a[i]:3);
end;
writeln;
for i:=1 to n do begin
if a[i]>p
then a[i]:=0;
write (a[i]:3);
end;
readln;
readln
end.
|
|
|
|
|
23.01.2011, 20:04
|
#9 (permalink) |
|
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Если есть желание разобраться, вы разберетесь независимо от того, как объясняли. Вот прошли тему, не поняли - сядьте, попробуйте, почитайте книгу, да хоть у нас на форуме спросите - помочь советом или объяснить какие-то моменты мы всегда рады. Знаете поговорку "Кто не хочет - ищет причину. Кто хочет - повод"?
В любом случае, слишком большой объем работы "до завтра"... |
|
|
|
|
23.01.2011, 20:06
|
#10 (permalink) |
|
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
10
Код:
const m=10; var a:array[1..m] of real; i: integer; begin randomize; for i:=1 to m do begin a[i]:=random*100; if a[i]>a[5] then a[i]:=a[i]/2; write (a[i]:2:1,' '); end; readln end. |
|
|
|
| Ads | |
|
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
 |
|
|
Линейный вид
