Practical 1 (AI)

PRACTICAL NO :- 1

Aim : Write a Prolog Program that list four address in a label form, each address should list a name, one-line address, city, state, and Pin Code.


Program Code:

predicates
            reference(symbol,symbol,symbol,symbol,symbol)
           
goal
            write("Please Enter Your Name : "),
            readln(Name),
            reference(Name,Address,City,State,PinCode),
            write(">Name:",Name),nl,
            write(">Address:",Address),nl,
            write(">City:",City),nl,
            write(">State:",State),nl,
            write(">PinCode:",PinCode).

clauses
            reference("Ronak","Maruti Row House","Surat","Gujarat","395009").
            reference("Ankit","Sun city","Surat","Gujarat","395009").

            reference("Nirali","New society","Gondal","Gujarat","360319").


Comments

Post a Comment

Popular posts from this blog

Write a C Program to Find Transpose of a Matrix.

#include<stdio.h> int main()  // main function which returns integer value {     int r, c, i, j;     //declaration of integer variables     printf(">> Enter rows and columns of matrix: ");    // print statement to get size of rows and cols     scanf("%d %d", &r, &c);     // run time initialization for 'r' and 'c'     // here we have two multi dimentional arrays of type integer.. 1) 'a' 2) 'transpose'     int a[r][c], transpose[r][c];   // declaration of array with run time size allocation.     // Storing elements of the matrix     printf("\nEnter %d elements of matrix:\n",(r*c));   // printing total elements to insert in array.     for(i=0; i<r; i++)  // for loop to iterate rows         for(j=0; j<c; j++)  // for loop t...
Read more