Pascal

блін, так просто, що навіть підказувати не хочеться. з такими питаннями в мене підказка лише одна - йди в армію!

Хмурий Князь Вітольд (24.11.2009 14:50) писав:

Просто наші студенти страшно любять халяву)) що тут ще скажеш.

власне включно позначається [1,2]
(1,2) не включно
{1,2} лише 1 і 2

юзер щойно зареєстрований, тому помагати не збираюся.

І ще раджу користуватися пошуком! тема про паскаль вже є і здається навіть закріплена.

мда... сумно, що тут ще скажеш

mDv (24.11.2009 12:14) писав:

Да, кстаті, заодно.

#include<stdio.h>
#include<stdlib.h>

int proc(double*,int);

int main(int argc,char* argv[]){
	int c=0,i=0;
	double* flp=NULL;
	double*	flp1=NULL;

	if(argc<3){printf("Usage:\t <N> <x1 x2 x3 ... xN>\n");return 0;}
	c=atoi(argv[1]);
	if(c!=(argc-2)||!c){printf("Sprobuite shche raz PRAVILNO vvesti!\n");return 0;}
	if(!(flp=malloc(c*sizeof(double)))){printf("Oops! Sorry.\n");return 0;}
	flp1=flp;
	for(;i<c;++i)*flp1++=atof(argv[i+2]);
	proc(flp,c);
	free(flp);
	return 0;
}

int proc(double* flp,int count){
	int	count1t2=0,
		negcount=0,
		i=0;
	double*	flp1=flp;
	for(;i<count;++i){
		if((*flp1>=1.0)&&(*flp1<=2.0)){/* *flp1=1.0; */ ++count1t2;printf("ELEMENT[%d]\t==\t(%f)-->1\n",i+1,*flp1);}
		else printf("ELEMENT[%d]\t==\t%f\n",i+1,*flp1);
		if(*flp1<0)++negcount;
		flp1++;
	}
	printf("\n[1,2] elements count:\t\t%d\nnegative elements count:\t%d\n",count1t2,negcount);
	return 0;
}

Упс. Це на Паскалі треба?
Ті, хто знають Паскаль не схотіли помогти, а я Паскаля не знаю. Ну нічого, перекладете, або ж наполягайте на C.

IA32 (26.11.2009 13:00) писав:

якщо людина не змогла написати сама цю задачу, то малоймов1рно що вона зможе перевести з С код

Шановний АІ32 в Вас безперечно чудовий стиль програмування, я думаю автор теми запросто зрозуміє цей тривіальний код. І без проблем здогадається, що ви закоментували частину зовсім непотрібного коду з яким частина "всі невід'ємні члени,яуі належать відрізку {1,2},замінити на 1" не працюватиме)
і також я думаю без проблем здогадається, що вводити потрібно і консоль, а не як аргумент при виклику програми...

program figniapovna;
uses crt;
type zv2=^pointer;
pointer=record
nxt:zv2;
prv:zv2;
lm:char;
num: integer ;
end;
var vlan,vslov,a,s:zv2;k:integer;sym:char; krt:string; u,l,j,n,i,o:integer;
procedure vstav(lan:zv2;buk:char);
var q:zv2;

begin
new(Q); q^.lm:=buk;
q^.nxt:=lan^.nxt;
lan^.nxt:=Q;
Q^.prv:=lan^.nxt^.prv;
lan^.nxt^.prv:=Q;
q^.prv:=lan^.nxt^.prv;
lan^.nxt^.prv:=Q;
end;

procedure vdal(lan:zv2);
var v:zv2;
begin
v:=lan;
lan^.nxt^.prv:=lan^.prv;
lan^.prv^.nxt:=lan^.nxt;
dispose(v);
end;


begin
clrscr;
new(vslov);
vslov^.nxt:=vslov;
vslov^.prv:=vslov;
vlan:=vslov;
k:=1;
writeln('vvedit riadok');
while vlan^.lm<>'.' do begin
new(vlan^.nxt);
vlan:=vlan^.nxt;
vlan^.nxt:=vslov;
vslov^.prv:= vlan;
read(sym);
vlan^.lm:=sym;
end;
vlan:=vslov;
n:=0;
o:=-2 ;
while vlan^.lm<>'.' do begin
if( vlan^.lm = 'i') and ( vlan^.nxt^.lm='f')
then
begin n:=n+1; vlan:=vlan^.nxt; vlan^.num:=o+n ; end else vlan:=vlan^.nxt; end;
vlan:=vslov;

while vlan^.lm<>'.' do begin
if (vlan^.lm='i')and(vlan^.nxt^.lm='f') then break;
vlan:=vlan^.nxt; end;




while vlan^.lm<>'.' do begin
if( vlan^.lm = 'i')
and ( vlan^.nxt^.lm='f') then
begin
vdal(vlan^.nxt);
vdal(vlan);

vlan:=vlan^.nxt;
end;
end;

vlan:=vslov;
while vlan^.lm<>'.' do begin
if (vlan^.lm='i')and(vlan^.nxt^.lm='f') then write(n); write(vlan^.lm);
vlan:=vlan^.nxt
end;
end.

чому ця шняга не працює????

iamweasel (24.01.2010 13:42) писав:

Цитата

не я називав!

Нарооод....поможіть алгоритм Гаффмана реалізувати на паскалі...
ПЛІЗ!!!

П.С: ой...теми про паскаль не побачив...

Повідомлення відредагував Той_Що_Танцює_на_голові: 23.03.2010 – 22:54

Пацани допоможіть зробити 2 задачі за допомогою масивів!!!....для мене дуже тяжка тема!!!

Задача 1 (Одновимірні масиви)
Описати одновимірний масив цілих чисел і ввести в нього довільні значення з клавіатури.
Обробити цей масив згідно з індивідуальним завданням:

Обчислити середнє геометричне значення додатніх елементів масиву.


Задача 2 (Двовимірні масиви)
Задати двовимірний масив дійсних чисел, реалізувати його обробку згідно варіанту.
Вхідні дані задати самостійно, з огляду на специфіку задачі:

У двовимірному масиві визначити кількість додатніх елементів.


БУДУ ДУЖЕ ВДЯЧНИЙ ТОМУ ХТО ЗРОБИТЬ БО ДУЖЕ ПОТРІБНО!!!!

Повідомлення відредагував Kassandra: 25.11.2010 – 16:27

Nikolja94 (25.11.2010 09:16) писав:

задачка елементарна
краще прочитай уважно документацію і все получиться
ось перший лінк який гуголь мені дав http://pascalprogram...om/lesson10.php

Амароку, а казав, що не жартівник. Дав посилання на англомовний ресурс з програмування користувачу, який ввідні завдання на масиви не може осилити.)

а що таке середнє геометричне?

Хмурий Князь Вітольд (25.11.2010 19:23) писав:

В часи пошуковиків...

kavalera (25.11.2010 12:18) писав:

а він не казав шо він англійської не знає)

Amarok (25.11.2010 23:48) писав:

логічно.

Хлопці...може всеж таки зробите мені??..Буду дуже вдячний, бо і читати наново всю ту тему не маю часу після інституту....а потрібно чим пошвидше!!!...ну просто тяжка та тема про масиви мені...нічого не пороблю...((