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

[Vulcan]

Доброе время суток дорогие форумчане кодеры =) помогите балбесу переписать код с делфи на си ++

Построить график Астроида x=b*cos^3t, y=b*sin^3t, где t[0,2 Pi], a b - любое положительное число.

uses Graph,CRT;

var i,x,y,GrDriver,GrMode:integer; b,t,s,c:real;

begin

GrDriver:=VGA; GrMode:=VGAHi; InitGraph(GrDriver,GrMode,'\TP\BGI');

if GraphResult<>GrOk then begin WriteLn('Graphic driver?'); i:=Ord(ReadKey); Halt end;

SetBkColor(LightGray); SetColor(Red); b:=200; MoveTo(320,round(b)+240);

for i:=1 to 360 do begin t:=pi/180*i; s:=sin(t); c:=cos(t);

x:=round(b*s*s*s)+320; y:=round(b*c*c*c)+240; lineto(x,y) end; i:=Ord(ReadKey)

end.

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

laba4.rar

laba4.rar

[Vulcan]

ребят ну что =) поможете лабы сделать на си ?

[Тролль]

Vulcan

То у тебя на C++, то на Си... И на каком, никто не знает. В разных по-разному.

Эта программа должна рисовать астроиду на Borland C. Правда, он у меня сейчас не установлен, так что проверить не смог.

#include <graphics.h>#include <stdio.h>int main(){int x,y,b,i,pi=3.1416,GDriver=VGA,GMode=VGAHI,ErrorCode; float t,s,c;initgraph(&GDriver,&GMode,""); ErrorCode=graphresult();if(ErrorCode!=grOk)printf("Graphics Error: %s\n",grapherrormsg(ErrorCode));else {b=200; moveto(320,b+240); for(i=1;i<=360;i++){t=pi/180*i; s=sin(t); c=cos(t); x=b*s*s*s+320; y=b*c*c*c+240; lineto(x,y);} getch(); closegraph();} }

[Riki_Tiki_Tavi]

Здравствуйте.Прошу помощи, кому не лень напишите пожалуйста на языке Си вот такую задачу:

Создать программу, которая из списков слов L1, L2 формирует новый список L, занося в него по одному разу те слова, содержащиеся хотя бы в одном из списков L1 и L2.

Благодарю.

Ребят кому не лень, помогите)

[Vulcan]

vovka8888:

uses Graph,CRT;var i,x,y,GrDriver,GrMode:integer; b,t,s,c:real;beginGrDriver:=VGA; GrMode:=VGAHi; InitGraph(GrDriver,GrMode,'\TP\BGI');if GraphResult<>GrOk then begin WriteLn('Graphic driver?'); i:=Ord(ReadKey); Halt end;SetBkColor(LightGray); SetColor(Red); b:=200; MoveTo(320,round(b)+240);for i:=1 to 360 do begin t:=pi/180*i; s:=sin(t); c:=cos(t);x:=round(b*s*s*s)+320; y:=round(b*c*c*c)+240; lineto(x,y) end; i:=Ord(ReadKey)end.

b принял равным 200, так как тогда астроида хорошо помещается на экране.

Вот тут нашел прогу я . у вас на форуме. скачал Borland C 6. не хочет он ее компилировать (

во че говорит

Build

[C++ Error] Unit1.cpp(6): E2209 Unable to open include file 'graphics.h'

[C++ Error] Unit1.cpp(9): E2451 Undefined symbol 'VGA'

[C++ Error] Unit1.cpp(9): E2451 Undefined symbol 'VGAHI'

[C++ Error] Unit1.cpp(10): E2268 Call to undefined function 'initgraph'

[C++ Error] Unit1.cpp(10): E2268 Call to undefined function 'graphresult'

[C++ Error] Unit1.cpp(11): E2451 Undefined symbol 'grOk'

[C++ Error] Unit1.cpp(11): E2268 Call to undefined function 'grapherrormsg'

[C++ Error] Unit1.cpp(12): E2268 Call to undefined function 'moveto'

[C++ Error] Unit1.cpp(12): E2268 Call to undefined function 'sin'

[C++ Error] Unit1.cpp(12): E2268 Call to undefined function 'cos'

[C++ Error] Unit1.cpp(13): E2268 Call to undefined function 'lineto'

[C++ Error] Unit1.cpp(13): E2268 Call to undefined function 'getch'

[C++ Error] Unit1.cpp(13): E2268 Call to undefined function 'closegraph'

[Тролль]

Vulcan

скачал Borland C 6. не хочет он ее компилировать

Было бы весьма странно, если бы в С компилировалась программа, написанная на Pascal ;)

Borland C++ 6 у меня не установлен. Программа ниже рисует астроиду в Dev-C++ с подключенной графической библиотекой от Borland

#include <graphics.h>#include <stdio.h>#include <math.h>int main(){int x,y,b,i,GDriver=VGA,GMode=VGAHI; float t,s,c,pi=3.1416;initgraph(&GDriver,&GMode,""); b=200; moveto(320,b+240); for(i=1;i<=360;i++){t=pi/180*i; s=sin(t); c=cos(t); x=b*s*s*s+320; y=b*c*c*c+240; lineto(x,y);} getch(); closegraph(); return 0;} 

Изменено 10 апреля, 2011 пользователем Тролль

[Riki_Tiki_Tavi]

Помогите ребят(

[malish-z]

не выводятся фамилии на букву М, скажите где ошибка?

program P1;

uses crt;

type disp=(inf,matan,ped);

student=record

F:string[10];

I:string[10];

OC:array[disp] of 2..5;

end;

spisoc=array[1..75] of student;

var st:spisoc; j,n:integer; d:disp;

begin

write ('kolishrestvo studentov: '); readln(n);

for j:=1 to n do

begin with st[j] do begin

write('Familiya: '); readln(F);

write('Imya: '); readln(I);

write('ocenka po inf: ');readln(oc[inf]);

write('ocenka po matan: ');readln(oc[matan]);

write('ocenka po ped: ');readln(oc[ped]);

writeln;

end;

writeln('--------------------------');

end;

for j:=1 to n do

if (st[j].F='M') and (st[j].OC[inf]=5) and (st[j].OC[matan]=5) and

(st[j].OC[ped]=5) then

writeln (st[j].F,' ',st[j].I,' informatika ',st[j].OC[inf],' matanaliz ',

st[j].OC[matan],' pedagogika ',st[j].OC[ped]);

readkey

end.

[Тролль]

malish-z

if (st[j].F[1]='M')

[MAK7max]

Здраствуйте.

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

Вот задание:

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

[makc17]

Доброго всем времени суток!

Уважаемые господа программисты, прошу Вашей помощи в написании программы на С или в крайнем случае С++, поскольку у самого руки кривые, неполучается(( Всё надо здать к четвергу, график по возможностям. Очень на вас надеюсь.

Вот теоретический материал по электро цепям http://dvoika.net/education/matusko/preobraz.html

Фото задания

Rекв – еквівалентний опір кола.

UR2 – напруга на опорі R2

IR4 – струм, який проходить через опір R4

[Riki_Tiki_Tavi]

Всем привет, помогите пожалуйста решить на языке Си.

Создать файл записей из полям: Фамилия, номер телефона, задолженность.За один просмотр файла вывести фамилии абонентов и номера телефонов, у которых задолженность наибольшая.

[Nata6enka]

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

1 Определить количество элементов списка кратных 2. Список [2, 3, 4, 6, 9, 8, 12]

2 Вывести все элементы дерева по уровням: сначала из корня дерева, затем (слева направо) – из вершин, дочерних по отношению к корню, затем (также слева направо) – из вершин, дочерних по отношению к этим вершинам, и т.д.

[Fanat]

Ребят,помогите пожалуйста с работой в C++ Builder

Задание №1

Составить программу для представления графического объекта

Вложенные треугольники с закруглёнными углами.

Задание №2

Составить программу вывода графика

Тригонометрическая функция

Y=tg(X)-2*X

X [-П/2.5, П/2.5]

зеленый и синий

заранее спасибо))

[Мышка!]

Привет!

Помогите пожалуйста написать программу на Turbo Pascal

Нужно написать игру Ханойская башня. Именно саму игру, а не способ решения.

В игре должен быть выбор количества дисков, кнопки отмены последнего хода и возврата в начало, отображение количества сделанных ходов.

Управление программы должно быть либо с помощью курсора, либо клавиш перемещения (стрелки).

Заранее спасибо!

Буду очень рада, если мне помогут :)

[kaka1982]

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

Символы латинского алфавита

Символы кириллицы

Символы пунктуации

Цифры

Фильтры могут накладываться последовательно. При повторной установке существующего фильтра данный фильтр должен сниматься.

[Citysheep]

Надо с оболочкой в Паскале

1. Описать запись с именем WORKER, содержащую следующие поля:

• NAME — фамилия и инициалы работника;

• POS — название занимаемой должности;

• YEAR — год поступления на работу.

2. Написать программу, выполняющую следующие действия:

• ввод с клавиатуры данных в массив TABL, состоящий из десяти структур типа WORKER; записи должны быть размещены по алфавиту.

• вывод на дисплей фамилий работников, чей стаж работы в организации превышает значение, введенное с клавиатуры;

• если таких работников нет, вывести на дисплей соответствующее сообщение.

Заранее огромное спасибо !!!=)

[Тролль]

Citysheep:

uses WinDos;type WORKER=record NAME,POS:string[25]; YEAR:word end;var TABL:array[1..10]of WORKER; T:WORKER; i,j,k,los,yt:word; b:boolean;begingetdate(yt,k,k,k); k:=0; for i:=1 to 10 do begin  write('Name (nothing to break)? '); readln(TABL[i].NAME); if TABL[i].NAME='' then break; write('Pos? '); readln(TABL[i].POS); write('Year (YYYY)? '); readln(TABL[i].YEAR); writeln; inc(k) end;for i:=1 to k-1 do for j:=1 to k-1 do begin if TABL[j].NAME>TABL[j+1].NAME then begin T:=TABL[j]; TABL[j]:=TABL[j+1]; TABL[j+1]:=T end end;write('Duration of service? '); readln(los); writeln; b:=true;for i:=1 to k do if yt-TABL[i].YEAR>los then begin writeln(TABL[i].NAME); b:=false end;if b then writeln('No such person!'); readlnend.

Изменено 4 мая, 2011 пользователем Тролль

[Citysheep]

Спасибо большое!!!!=)

[Darth Emil]

Помогите пожалуйста с Delphi.

Нужно чтобы программа генерировала 25 случайных неповторяющихся чисел в диапазоне от 1 до 25 и затем вбивала их в массив.

Т.е. забивку случайных чисел в массив я сделал, а вот как сделать проверку на повторы?

[Тролль]

Darth Emil

Варианты:

а) при генерации каждого случайного числа проверяешь, не встречалось ли оно в заполненной части массива ранее и, если нет, вставляешь в массив. Генерируешь случайные числа до тех пор, пока массив не заполнится.

б) более цивилизованный и экономичный вариант, по алгоритмам вычислительной математики: у тебя 25 чисел от 1 до 25. Забиваешь в массив по порядку числа от 1 до 25 и потом тасуешь. Алгоритм тасования можно взять, например, из "Искусства программирования" Д.Кнута:

const n=25; var m:array[1..n]of integer; i,j,k:integer;beginfor j:=1 to n do m[j]:=j; randomize;for j:=n downto 1 do begin k:=1+random(j); i:=m[k]; m[k]:=m[j]; m[j]:=i end;for j:=1 to n do write(m[j]:3); writeln; readlnend.

Изменено 11 мая, 2011 пользователем Тролль

[Nata6enka]

Здравствуйте. Помогите пожалуйста написать программу на C++.

Дана максимальная емкость рюкзака, количество предметов, их веса и стоимость. Разработать алгоритм, который рассчитает максимальную стоимость предметов, которые могут быть размещены в рюкзаке.

!

Предупреждение:

Можно было и клинопись в виде шрифта использовать... Но зачем?

Изменено 12 мая, 2011 пользователем Yezhishe

[Riki_Tiki_Tavi]

Напишите пожалуйста на языке Си.

Создать список, содержащий информацию о пользователях водопровода (поля: фамилия, адрес, задолженность)

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

[Alais]

Мальчики, помогите девочке сдать курсовую. Любую помощь приветствую.

Надо программа для MCS-51 на С для управление мостовым нереверсивным управляемым выпрямителем. По задание надо задавать выходное напряжение через интерфейс (SPI).

Любую помощь, любые мысли. я в отчаяние

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

пожалуйста!

[Рахмеджян Габдрохимович]

Здравствуйте.

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

Заранее спаибо))