Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Решение задач на Pascal. Форум 3.
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 ]
Модераторы: paradise, KMA
  

sorsuire



Новичок

здравствуйте, помогите пожалуйста решить, сроки поджимают, не успеваю:

1)Создать двумерный массив (M x N). Найти сумму элементов каждой строки.
2)Перевести число:
А= 199,719(10) > A(2) > A(8) > A(16)
Выполнить действия в двоичной системе счисления:
А + В при А = 20(10) и В =38(10)

Всего сообщений: 6 | Присоединился: ноябрь 2010 | Отправлено: 29 нояб. 2010 21:46 | IP
azazelka04



Новичок

никак не могу решить, помогите!!!
Составить программу обработки двумерного массива на языке Турбо Паскаль. В квадратной матрице порядка n вывести элементы, расположенные над главной диагональю, которые не встречались под главной диагональю.

Всего сообщений: 4 | Присоединился: декабрь 2010 | Отправлено: 2 дек. 2010 21:37 | IP
bolon



Новичок

Помогите пожалучто завтро практика и надо решить 3 задачи
1.Одномерный массив, переставить max элемент с последним!
2.заменить все входяшие слова а на б
3.проверить является ли введенная фраза словестной и зашифровать
Заранее спасибо!

Всего сообщений: 3 | Присоединился: декабрь 2010 | Отправлено: 18 дек. 2010 1:20 | IP
paradise


Долгожитель

2 bolon
1 Задача.
const n=10;
var
  a: array [1..n] of integer;
  i, max,ind, temp: integer;
begin
    cls;
    ind:=1;
    for i:=1 to n do
    begin
        a:=random(10);
        write(a,' ');
    end;
    writeln;
    max:=a[1];
    for i:=1 to n do
        if a>max then
        begin
             max:=a;
             ind:=i;
        end;
    temp:=a[n];
    a[n]:=a[ind];
    a[ind]:=temp;
    for i:=1 to n do
        write(a,' ');
end.

Всего сообщений: 428 | Присоединился: ноябрь 2008 | Отправлено: 18 дек. 2010 1:42 | IP
bolon



Новичок

a:=random(10); ошибку выдает тут типо
попытка присвоить переменную типа array [1..10]

Всего сообщений: 3 | Присоединился: декабрь 2010 | Отправлено: 18 дек. 2010 2:11 | IP
paradise


Долгожитель

ой, не заметила, там должны быть квадратные скобки и в них i

Всего сообщений: 428 | Присоединился: ноябрь 2008 | Отправлено: 18 дек. 2010 10:21 | IP
Oleg002



Новичок

Помогите пожалуйста исправить программу,условия ниже:

1)Вычислить сумму "S" с заданной точностью "E".Считать,что заданная точность достигнута,если очередное слагаемое по модулю меньше "E".
2)Определить номер и величину последнего учитываемого слагаемого.

S= -cosx + cos2x / 2^2 +...+(-1)^n * cosnx / n^2 +...

x=П/4(Пи на четыре)
E=0.1, E=0.001.

Вот так выглядит моя программа:
Program s_001;
uses crt;
var x,e,sum,an,Sn:real;
n:integer;
Label b1;
begin
clrscr;
writeln('vvedite e,x');
readln (e,x);
Sum:=0;
Sn:=0;
n:=1;
an:=1;
b1: an:=an*(-1);
Sn:=cos(n*x)/n*n*an;
if abs(Sn)>=e then
begin
n:=n+1;
Sum:=Sum+Sn;
goto b1;
end
else;
writeln('sum=',Sum:2:3);
readkey;
end.

При проверке программы он считает сумму,т.е первое задание считает всё нормально,но вот второе(Определить номер и величину последнего учитываемого слагаемого) он не делает..как этого добиться что нужно дописать в программу?
помогите пожалуйста,очень на вас надеюсь!!
я ничего в этом не понимаю, а задачу мне делал человек с которым сейчас нет никакой возможности связаться и узнать

(Сообщение отредактировал Oleg002 19 дек. 2010 0:29)

Всего сообщений: 1 | Присоединился: декабрь 2010 | Отправлено: 18 дек. 2010 23:46 | IP
GODZILLA


Новичок

помогите, пожалуйста, написать программу:  которая генерирует массив из 8 целых чисел из диапазона [-256;256] и меняет порядок элементов в массиве на обратный.

Всего сообщений: 3 | Присоединился: декабрь 2010 | Отправлено: 20 дек. 2010 17:47 | IP
arcacar


Новичок

не получается одна задачка помогите срочно

Инвертировать часть массива с первого элемента до самого правого минимального элемента.
Program laba12;
var
k,i,n,imin:integer;
min,b:real;
x:array [1..10] of real;
begin
for i:=1 to 10 do
begin
write('Введите x[',i,']=');
readln(x)
end;
min:=x[1];
k:=1;
for i:=2 to 5 do
if x<=min then
begin
min:=x;
imin:=i;
end;
k:=1;
n:=min;
for i:=1 to  10 div 2 do
begin
b:=x[n];
x[n]:=x[k];
x[k]:=b;
k:=k+1;
n:=n-1;                              
end;
writeln('Инвертированный массив');
for i:=1 to 5 do
begin
write ('x[',i,']');
writeln(x);
end;
write('min[',imin,']=',min);
end.

Всего сообщений: 1 | Присоединился: декабрь 2010 | Отправлено: 20 дек. 2010 20:54 | IP
cnamuk


Новичок

пожалуйста помогите,
условие задачи:
Дана строка символов. Распечатать ее в обратном порядке, сохранив лишь порядок следования цифр (например, ‘asdf %e456tyh’ должна быть выведена как ‘hyt456e% fdsa’).

я смог написать код только для переворота, но как при этом пропустить цифры не могу понять. пожалуйста помогите, заранее огромное спасибо.
вот код:

uses crt;
var s1,s2,word1:string; i:byte;
begin
clrscr;
writeln('введите текст-->');  readln(s1);
s2:='';
repeat
word1:='';
while i<=length(s1) do
begin
word1:=s1[ i ]+word1;
i:=i+1;
end;
s2:=s2+word1;
until i>length(s1);
writeln(s2);
readkey
end.

Всего сообщений: 1 | Присоединился: декабрь 2010 | Отправлено: 20 дек. 2010 23:26 | IP

Отправка ответа:
Имя пользователя   Вы зарегистрировались?
Пароль   Забыли пароль?
Сообщение

Использование HTML запрещено

Использование IkonCode разрешено

Смайлики разрешены

Опции отправки

Добавить подпись?
Получать ответы по e-mail?
Разрешить смайлики в этом сообщении?
Просмотреть сообщение перед отправкой? Да   Нет
 

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 ]

Форум работает на скрипте © Ikonboard.com