HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу Студентам с лабораторными сюда
   
Ответ
Страница 241 из 284 « Первая < 141191231 237 238 239 240 241 242 243 244 245 251 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #1  
Старый 11.03.2010, 12:41
SHARA
Участник форума
Регистрация: 26.05.2007
Сообщений: 191
Провел на форуме:
389326

Репутация: 9
По умолчанию
2sledopit2
Держи быдло код, работает
Код:
#include<iostream>
#include<cstdio>
#include<cstring>
using namespace std;
void strstr(int &a, int &b);
void strstr(char *str, char *buf);
int main()
{
	setlocale(LC_ALL,"Russian");
	char s1[80]="Hellow word";
	char s2[80]="word";
	int i,j;
	cout<<"Введите два числа:  "; 
	cin>>i>>j;
	strstr(i,j);//Cравнение двух чисел
	
  	//теперь рассмотрим поиск подстроки в строке
	strstr(s1,s2);
	return 0;
}
void strstr(int &a, int &b)
{
	if(a>b) cout<<"Первое число больше второго";
	else cout<<"Второе число больше  первого";
	cout<<endl;
}
void strstr(char *str, char *buf)
{
	char *p;
	char *q;
	for(int i=0; str[i]; i++)
	{
		p=&str[i];
		q=buf;
		while(*q && *q==*p)
		{
			p++;
			q++;
		}
	}
	cout<<q;
}
 
Ответить с цитированием

  #2  
Старый 11.03.2010, 17:12
sledopit2
Новичок
Регистрация: 21.01.2010
Сообщений: 7
Провел на форуме:
9494

Репутация: 0
По умолчанию
SHARA спасибо бальшое.
 
Ответить с цитированием

  #3  
Старый 11.03.2010, 19:57
Oven
Новичок
Регистрация: 18.02.2010
Сообщений: 2
Провел на форуме:
7010

Репутация: 0
По умолчанию
Помогите, пожалуйста. То ли я торможу, то ли лыжи не едут.
Задание: Инициализировать массив, который содержит целые числа. Переписать парные и непарные числа в разные массивы. Оформить это действие в виде процедуры с формальными параметрами. - В делфи

Вот то что я наваяла, подскажите, пожалуйста, ошибку:

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
type Mas=array [1..10] of integer;
Mas1=array [1..10] of integer;
Mas2=array [1..10] of integer;
procedure Proc(i:integer; M:Mas; M1:Mas; M2:Mas2);
begin
for i:=1 to 10 do
if M[i] mod 2 =0 then M[i]:=M1[i]
else M[i]:=M2[i];
end;

var M:Mas; M1:Mas; M2:Mas2; i:integer;

begin
M[1]:=2;
M[2]:=6;
M[3]:=9;
M[4]:=11;
M[5]:=17;
M[6]:=10;
M[7]:=19;
M[8]:=23;
M[9]:=13;
M[10]:=1;
proc ( i, M, M1, M2);

for i:=1 to 10 do
Write (M1[i]);

for i:=1 to 10 do
Writeln(M2[i]);



readln;
end.
 
Ответить с цитированием

  #4  
Старый 13.03.2010, 21:31
n1ghtstalker
Познающий
Регистрация: 28.09.2008
Сообщений: 65
Провел на форуме:
152084

Репутация: 8
По умолчанию
Цитата:
Сообщение от Oven  
Помогите, пожалуйста. То ли я торможу, то ли лыжи не едут.
Задание: Инициализировать массив, который содержит целые числа. Переписать парные и непарные числа в разные массивы. Оформить это действие в виде процедуры с формальными параметрами. - В делфи

Вот то что я наваяла, подскажите, пожалуйста, ошибку:

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
type Mas=array [1..10] of integer;
Mas1=array [1..10] of integer;
Mas2=array [1..10] of integer;
procedure Proc(var M:Mas; M1:Mas; M2:Mas2);

var i:integer;
begin
for i:=1 to 10 do
if M[i] mod 2 =0 then M[i]:=M1[i]
else M[i]:=M2[i];
end;

var M:Mas; M1:Mas; M2:Mas2; i:integer;

begin
M[1]:=2;
M[2]:=6;
M[3]:=9;
M[4]:=11;
M[5]:=17;
M[6]:=10;
M[7]:=19;
M[8]:=23;
M[9]:=13;
M[10]:=1;
proc ( i, M, M1, M2);

for i:=1 to 10 do
Write (M1[i]);

for i:=1 to 10 do
Writeln(M2[i]);



readln;
end.
мда,собсно парные не парные ( хз интересное название . по видимому коду - это чётные нечётные).
мм массив уже с заданными значениями..

PHP код:
procedure Proc(var M:Mas; M1:Mas; M2:Mas2);
var i:integer;
   begin
   for i:=1 to 10 do
   if M[i] mod 2 =0 then M1[i]:=M[i]
   else M2[i]:=M[i];
   end; 
по всей видимости процедура должна выглядеть так.

зы , по моему ещё массивы не правильно заданны. так как у каждого будет свой размер а не у всех трёх по 10.
 
Ответить с цитированием

  #5  
Старый 14.03.2010, 18:09
Dhsus
Новичок
Регистрация: 10.03.2010
Сообщений: 10
Провел на форуме:
12375

Репутация: 0
По умолчанию
Здраствуйте. Допоможіть будь-ласка зробити програму для обчислення заданого арифметичного виразу. Програма повинна забезпечити ввід необхідних даних з клавіатури та вивід результату на екран.

y=√((x_2^2+x_1/x_2)/(16x_2 x_1 ))
 
Ответить с цитированием

  #6  
Старый 14.03.2010, 18:15
BrainDeaD
Постоянный
Регистрация: 09.06.2005
Сообщений: 531
Провел на форуме:
3516666

Репутация: 439


По умолчанию
на каком языке программу, хлопче?
 
Ответить с цитированием

  #7  
Старый 14.03.2010, 18:16
Dhsus
Новичок
Регистрация: 10.03.2010
Сообщений: 10
Провел на форуме:
12375

Репутация: 0
По умолчанию
Нужна зделать в Delphi...
 
Ответить с цитированием

  #8  
Старый 16.03.2010, 02:31
Oven
Новичок
Регистрация: 18.02.2010
Сообщений: 2
Провел на форуме:
7010

Репутация: 0
По умолчанию
Цитата:
Сообщение от n1ghtstalker  
мда,собсно парные не парные ( хз интересное название . по видимому коду - это чётные нечётные).
мм массив уже с заданными значениями..
.
да, вы правы извиняюсь, просто с украинского на русский переводила в переводчике, и как-то пропустила мимо эту огрешность

Цитата:
Сообщение от n1ghtstalker  
PHP код:
procedure Proc(var M:Mas; M1:Mas; M2:Mas2);
var i:integer;
   begin
   for i:=1 to 10 do
   if M[i] mod 2 =0 then M1[i]:=M[i]
   else M2[i]:=M[i];
   end; 
по всей видимости процедура должна выглядеть так.

зы , по моему ещё массивы не правильно заданны. так как у каждого будет свой размер а не у всех трёх по 10.
да, спасибо, я тоже задавалась тем же вопросом, да и задаваемый массив по себе тож не обязательно 10 элементов имеет, но вроде разобралась, мне код помогли написать...так что пасибки)
Последний раз редактировалось Oven; 16.03.2010 в 02:33..
 
Ответить с цитированием

  #9  
Старый 12.03.2010, 11:40
GroodeR
Новичок
Регистрация: 20.10.2009
Сообщений: 9
Провел на форуме:
54566

Репутация: 0
По умолчанию
Ребята, нужна СРОЧНАЯ помощь, сижу на тесте в универе. За час нужно сделать лабораторную!!!

Задание:
Функция(ракусивная) поиска подстроки их 2х букв в строке... Срочно....

Помогите мне, а я вам тоже в чем то помогу.

Язык реализации СИ
Последний раз редактировалось GroodeR; 12.03.2010 в 11:51..
 
Ответить с цитированием

  #10  
Старый 14.03.2010, 18:36
fenixelite
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084

Репутация: 79
По умолчанию
Как-то так, если условие правильно понял ))

Код:
var
x1,x2:integer;
y:real;
begin
write('x1=');
readln(x1);

write('x2=');
readln(x2);

y:=sqrt((sqr(x1)+x1/x2)(16*x2*x1);

writeln('y=',y);
end.
Ну, а если на Дельфи, то сделаешь 2 edit и кнопку. В событии кнопки напишешь

Код:
x1:=strtoint(edit1.Text);
x2:=strtoint(edit2.Text);
y:=sqrt((sqr(x1)+x1/x2)(16*x2*x1);
// и выведешь y куда нибудь
Последний раз редактировалось fenixelite; 14.03.2010 в 18:38..
 
Ответить с цитированием
Ответ
Страница 241 из 284 « Первая < 141191231 237 238 239 240 241 242 243 244 245 251 > Последняя »



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Американским студентам запретили пользоваться Skype KPOT_f!nd Мировые новости. Обсуждения. 1 28.09.2006 03:47
Любителям квестов сюда!! FoX's Болталка 10 25.01.2005 20:42



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.