| Автор | крик о помощи |
|---|
для Александра Мяу:
Просьба, в основном, для программистов: Дан массив А(5). Найти сумму четных положительных элементов.
2) Дан массив Р(7) Введите его с клавиатуры, после чего измените у всех чисел знак на противоположный. Вывести массив на экран.
3) Создать массив Е(10) каждый третий элемент заменить на число 33. Вывести входные и выходные массивы на печать.
Помогите решить пжл, сама ни черта не понимаю, а сдать работу нужно завтра(
Все делается на языке Паскаль
у нас тоже в школе паскаль проходили, ничего там сложного нету, задачи на вид очень простые, проще подойти к учителю и попросить что тебе еще раз объяснили и никаких проблем, поверь никаких особенных мозгов не нужно, ты точно сможешь это все понять без проблем |
для Чип_Чип:
Не знаю. Помню впервые меня заставил программу отец писать. И как же мне тогда это сложно давалась ведь был в начальной школе и язык не вспомню, но если не ошибаюсь бэйсик. Еще со времен ДОСа. А когда профессионально учился так изучал только современные языки.
Имхо основы это теория не привязанная к конкретному языку. |
| comanch-милосердный. Так мы будем звать тебя отныне. |
для Александра Мяу:
3)
unit massiv;
interface
uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
procedure Vvod(var a:mas;var n:byte);
procedure Vyvod(var a:mas;n:byte);
procedure Zamena(var a:mas;n:byte);
implementation
procedure Vvod(var a:mas;var n:byte);
var i:byte;
begin
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы массива целые числа:');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
clrscr;
end;
procedure Vyvod(var a:mas;n:byte);
var i:byte;
begin
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
end;
procedure Zamena(var a:mas;n:byte);
var i:byte;
begin
for i:=1 to n do
if i mod 3=0 then a[i]:=33;
end;
end. |
program N52740408;
var A:array [1 .. 5 ] of integer;
k,sum:integer;
begin
for k:=1 to 5 do begin
write('Введите А (',k,') ');
readln(A[ k ]); end;
sum := 0;
for k:=1 to 5 do
if (A[ k ] > 0) and not odd(A[ k ]) then sum:=sum+A[ k ];
writeln('Cуммa чётных положительных элементов = ', sum);
end. |
unit massiv;
interface
uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
procedure Vvod(var a:mas;var n:byte);
procedure Vyvod(var a:mas;n:byte);
procedure Zamena(var a:mas;n:byte);
implementation
procedure Vvod(var a:mas;var n:byte);
var i:byte;
begin
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы массива целые числа:');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
clrscr;
end;
procedure Vyvod(var a:mas;n:byte);
var i:byte;
begin
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
end;
procedure Zamena(var a:mas;n:byte);
var i:byte;
begin
for i:=1 to n do
if i mod 3=0 then a[i]:=33;
end;
end.
мне кажется немного перемудрено |
Паскаль это основы.
сжечь еретика!
основы - это бейсик |
Да ну? у меня с 1 класса не было ни одной тройки
дык ё! надо же когда-то начинать! |
| Брандмейстер зарывает педагогический талант в землю. |
для пазузу:
мне кажется немного перемудрено
:)
что б професар лег |
для Ta Soare:
я думаю,он может даже сам до такого уровня не дошел) |
для str8er:
Поддерживаю.
для пазузу:
мне кажется немного перемудрено
Более того по условию задачи размер массива=10, а тут бедного преподавателя хотят заставить вбить в 10 раз больше чисел, т. е. 100
Интересно может конкурс устроим на самое лучшее решение (т. е. максимально короткое и самое главное максимально понятное)? |
Интересно может конкурс устроим на самое лучшее решение (т. е. максимально короткое и самое главное максимально понятное)?
Да! О, да!
Покажите на что вы способны!11 |
для тамас:
Если для меня, то желательно разобраться со средой разработки. Сразу предлагают скачать TURBO PASCAL и FREE PASCAL. Хотя из любопытства скачаю и гляну как там. |
| хм кстати в 1и3 кажется не обязательно вводить с клавиатуры числа,генератором можно воспользоваться,не помню как он в паскале вводится |
для пазузу:
35
так ?
uses crt,massiv;
var a:mas;
n:byte;
begin
clrscr;
Vvod(a,n);
writeln(%%Исходный массив:%%);
Vyvod(a,n);
Zamena(a,n);
writeln(%%Замена третьих элементов:%%);
Vyvod(a,n);
readln
end. |
| Никогда не учил бейсик, имхо, такие задачки нужны, чтобы развить программерское мышление, а то что они отстали дело десятое. Множество вещей из школьной программы лишены смысла. |
я имел ввиду генератор случайных чисел,что бы числа случайно задавались,а не каждое вводить,в qbasic например это выглядит так
m(i)=int(rnd*100) в диапазоне 100 будут задаваться случайные числа |
для пазузу:
турбо паскаль тоже наверно есть надо гуглить |
Program hwm;
Var
Max(adm), Alexander(adm) const;
Begin
End.
Я сделал все, что мог, точнее что было... |
