Заказы "Сделайте все за меня"

[Тролль]

ts@ndr:

Чем богаты, тем и рады :(

Чтобы не думать много, вот приготовленные по рецепту из моего поста сугробы снега.

Snow1.zip

Snow1.zip

[ts@ndr]

Ну вот, теперь осталось только над часами пошаманить :(

[can4ec]

Хай народ. Напешите мне программу на С++.

Описать автомат, проверяющий правильность чередования набора символов в следующей последовательности:КА формирует реакийю 0, если встречается следующай последовательность ВААВАА, и реакцию 1, если искомая последовательность не встречается.

Заранее всем спасибо.

[Сенька]

Помогите плиз решить задачку в турбо паскале:

В квадратной матрице целых чисел размерности N*N поменять местами минимальные элемнты, расположенные над и под главной диагональю

Пожалуйста саму программу и блок схему, ОЧЕНЬ ПРОШУ

[РОМАШКА]

Ребята, посигите плиз написать прогу на Паскале. :)

Задача:

На апетечном складе храняться лекарства. Имеется их база данных. В полях указаны: наименование лекарства, колличество, цена, срок годности. Сделать так, чтобы при вводе названия лекарства высвечивалось, имеет ли оно срок годности менее 3 месяцев.

Сидел 3 пары над этой задачей. Ничего не получилось. :)

[Stolik]

РОМАШКА

Вот. Только:

1) Паскаль я давно забыл :)

2) Оболочки под рукой не было - в блокноте текст набирал :)

=================

Program Sklad;

uses

Crt;

type

info = record

name : string;

kol : word;

price: word;

srok : byte;

end; {record}

var

data: array[0..1000] of info;

i, j: word;

name: string;

{----------------------}

begin; {Sklad}

{вводим данные о товарах. можно сделать запись/чтение с файлом}

i:= 0;

repeat

ClrScr;

writeln("Enter data about item ", i);

writeln("Enter name");

readln(data.name);

writeln("Enter quantity");

readln(data.kol);

writeln("Enter price");

readln(data.price);

writeln("Enter time of expiration in months");

readln(data.srok);

writeln("Do you want to enter info about one more item?");

inc(i);

until readkey = #27; {до нажатия Esc}

repeat

ClrScr;

writeln("Enter name for search:");

readln(name);

for j:= 0 to i do begin

if name = data.name[j] then begin

if data.srok[j] < 3 then write("Expiration date less than 3 month")

else writeln("Expiration date more than 3 month");

end {if}

else writeln("No such name");

end; {for}

writeln("Do you want to search again? No - Esc");

until readkey = #27; {до нажатия Esc}

end. {Sklad}

[РОМАШКА]

writeln('Enter data about item ', i);writeln('Enter name');readln(data.name[i]);writeln('Enter quantity');readln(data.kol[i]);writeln('Enter price');readln(data.price[i]);writeln('Enter time of expiration in months');readln(data.srok[i]);

Пишет ошибку после data.

[Тролль]

РОМАШКА:

Если не работаешь с языком, он начинает путаться в голове с другими языками. Если не кинуть на контроль компилятору, обязательно где-нибудь окажется другой синтаксис.

Должно быть не data.name, а data.name. В других местах аналогично.

[MiToShi]

Народ помогите пожалуйста с задачай (на Паскале) :D , условие такое:

Определить массив Y=cosX-cos(X²), где X=-5,-4,-3,…10. Выделить из него массив отрицательных значений Ym и вывести этот массив на экран с сортировкой по убыванию в 5 колонок.

Заранее большое спасибо

[Stolik]

в 5 колонок

Это как? Поясни. Чтоб на экране было 5 колонок значений?

x x x x x

x x x x x

x x x x x

...

Так?

[MiToShi]

вот я тож над этим думаю ,тока листочек с заданием дали))

напиши пожалуйста как думаешь, а там что скажут)

[Тролль]

var

Y:array[-5..10] of Real;

Z:array[1..16] of Real;

X,K,I,J:Integer;

T:Real;

begin

for X:=-5 to 10 do Y[X]:=-2*sin((X+sqr(X))/2)*sin((X-sqr(X))/2);

K:=0;

for X:=-5 to 10 do if Y[X]<0 then begin K:=K+1; Z[K]:=Y[X] end;

for I:=1 to K do for J:=1 to K-I do

if Z[J]<Z[J+1] then begin T:=Z[J]; Z[J]:=Z[J+1]; Z[J+1]:=T end;

for J:=1 to K do begin Write(Z[J]:12,' '); if J mod 5 = 0 then WriteLn end;

WriteLn;

end.

Одно пояснение: формула для разности косинусов преобразована для снижения ошибок округления. Если запрограммировать ее "в лоб", в массиве из-за ошибок округления появится еще одно, очень близкое к нулю, значение.

[MiToShi]

огромное спасибо за задачу

[makkiri]

Спасите.... Нужны программы в Basic

Дан массив R(N,M).Сформировать одномерный С(N),каждый элемент которого равен среднему арифметическому эл-тов соответствующей строки.

:/

Дана квадратная матрица 6*6.Найти сумму отрицательных элементов,лежащих выше главной диагонали.Э-ты 3-ей строки умножить на эл-ты 5-ой.

Вычислить m= внизу j=1 Е вверху 4,сумма вобщем ,модуль аij,где

а={3,0 0,9 1,4 2,9}

3,7 -1,1 2,8 -1,2

-1,3 0,7 3,7 1,9

2,8 3,1 -2,4 -2,1

[РОМАШКА]

Ребята, помогите плз. ещё раз.

Тема работы "Работа с файлами"

Задача: Написать в Паскале программу:

В текстовый файл записать 5 чисел. На экран вывести содержимое файла, а так же среднее арифметическое положительных чисел. :)

[Alex 2006]

народ помогите срочно нужно сделать программу в BASIC. Дано 2/пи=(корень из 2 делить 2) умножить на (корень, под корнем 2 + корень из 2, весь корень делить на 2) умножить на (корень, под корнем 2+ корень, под корнем 2 + корень из 2, весь корень делить на 2) и т.д

плиз, срочно очень надо

пишите на мыло Murman7@yandex.ru

[Бумер]

РОМАШКА:

program halyawa;var f:text; i:byte;k,sum:real; k1:=string; n:byte;beginassign(f,'D:\proga\1.txt'); {Вместо Указанного пути пишешь свой}rewrite(f);for i:=1 to 5 dobeginwriteln ('wwedite chislo nomer',i); readln(k,k1); if k>0 then begin sum:=sum+k;n:=n+1; end; k1:= chr(k);writeln(f,k)1;end;writeln ('srdnee arifm:', sum/n :8:2);close(f);reset(f);while eof<> true dobeginreadln(s,k1); writeln(k1);end;close (f);end.

Внимание! Проверку синтаксич. ошибок не делал, но уверен, что особо их тут и нет. Логика работы проги верная, только вместо компонентов файлов строк можно использовать символы.

[РОМАШКА]

Бумер, спасибо огромное!

[Таньчик]

Привет всем !!! оченя надо решить эту задачу помогите кто может в долгу не останусь заранее спасибо!!!

Составить программу на языке Паскаль.

Дана последовательность из n элементов найти:

• сумму элементов последовательности:

• произведение тех элементов последовательности, значение которых удовлетворяет заданному условию №1;

• минимальный элемент последовательности

• максимальный элемент последовательности

• среднее арифметические элементов последовательности, индексы которых удовлетворяют условие№2

• переставить i-тый и j-тый элементы последовательности

• на экран вывести исходную последовательность, последовательность после перестановки результаты вычислений. Варианты задания приведены в таблице 2

На экран вывести исходную последовательность, последовательность после перестановки и результаты вычислений ..

1Тип элементов

Массива

Вещественный

2 Количество элементов массива

10

3 Условие

№1

Элемент

Положительный

4 Условие

№2

индекс –

нечетное

число

5 Номер

j-того

элемента

1

6 Номер

i-того

элемента

7

[kennia]

очень нужна помошь....помогите,просто умаляю...3 задачи:

1)дано натуральное число,заменить в нем одну цифру так что бы получилось число максимально близкое к степени двойки(без масивов,строк и функций)

2)дана строка вывести на экран меньшее слово из этой строки из которой можно составить максимум других слов этой строки(без масивов)

3)дано число(больше 10 цифр)вывести на экран следующие число с такойже суммой цифр и с такимже количеством цифр,если его не существует сообщение об ошибке.

задачи в среде поскаль.

с глубоким уважением.

[Бумер]

Чуваки, чувихи ну если вы так хотите получить помощь - пишите хоть язык на котором надо прогу написать

Таньчик, хотя бы удосужилась нормально отформатировать условия, блин

programma ot_Bumera;const n=10;vara:array of real; i,kolwo:byte;summa,summa2,min,max,proizvedenie:real; beginwriteln ('wwedite ',i,' elemnt massiwa');for i:=1 to n do read(a[i]);max:=a[1]; min:=a[1];proizvedenie:=1;writeln('ishodnii massiv');for i:=1 to n dobeginsumma:=summa+a[i]; {Подсчет суммы элементов массива}if a[i]>max then max:=a[i];{поиск максимального элемента}if a[i]<min then min:=a[i];{Поиск минимального элемента}if a[i]>0 then proizxedenie:=proizvedenie*a[i];{вычисляем произведение элементов, уд. усл 2}if (i mod 2) =0 then begin summa2:=summa2+a[i]; kolwo:=kolwo+1; end;write(a[i],' ');end;temp:=a[1];a[1]:=a[7]; a[7]:=temp;if kolwo=o then sredn:=0 elsesred:=summa2/kolwo;writeln('massiw s pwrestanovkami');for i:=1 to n do write (a[i],' ');writeln ('sred.arifm', sred);writeln ('prozwedenie', proizvedenie);writeln('min=',min);writeln('max=',max);readln;end.

Комментарии за**ался писать, сама напишешь. Возможно пропустил переменные когда объявлял и возможны синтаксические ошибки - набрано в блокноте.

Вообще задача очень элементарная, больше таких решать не буду, но это так, чтоб перед экзаменом форму не потерять

[Таньчик]

Бумер спасибо но мне уже помог вот этот Grimm замечательный человек!!!

[Бумер]

Таньчик: Уж такие то задачки надо уметь решать самой

[Бумер]

kennia:

Вот у тебя задания посложней.

Начнем с номера 3, т.к. оно мне показалось самым легким:

Если число большое, то, значит тип Extented, по-моему он так пишется.

У тебя не указано целое ли число и сколько знаков после запятой. Поэтому уточни пожалуйста задание.

насчет второго:

по ходу дела там надо всю строку делить на слова, правильно. А если мы не знаем сколько у нас слов, то как это сделать?

Примитивное решение для первого задания:

readln(a); {Число вводит юзверь}b:=sqrt(e);a:=e;c:=a;d:=aqrt©;while d<>trun(d) dobeginc:=c-1;d:=sqrt©;end;while b<>trun(b) dobegina:=a+1;b:=sqrt(a);end;if c<0 then writeln (a) elseif (e-c)>(a-e) then writeln(a) else writeln©;

[kennia]

kennia:

Вот у тебя задания посложней.

Начнем с номера 3, т.к. оно мне показалось самым легким:

Если число большое, то, значит тип Extented, по-моему он так пишется.

У тебя не указано целое ли число и сколько знаков после запятой. Поэтому уточни пожалуйста задание.

насчет второго:

по ходу дела там надо всю строку делить на слова, правильно. А если мы не знаем сколько у нас слов, то как это сделать?

в задаче №3 чесло целое.

в №2 уточню.

ограменное спасибо за первую!!!я стал еще немножко ближе к здаче сесий...!спасибо!